null+****@clear*****
null+****@clear*****
Mon Jun 11 21:39:09 JST 2012
yuta yamada 2012-06-11 21:39:09 +0900 (Mon, 11 Jun 2012)
New Revision: d7836a1d6f1020dac488d7fbc3098d7f6bf816e2
Log:
Move into the let* instead of the setq
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -3)
===================================================================
--- logalimacs.el 2012-06-11 21:21:45 +0900 (0a799bb)
+++ logalimacs.el 2012-06-11 21:39:09 +0900 (82db696)
@@ -230,10 +230,9 @@
(loga-command (loga-input)))
(defun loga-lookup (&optional endpoint manual?)
- (let* (word content)
+ (let* ((word (loga-decide-source-word manual?))
+ (content (loga-command (concat "\"" word "\""))))
(loga-current-command :lookup)
- (setq word (loga-decide-source-word manual?))
- (setq content (loga-command (concat "\"" word "\"")))
(if (equal "" content)
(if loga-use-fallback
(text-translator/logalimacs-fallback-func)