null+****@clear*****
null+****@clear*****
Tue Jan 3 14:02:26 JST 2012
yuta yamada 2012-01-03 14:02:26 +0900 (Tue, 03 Jan 2012)
New Revision: e0bdc392b54534f1c3377055550d34bdc2ff8118
Log:
fix interactive command
Modified files:
logalimacs.el
Modified: logalimacs.el (+15 -15)
===================================================================
--- logalimacs.el 2012-01-03 13:32:58 +0900 (c8f0a92)
+++ logalimacs.el 2012-01-03 14:02:26 +0900 (6ed6be4)
@@ -39,23 +39,23 @@
(cond ((equal task "add") (loga-add-word))
((equal task "lookup") (loga-lookup-in-hand-or-region))
((equal task "config")
- (loga-prompt-command task (read-string "loga config: "))
- ((equal task "help")
+ (loga-prompt-command task (read-string "loga config: ")))
+ ((equal task "help")
(loga-prompt-command task (read-string "loga help: ")))
- ((equal task "import")
+ ((equal task "import")
(loga-prompt-command task (read-string "loga import: ")))
- ((equal task "new")
- (loga-prompt-command task (read-string "loga new: ")))
- ((equal task "register")
- (loga-prompt-command task (read-string "loga register: ")))
- ((equal task "unregister")
- (loga-prompt-command task (read-string "loga unregister: ")))
- ((equal task "update")
- (loga-prompt-command task (read-string "loga update: ")))
- ((equal task "version")
- (loga-prompt-command task)) ;;todo examine to avoided output
- ))
- )))
+ ((equal task "new")
+ (loga-prompt-command task (read-string "loga new: ")))
+ ((equal task "register")
+ (loga-prompt-command task (read-string "loga register: ")))
+ ((equal task "unregister")
+ (loga-prompt-command task (read-string "loga unregister: ")))
+ ((equal task "update")
+ (loga-prompt-command task (read-string "loga update: ")))
+ ((equal task "version")
+ (loga-prompt-command task))
+ ))
+ ))
(defun loga-prompt-command (cmd &optional arg help)
"yet can't be docstring"