null+****@clear*****
null+****@clear*****
Wed Jun 13 19:56:51 JST 2012
yuta yamada 2012-06-13 19:56:51 +0900 (Wed, 13 Jun 2012)
New Revision: 335619211fc3c0335956bbd84cac26176dbf9e2f
Log:
Rename: len -> cached-list-length
Modified files:
logalimacs.el
Modified: logalimacs.el (+4 -3)
===================================================================
--- logalimacs.el 2012-06-13 19:51:48 +0900 (4879ce6)
+++ logalimacs.el 2012-06-13 19:56:51 +0900 (336dd25)
@@ -206,9 +206,10 @@
(concat find-word " " (mapconcat 'identity options " "))))
(defun loga-word-cache (word)
- (let* ((len (length loga-word-cache)))
- (cond ((<= loga-word-cache-limit len)
- (setq loga-word-cache (nthcar (- len 1) loga-word-cache))))
+ (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)))
;;;###autoload