From beb3399a4115f4e3009b9ef9556c77ecc2fedc32 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Fri, 18 Nov 2005 13:55:24 +0000
Subject: [PATCH] Add doc.

---
 lisp/riece-cache.el |    7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lisp/riece-cache.el b/lisp/riece-cache.el
index 7d2c39c..a8df83f 100644
--- a/lisp/riece-cache.el
+++ b/lisp/riece-cache.el
@@ -95,14 +95,19 @@
 (defalias 'riece-make-cache 'riece-cache-make-map)
 
 (defun riece-cache-contains (map key)
+  "Return t if MAP contains an entry whose key is KEY."
   (intern-soft key (riece-cache-map-hash-obarray map)))
 
 (defun riece-cache-get (map key)
+  "Return the value associated with KEY in MAP.
+If KEY is not associated in MAP, it returns nil."
   (let ((node (riece-cache-get-node map key)))
     (if node
 	(riece-cache-node-value node))))
 
 (defun riece-cache-get-node (map key)
+  "Return a node object associcated with KEY in MAP.
+If KEY is not associated in MAP, it returns nil."
   (let ((symbol (intern-soft key (riece-cache-map-hash-obarray map)))
 	previous next last node)
     (when symbol
@@ -123,6 +128,7 @@
       node)))
 
 (defun riece-cache-delete (map key)
+  "Remove an entry from MAP whose key is KEY."
   (let ((symbol (intern-soft key (riece-cache-map-hash-obarray map)))
 	previous next node)
     (when symbol
@@ -143,6 +149,7 @@
       (riece-cache-node-value node))))
 
 (defun riece-cache-set (map key value)
+  "Associate KEY with VALUE in MAP."
   (let ((node (riece-cache-get-node map key)))
     (if node
 	(riece-cache-node-set-value node value)
-- 
1.7.10.4