null+****@clear*****
null+****@clear*****
Wed Jun 13 19:51:48 JST 2012
yuta yamada 2012-06-13 19:51:48 +0900 (Wed, 13 Jun 2012)
New Revision: d2db81ed5c749c2937860b39c5d2c962c3592c70
Log:
Rename: loga-input-event -> loga-response-of-event
Modified files:
logalimacs.el
Modified: logalimacs.el (+3 -3)
===================================================================
--- logalimacs.el 2012-06-13 09:26:27 +0900 (e0b76e2)
+++ logalimacs.el 2012-06-13 19:51:48 +0900 (4879ce6)
@@ -131,7 +131,7 @@
(?k . :previous-line)
(?d . :detail)))
-(defun loga-input-event (command-alist)
+(defun loga-response-of-event (command-alist)
(assoc-default last-input-event command-alist))
;;;###autoload
@@ -139,7 +139,7 @@
"interactive-command for logaling-command, types following mini-buffer."
(interactive)
(read-event "types prefix of feature that want you :\n a)dd,c)onfig,d)elete,h)elp,i)mport,l)ookup,n)ew,r)egister,U)nregister,u)pdate,v)ersion")
- (setq loga-current-command (loga-input-event loga-command-alist))
+ (setq loga-current-command (loga-response-of-event loga-command-alist))
(case loga-current-command
(:add (loga-add))
(:lookup (loga-lookup-at-manually))
@@ -150,7 +150,7 @@
(case loga-current-command
(:lookup
(read-event "")
- (case (loga-input-event loga-buffer-or-popup-command-alist)
+ (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)))