null+****@clear*****
null+****@clear*****
Thu Jun 28 21:27:03 JST 2012
yuta yamada 2012-06-28 21:27:03 +0900 (Thu, 28 Jun 2012) New Revision: 3e978827eb8484ddeb079816aa8fa4c1ed887c44 https://github.com/logaling/logalimacs/commit/3e978827eb8484ddeb079816aa8fa4c1ed887c44 Log: Move the quit logic to loga-quit-window function Modified files: logalimacs.el Modified: logalimacs.el (+5 -5) =================================================================== --- logalimacs.el 2012-06-28 21:12:56 +0900 (277a179) +++ logalimacs.el 2012-06-28 21:27:03 +0900 (543af0c) @@ -173,9 +173,7 @@ (:previous-line (funcall scroll-logalimacs-buffer -1)) (:buffer (loga-make-buffer (cdar loga-word-cache))) (:quit - (if (eq loga-current-endpoint :buffer) - (loga-quit-window)) - (keyboard-quit)) + (loga-quit-window)) (:detail (loga-display-detail))))) (defun loga-display-detail () @@ -541,8 +539,10 @@ (defun loga-quit-window () (switch-to-buffer "*logalimacs*") - (quit-window) - (switch-to-buffer loga-base-buffer)) + (when (eq loga-current-endpoint :buffer) + (quit-window) + (switch-to-buffer loga-base-buffer)) + (keyboard-quit)) (defun loga-check-state () (interactive) -------------- next part -------------- An HTML attachment was scrubbed...다운로드
