null+****@clear*****
null+****@clear*****
Wed Jun 27 10:03:15 JST 2012
yuta yamada 2012-06-27 10:03:15 +0900 (Wed, 27 Jun 2012) New Revision: 90ab70a7d24957bf796bdae04d621be885b983ac https://github.com/logaling/logalimacs/commit/90ab70a7d24957bf796bdae04d621be885b983ac Log: Use quit-window function instead of kill-buffer function Modified files: logalimacs.el Modified: logalimacs.el (+8 -3) =================================================================== --- logalimacs.el 2012-06-27 01:28:12 +0900 (cdbe1bc) +++ logalimacs.el 2012-06-27 10:03:15 +0900 (a419ea9) @@ -174,7 +174,7 @@ (:buffer (loga-make-buffer (cdar loga-word-cache))) (:quit (if (eq loga-current-endpoint :buffer) - (kill-buffer "*logalimacs*")) + (loga-quit-window)) (keyboard-quit)) (:detail (loga-display-detail))))) @@ -182,7 +182,7 @@ "If popup where current endpoint, output to buffer. if buffer, quit buffer" (case loga-current-endpoint (:buffer - (kill-buffer "*logalimacs*")) + (loga-quit-window) (:popup (loga-lookup-in-buffer)))) @@ -220,7 +220,7 @@ (format "%sAre you sure you want to 'update' followed by?" spew-message))) (loga-update) - (kill-buffer "*logalimacs*")))) + (loga-quit-window)))) (defun loga-lookup-attach-option (search-word) (let* ((options '())) @@ -534,6 +534,11 @@ (loga-make-buffer (format "[%s] %s" line text)))) (setq count (1- count))))) +(defun loga-quit-window () + (switch-to-buffer "*logalimacs*") + (quit-window) + (switch-to-buffer loga-base-buffer)) + (defun loga-check-state () (interactive) (let* ((ruby '(lambda (arg) -------------- next part -------------- An HTML attachment was scrubbed...Descargar
