null+****@clear*****
null+****@clear*****
Thu Jan 12 22:03:56 JST 2012
yuta yamada 2012-01-12 22:03:56 +0900 (Thu, 12 Jan 2012)
New Revision: c507036a3fb4db1bfe2195436eaee63ff96eaeff
Log:
refactor loga-lookup-in-hand-or-region(delete setq)
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -3)
===================================================================
--- logalimacs.el 2012-01-12 22:00:56 +0900 (f1cf430)
+++ logalimacs.el 2012-01-12 22:03:56 +0900 (320f06c)
@@ -103,9 +103,8 @@
(defun loga-lookup-in-hand-or-region (&optional word-for-fly-mode)
"search word from logaling. if not mark region, search word type on manual. otherwise passed character inside region."
(interactive)
- (let* (word)
- (setq word (or word-for-fly-mode
- (loga-point-or-read-string "Search word here: ")))
+ (let* ((word (or word-for-fly-mode
+ (loga-point-or-read-string "Search word here: "))))
(save-current-buffer
(loga-prompt-command "lookup" word))))