null+****@clear*****
null+****@clear*****
Wed Jun 13 19:59:00 JST 2012
yuta yamada 2012-06-13 19:59:00 +0900 (Wed, 13 Jun 2012)
New Revision: 04d6845a06d83de5ad9976be7f25c86760f1f1c6
Log:
Rename: word -> current-search-words
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -2)
===================================================================
--- logalimacs.el 2012-06-13 19:56:51 +0900 (336dd25)
+++ logalimacs.el 2012-06-13 19:59:00 +0900 (6e3ce90)
@@ -205,12 +205,12 @@
(push "--output=json" options))
(concat find-word " " (mapconcat 'identity options " "))))
-(defun loga-word-cache (word)
+(defun loga-word-cache (current-search-words)
(let* ((cached-list-length (length loga-word-cache)))
(cond ((<= loga-word-cache-limit cached-list-length)
(setq loga-word-cache (nthcar (- cached-list-length 1)
loga-word-cache))))
- (push word loga-word-cache)))
+ (push current-search-words loga-word-cache)))
;;;###autoload
(defun loga-add ()