quit-delete-window.patch

--- info-modoki-mode.l	2010-05-22 04:11:28.921875000 +0900
+++ info-modoki-mode.l~	2010-05-22 03:44:55.406250000 +0900
@@ -227,6 +227,7 @@
 (defvar *imm-history-pointer* nil)
 (defvar *imm-menu* nil)
 
+(defparameter *imm-window* nil)
 
 ;;; ──────────────────────────────────── ;;;
 ;;;  ■ リファレンス参照
@@ -274,7 +275,14 @@
       (if (and (not otherwindow)
 	       (eq buffer-mode 'info-modoki-mode))
 	  (set-buffer b)
-	(pop-to-buffer b t))
+        (if (> (count-windows) 1)
+            (progn
+              (setf *imm-window* nil)
+              (other-window)
+              (set-buffer b))
+          (progn
+            (pop-to-buffer b t)
+            (setf *imm-window* (selected-window)))))
       (info-modoki-mode t)
       (goto-char (point-min)))))
 
@@ -554,10 +562,13 @@
   (when (eq buffer-mode 'info-modoki-mode)
     (when arg
       (close-selected-buffer))
-    (if (> (count-windows) 1)
-	(delete-window)
+    (if (and (> (count-windows) 1)
+             (eql (selected-window) *imm-window*))
+        (progn
+          (delete-window)
+          (setf *imm-window* nil))
       (unless arg
-	(previous-buffer)))
+        (previous-buffer)))
     (run-hooks '*info-modoki-mode-quit-hook*)))
 
 (defun imm-quit-and-delete-buffer ()