projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cf19b0d
)
* riece-lru.el (riece-lru-node-set-value): New function.
author
Daiki Ueno
<ueno@unixuser.org>
Fri, 18 Nov 2005 09:26:04 +0000
(09:26 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Fri, 18 Nov 2005 09:26:04 +0000
(09:26 +0000)
(riece-lru-set): Use it.
lisp/riece-lru.el
patch
|
blob
|
history
diff --git
a/lisp/riece-lru.el
b/lisp/riece-lru.el
index
c7d0daa
..
6c5cbbd
100644
(file)
--- a/
lisp/riece-lru.el
+++ b/
lisp/riece-lru.el
@@
-10,6
+10,10
@@
"Return value of NODE."
(aref node 1))
"Return value of NODE."
(aref node 1))
+(defun riece-lru-node-set-value (node value)
+ "Set value of NODE to VALUE."
+ (aset node 1 value))
+
(defun riece-lru-node-next (node)
"Return next of NODE."
(aref node 3))
(defun riece-lru-node-next (node)
"Return next of NODE."
(aref node 3))
@@
-112,10
+116,9
@@
(riece-lru-node-value node))))
(defun riece-lru-set (map key value)
(riece-lru-node-value node))))
(defun riece-lru-set (map key value)
- (let ((node (riece-lru-get-node map key))
- symbol)
+ (let ((node (riece-lru-get-node map key)))
(if node
(if node
- (
aset node 1
value)
+ (
riece-lru-node-set-value node
value)
(if (>= (riece-lru-map-hash-length map)
(riece-lru-map-max-length map))
(riece-lru-delete map (riece-lru-node-key
(if (>= (riece-lru-map-hash-length map)
(riece-lru-map-max-length map))
(riece-lru-delete map (riece-lru-node-key