From 874f69307651f0f103d990ea1ca7bf4a12bc272e Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 18 Nov 2005 23:50:41 +0000 Subject: [PATCH] Fixed. --- lisp/riece-cache.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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) -- 1.7.10.4