projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
459fdc7
)
Fixed.
author
Daiki Ueno
<ueno@unixuser.org>
Fri, 18 Nov 2005 23:50:41 +0000
(23:50 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Fri, 18 Nov 2005 23:50:41 +0000
(23:50 +0000)
lisp/riece-cache.el
patch
|
blob
|
history
diff --git
a/lisp/riece-cache.el
b/lisp/riece-cache.el
index
a8df83f
..
f55703d
100644
(file)
--- 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))
(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)
(riece-cache-map-set-last map node))))
(provide 'riece-cache)