null+****@clear*****
null+****@clear*****
Fri Feb 3 16:23:53 JST 2012
yuta yamada 2012-02-03 16:23:53 +0900 (Fri, 03 Feb 2012)
New Revision: 2bc88727668f265a95486a12ef5862a54165bd1d
Log:
fix behavior when quit popup
Modified files:
logalimacs.el
Modified: logalimacs.el (+3 -1)
===================================================================
--- logalimacs.el 2012-02-03 13:59:19 +0900 (b1c82fd)
+++ logalimacs.el 2012-02-03 16:23:53 +0900 (151039f)
@@ -94,7 +94,9 @@
(:next-line (scroll-other-window 1) (loga-buffer-or-popup-command))
(:previous-line (scroll-other-window-down 1)(loga-buffer-or-popup-command))
(:buffer (loga-make-buffer (cdar loga-word-cache)))
- (:quit (kill-buffer "*logalimacs*") (keyboard-quit))
+ (:quit (if (eq loga-current-endpoint :popup)
+ (kill-buffer "*logalimacs*"))
+ (keyboard-quit))
(:detail (loga-display-detail))))))
(defun loga-display-detail ()