null+****@clear*****
null+****@clear*****
Tue Jun 12 07:47:29 JST 2012
yuta yamada 2012-06-12 07:47:29 +0900 (Tue, 12 Jun 2012)
New Revision: b3a4aa35ded4986d5925eda0852b9663ebf7c97a
Log:
Delete an unnecessary the let*
Modified files:
logalimacs.el
Modified: logalimacs.el (+7 -8)
===================================================================
--- logalimacs.el 2012-06-12 07:46:45 +0900 (218889f)
+++ logalimacs.el 2012-06-12 07:47:29 +0900 (3523cb5)
@@ -138,14 +138,13 @@
(defun loga-interactive-command ()
"interactive-command for logaling-command, types following mini-buffer."
(interactive)
- (let* (task)
- (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))
- (case loga-current-command
- (:add (loga-add))
- (:lookup (loga-lookup-at-manually))
- (:update (loga-update))
- (t (loga-command)))))
+ (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))
+ (case loga-current-command
+ (:add (loga-add))
+ (:lookup (loga-lookup-at-manually))
+ (:update (loga-update))
+ (t (loga-command))))
(defun loga-buffer-or-popup-command ()
(case loga-current-command