null+****@clear*****
null+****@clear*****
Tue Jun 26 23:17:43 JST 2012
yuta yamada 2012-06-26 23:17:43 +0900 (Tue, 26 Jun 2012) New Revision: 535799cdd9274d7cc12d0ff427d18e5362d2897b https://github.com/logaling/logalimacs/commit/535799cdd9274d7cc12d0ff427d18e5362d2897b Log: Use loga-input function instead of arg of argument Modified files: logalimacs.el Modified: logalimacs.el (+3 -4) =================================================================== --- logalimacs.el 2012-06-25 23:01:01 +0900 (4d5dcab) +++ logalimacs.el 2012-06-26 23:17:43 +0900 (8ab26e6) @@ -157,7 +157,6 @@ (read-event "types prefix of feature that want you :\n a)dd,c)onfig,d)elete,h)elp,i)mport,l)ookup,L)ist,n)ew,r)egister,U)nregister,u)pdate,v)ersion") (setq loga-current-command (loga-response-of-event loga-command-alist)) (case loga-current-command - ((:add :update) (loga-command (loga-input))) (:lookup (loga-lookup-at-manually)) (t (loga-command)))) @@ -205,7 +204,7 @@ (cons arg (loga-to-shell loga (concat task " " word)))) (cdar loga-word-cache)) ((:add :update) - (minibuffer-message (loga-to-shell loga (concat task " " arg)))) + (minibuffer-message (loga-to-shell loga (concat task " " (loga-input)))) ((:show :list) (loga-make-buffer (loga-to-shell loga task))) ((:config :delete :help :import :new) @@ -233,14 +232,14 @@ "this is command to adding word, first source word, second target word." (interactive) (setq loga-current-command :add) - (loga-command (loga-input))) + (loga-command)) ;;;###autoload (defun loga-update () "update to registered word" (interactive) (setq loga-current-command :update) - (loga-command (loga-input))) + (loga-command)) (defun loga-lookup (endpoint) (setq loga-current-command :lookup -------------- next part -------------- An HTML attachment was scrubbed...다운로드
