null+****@clear*****
null+****@clear*****
Wed Jun 13 09:26:27 JST 2012
yuta yamada 2012-06-13 09:26:27 +0900 (Wed, 13 Jun 2012) New Revision: eafee177f9264a334904707be40144714dce5743 Log: Delete unnecessary local variable Modified files: logalimacs.el Modified: logalimacs.el (+1 -2) =================================================================== --- logalimacs.el 2012-06-13 09:24:58 +0900 (a8ffb97) +++ logalimacs.el 2012-06-13 09:26:27 +0900 (e0b76e2) @@ -182,10 +182,9 @@ (defun loga-command (&optional arg) (let* ((cmd "\\loga") (task (loga-from-symbol-to-string loga-current-command)) - (symbol loga-current-command) (word (loga-lookup-attach-option arg))) (setq loga-base-buffer (current-buffer)) - (case symbol + (case loga-current-command (:lookup (loga-word-cache (cons arg (loga-to-shell cmd (concat task " " word)))) (cdar loga-word-cache))