null+****@clear*****
null+****@clear*****
Tue Jun 26 23:33:09 JST 2012
yuta yamada 2012-06-26 23:33:09 +0900 (Tue, 26 Jun 2012) New Revision: 7dddb1449fc11299b1a004744f80ea1895831bc8 https://github.com/logaling/logalimacs/commit/7dddb1449fc11299b1a004744f80ea1895831bc8 Log: arg -> search-word Modified files: logalimacs.el Modified: logalimacs.el (+3 -3) =================================================================== --- logalimacs.el 2012-06-26 23:19:41 +0900 (1528112) +++ logalimacs.el 2012-06-26 23:33:09 +0900 (bce8fee) @@ -193,15 +193,15 @@ (defun loga-from-symbol-to-string (symbol) (replace-regexp-in-string ":" "" (symbol-name symbol))) -(defun loga-command (&optional arg) +(defun loga-command (&optional search-word) (let* ((loga "\\loga") (task (loga-from-symbol-to-string loga-current-command)) - (word (loga-lookup-attach-option arg))) + (word (loga-lookup-attach-option search-word))) (setq loga-base-buffer (current-buffer)) (case loga-current-command (:lookup (loga-register-output - (cons arg (loga-to-shell loga (concat task " " word)))) + (cons search-word (loga-to-shell loga (concat task " " word)))) (cdar loga-word-cache)) ((:add :update) (minibuffer-message (loga-to-shell loga (concat task " " (loga-input)))) -------------- next part -------------- An HTML attachment was scrubbed...下载
