From: okazaki <okazaki>
Date: Tue, 10 Oct 2000 20:27:09 +0000 (+0000)
Subject: * elmo-util.el: Doc fixes.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ad4ee6e422de3a82aa95ed5cccde12cf1e43dc33;p=elisp%2Fwanderlust.git

* elmo-util.el: Doc fixes.
---

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 675f2b6..d12a8c4 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -1013,7 +1013,7 @@ Otherwise treat \\ in NEWTEXT string as special:
 	  (float (nth 7 file-attr))))))
 
 (defun elmo-get-last-accessed-time (path &optional dir)
-  "Returns last accessed time."
+  "Return the last accessed time of PATH."
   (let ((last-accessed (nth 4 (file-attributes (or (and dir
 							(expand-file-name
 							 path dir))
@@ -1024,7 +1024,7 @@ Otherwise treat \\ in NEWTEXT string as special:
       0)))
 
 (defun elmo-get-last-modification-time (path &optional dir)
-  "Returns last accessed time."
+  "Return the last accessed time of PATH."
   (let ((last-modified (nth 5 (file-attributes (or (and dir
 							(expand-file-name
 							 path dir))
@@ -1033,7 +1033,7 @@ Otherwise treat \\ in NEWTEXT string as special:
 			      (float 65536)) (nth 1 last-modified)))))
 
 (defun elmo-make-directory (path)
-  "create directory recursively."
+  "Create directory recursively."
   (let ((parent (directory-file-name (file-name-directory path))))
     (if (null (file-directory-p parent))
 	(elmo-make-directory parent))
@@ -1043,7 +1043,7 @@ Otherwise treat \\ in NEWTEXT string as special:
       )))
 
 (defun elmo-delete-directory (path &optional no-hierarchy)
-  "delete directory recursively."
+  "Delete directory recursively."
   (let ((dirent (directory-files path))
 	relpath abspath hierarchy)
     (while dirent
@@ -1435,7 +1435,7 @@ Otherwise treat \\ in NEWTEXT string as special:
     (kill-buffer buffer)))
 
 (defun elmo-delete-if (pred lst)
-  "Returns new list contains items which don't satisfy PRED in LST."
+  "Return new list contains items which don't satisfy PRED in LST."
   (let (result)
     (while lst
       (unless (funcall pred (car lst))
@@ -1454,7 +1454,7 @@ the value of `foo'."
   list2)
 
 (defun elmo-list-member (list1 list2)
-  "If any element of list1 is member of list2, returns t."
+  "If any element of list1 is member of list2, return t."
   (catch 'done
     (while list1
       (if (member (car list1) list2)
@@ -1541,7 +1541,7 @@ But if optional argument AUTO is non-nil, DEFAULT is returned."
     (y-or-n-p prompt)))
 
 (defun elmo-string-member (string slist)
-  "Returns t if STRING is a member of the SLIST."
+  "Return t if STRING is a member of the SLIST."
   (catch 'found
     (while slist
       (if (and (stringp (car slist))
@@ -1620,7 +1620,7 @@ But if optional argument AUTO is non-nil, DEFAULT is returned."
 ;; number-set      ::= "(" *number-set-elem ")"   ;; list
 
 (defun elmo-number-set-member (number number-set)
-  "Returns non-nil if NUMBER is an element of NUMBER-SET.
+  "Return non-nil if NUMBER is an element of NUMBER-SET.
 The value is actuall the tail of SET-LIST whose car contains NUMBER."
   (or (memq number number-set)
       (let (found)