[mhc:00272] Re: completion for category input?

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>]

From: Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx> 曰く
Subject: [mhc:00270] Re: completion for category input?
Message-ID: <19991206133721Q.shirai@xxxxxxxxxxxxxxxxxxxxxxxxx>
Date: Mon, 6 Dec 1999 13:38:04 +0900

白井> あぁぁ、間違えた。。。

おぉぉぉ、もうパッチ。。。^^;;;

## どうでもいいところなんですが、エラーになるのは嫌なので。

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)

--- vcalendar.el.orig	Mon Dec  6 14:10:10 1999
+++ vcalendar.el	Mon Dec  6 14:12:42 1999
@@ -34,17 +34,19 @@
 
 (defun vcalendar-exit ()
   (interactive)
-  (if (and (boundp 'vcalendar-buffer)
-	   (get-buffer-window vcalendar-buffer)
+  (if (and (get-buffer-window vcalendar-buffer)
 	   (window-live-p (get-buffer-window vcalendar-buffer)))
-  (progn
-    (delete-window (get-buffer-window vcalendar-buffer))
-    (bury-buffer vcalendar-buffer))))
+      (progn
+	(if (one-window-p)
+	    (switch-to-buffer nil)
+	  (delete-window (get-buffer-window vcalendar-buffer)))
+	(bury-buffer vcalendar-buffer))))
 
 (defun vcalendar-quit ()
   (interactive)
   (vcalendar-exit)
-  (kill-buffer vcalendar-buffer))
+  (if (get-buffer vcalendar-buffer)
+      (kill-buffer vcalendar-buffer)))
 
 (defun vcalendar-mode ()
   (interactive)
@@ -108,6 +110,7 @@
     (if (not (get-buffer vcalendar-buffer))
 	(setq first t)
       (and (window-live-p (get-buffer-window vcalendar-buffer))
+	   (not (one-window-p))
 	   (delete-window (get-buffer-window vcalendar-buffer))))
     (select-window (split-window-horizontally
 		    (- (window-width) cw-width)))