projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
55818c0
)
Fixed indent.
author
Daiki Ueno
<ueno@unixuser.org>
Fri, 18 Nov 2005 13:52:46 +0000
(13:52 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Fri, 18 Nov 2005 13:52:46 +0000
(13:52 +0000)
lisp/riece-cache.el
patch
|
blob
|
history
diff --git
a/lisp/riece-cache.el
b/lisp/riece-cache.el
index
1a820a0
..
545af38
100644
(file)
--- a/
lisp/riece-cache.el
+++ b/
lisp/riece-cache.el
@@
-1,4
+1,4
@@
-;;; riece-cache.el --- LRU cache management
+;;; riece-cache.el --- LRU
based
cache management
;; Copyright (C) 1998-2005 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
;; Copyright (C) 1998-2005 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
@@
-149,9
+149,10
@@
(riece-cache-map-max-length map))
(riece-cache-delete map (riece-cache-node-key
(riece-cache-map-first map))))
(riece-cache-map-max-length map))
(riece-cache-delete map (riece-cache-node-key
(riece-cache-map-first map))))
- (setq node (riece-cache-make-node key value (riece-cache-map-last map)
nil
))
+ (setq node (riece-cache-make-node key value (riece-cache-map-last map)))
(set (intern key (riece-cache-map-hash-obarray map)) node)
(set (intern key (riece-cache-map-hash-obarray map)) node)
- (riece-cache-map-set-hash-length map (1+ (riece-cache-map-hash-length map)))
+ (riece-cache-map-set-hash-length map
+ (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)
(unless (riece-cache-map-first map)
(riece-cache-map-set-first map node))
(if (riece-cache-map-last map)