null+****@clear*****
null+****@clear*****
Mon Jun 25 22:37:16 JST 2012
yuta yamada 2012-06-25 22:37:16 +0900 (Mon, 25 Jun 2012) New Revision: fe4b311d0a86d508304b60576d35bef4c5aa50d6 https://github.com/logaling/logalimacs/commit/fe4b311d0a86d508304b60576d35bef4c5aa50d6 Log: cmd -> loga Modified files: logalimacs.el Modified: logalimacs.el (+6 -6) =================================================================== --- logalimacs.el 2012-06-25 22:32:15 +0900 (970b1c6) +++ logalimacs.el 2012-06-25 22:37:16 +0900 (d0bbc0b) @@ -195,22 +195,22 @@ (replace-regexp-in-string ":" "" (symbol-name symbol))) (defun loga-command (&optional arg) - (let* ((cmd "\\loga") + (let* ((loga "\\loga") (task (loga-from-symbol-to-string loga-current-command)) (word (loga-lookup-attach-option arg))) (setq loga-base-buffer (current-buffer)) (case loga-current-command (:lookup - (loga-word-cache (cons arg (loga-to-shell cmd (concat task " " word)))) + (loga-word-cache (cons arg (loga-to-shell loga (concat task " " word)))) (cdar loga-word-cache)) ((:add :update) - (minibuffer-message (loga-to-shell cmd (concat task " " arg)))) + (minibuffer-message (loga-to-shell loga (concat task " " arg)))) ((:show :list) - (loga-make-buffer (loga-to-shell cmd task))) + (loga-make-buffer (loga-to-shell loga task))) ((:config :delete :help :import :new) - (loga-make-buffer (loga-to-shell cmd (concat task " " (loga-input))))) + (loga-make-buffer (loga-to-shell loga (concat task " " (loga-input))))) ((:register :unregister :version) - (minibuffer-message (loga-to-shell cmd task)))))) + (minibuffer-message (loga-to-shell loga task)))))) (defun loga-lookup-attach-option (search-word) (let* ((options '())) -------------- next part -------------- An HTML attachment was scrubbed...Download