From: ueno <ueno>
Date: Fri, 18 Nov 2005 23:50:41 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: riece-2_0_2~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=874f69307651f0f103d990ea1ca7bf4a12bc272e;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-cache.el b/lisp/riece-cache.el
index a8df83f..f55703d 100644
--- a/lisp/riece-cache.el
+++ b/lisp/riece-cache.el
@@ -163,10 +163,9 @@ If KEY is not associated in MAP, it returns nil."
 				       (1+ (riece-cache-map-hash-length map)))
       (unless (riece-cache-map-first map)
 	(riece-cache-map-set-first map node))
-      (if (riece-cache-map-last map)
-	  (progn
-	    (riece-cache-node-set-next (riece-cache-map-last map) node)
-	    (riece-cache-node-set-previous node (riece-cache-map-last map))))
+      (when (riece-cache-map-last map)
+	(riece-cache-node-set-next (riece-cache-map-last map) node)
+	(riece-cache-node-set-previous node (riece-cache-map-last map)))
       (riece-cache-map-set-last map node))))
 
 (provide 'riece-cache)