null+****@clear*****
null+****@clear*****
Mon Jul 2 19:45:11 JST 2012
Yuta Yamada 2012-07-02 19:45:11 +0900 (Mon, 02 Jul 2012) New Revision: f2746480aab187e3ab797870c5b34968f9dde50b https://github.com/logaling/logalimacs/commit/f2746480aab187e3ab797870c5b34968f9dde50b Log: Move variable definition Modified files: logalimacs.el Modified: logalimacs.el (+2 -2) =================================================================== --- logalimacs.el 2012-07-02 19:31:17 +0900 (3691344) +++ logalimacs.el 2012-07-02 19:45:11 +0900 (0c8cc50) @@ -208,7 +208,8 @@ Example: (let* ((loga "\\loga") (task (loga-from-symbol-to-string loga-current-command)) (word-and-options (loga-lookup-attach-option search-word))) - (setq loga-base-buffer (current-buffer)) + (setq loga-base-buffer (current-buffer) + loga-marked-words nil) (case loga-current-command (:lookup (loga-produce-contents search-word word-and-options)) ((:add :update) (loga-add/update task)) @@ -226,7 +227,6 @@ Example: terminal-output)) (defun loga-add/update (task) - (setq loga-marked-words nil) (if mark-active (loga-return-marked-region)) (let* ((input (loga-input))) -------------- next part -------------- An HTML attachment was scrubbed...Download
