null+****@clear*****
null+****@clear*****
Fri Jun 15 04:54:26 JST 2012
yuta yamada 2012-06-15 04:54:26 +0900 (Fri, 15 Jun 2012)
New Revision: 2f037929b7b486f8fc5d1b8f05916da728e4013f
Log:
loga-buffer-or-popup-command: Delete unnecessary conditional branch
Modified files:
logalimacs.el
Modified: logalimacs.el (+14 -16)
===================================================================
--- logalimacs.el 2012-06-15 04:47:34 +0900 (bf22c02)
+++ logalimacs.el 2012-06-15 04:54:26 +0900 (9636027)
@@ -147,22 +147,20 @@
(t (loga-command))))
(defun loga-buffer-or-popup-command ()
- (case loga-current-command
- (:lookup
- (read-event "")
- (case (loga-response-of-event loga-buffer-or-popup-command-alist)
- (:next-line
- (unless (eq loga-current-endpoint :popup)
- (scroll-other-window 1) (loga-buffer-or-popup-command)))
- (:previous-line
- (unless (eq loga-current-endpoint :popup)
- (scroll-other-window-down 1) (loga-buffer-or-popup-command)))
- (:buffer (loga-make-buffer (cdar loga-word-cache)))
- (:quit
- (if (eq loga-current-endpoint :buffer)
- (kill-buffer "*logalimacs*"))
- (keyboard-quit))
- (:detail (loga-display-detail))))))
+ (read-event "")
+ (case (loga-response-of-event loga-buffer-or-popup-command-alist)
+ (:next-line
+ (unless (eq loga-current-endpoint :popup)
+ (scroll-other-window 1) (loga-buffer-or-popup-command)))
+ (:previous-line
+ (unless (eq loga-current-endpoint :popup)
+ (scroll-other-window-down 1) (loga-buffer-or-popup-command)))
+ (:buffer (loga-make-buffer (cdar loga-word-cache)))
+ (:quit
+ (if (eq loga-current-endpoint :buffer)
+ (kill-buffer "*logalimacs*"))
+ (keyboard-quit))
+ (:detail (loga-display-detail))))
(defun loga-display-detail ()
"If popup where current endpoint, output to buffer. if buffer, quit buffer"