null+****@clear*****
null+****@clear*****
Mon Jul 2 11:54:34 JST 2012
yuta yamada 2012-07-02 11:54:34 +0900 (Mon, 02 Jul 2012) New Revision: 3ba4adb82cdfe0f03096276d69e4853f011a5c66 https://github.com/logaling/logalimacs/commit/3ba4adb82cdfe0f03096276d69e4853f011a5c66 Log: Delete an unnecessary the setq Modified files: logalimacs.el Modified: logalimacs.el (+6 -7) =================================================================== --- logalimacs.el 2012-07-02 11:43:40 +0900 (1b6a79f) +++ logalimacs.el 2012-07-02 11:54:34 +0900 (6f8646e) @@ -434,13 +434,12 @@ Otherwise passed character inside region." (defun loga-return-word-on-cursor () "Return word where point on cursor." - (let* (match-word) - (save-excursion - (setq match-word - (if (looking-at "\\w") - (word-at-point) - (backward-word) - (word-at-point))) + (save-excursion + (let ((match-word + (if (looking-at "\\w") + (word-at-point) + (backward-word) + (word-at-point)))) (if loga-log-output (print match-word)) ;;log (if (string-match "[上-黑]" match-word) (loga-reject-hiragana match-word) -------------- next part -------------- An HTML attachment was scrubbed...Download
