[Emacs-diffs] emacs/lisp ChangeLog find-cmd.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/12/17 02:06:34

Modified files:
        lisp           : ChangeLog find-cmd.el 

Log message:
        Some doc fixes (more needed).
        
        * find-cmd.el (find-constituents): Reflow docstring.
          (find-cmd, find-prune, find-command): Fix typos in docstrings.
          (find-generic): Doc fix.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16912&r2=1.16913
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/find-cmd.el?cvsroot=emacs&r1=1.5&r2=1.6

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16912
retrieving revision 1.16913
diff -u -b -r1.16912 -r1.16913
--- ChangeLog   17 Dec 2009 01:18:14 -0000      1.16912
+++ ChangeLog   17 Dec 2009 02:06:31 -0000      1.16913
@@ -1,3 +1,11 @@
+2009-12-17  Juanma Barranquero  <address@hidden>
+
+       Some doc fixes (more needed).
+
+       * find-cmd.el (find-constituents): Reflow docstring.
+       (find-cmd, find-prune, find-command): Fix typos in docstrings.
+       (find-generic): Doc fix.
+
 2009-12-17  Juri Linkov  <address@hidden>
 
        Fix regression from 23.1 to allow multiple modes in Local Variables.

Index: find-cmd.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/find-cmd.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- find-cmd.el 5 Jan 2009 03:19:09 -0000       1.5
+++ find-cmd.el 17 Dec 2009 02:06:34 -0000      1.6
@@ -120,15 +120,16 @@
     (ok      . (1 find-command t))
     (execdir . (1 find-command t))
     (okdir   . (1 find-command t)))
-  "Holds details of each of the find options. The car of each
-alist is the name. The cdr is minimum args, the function used
-to join many occurences of the argument together, and whether or
-not to leave quotes off the string (non-nil means the string will
-be quoted).")
+  "Holds details of each of the find options.
+The car of each alist is the name.  The cdr is minimum args, the
+function used to join many occurences of the argument together,
+and whether or not to leave quotes off the string (non-nil means
+the string will be quoted).")
 
 ;;;###autoload
 (defun find-cmd (&rest subfinds)
-  "Initiate the building of a find command. For exmple:
+  "Initiate the building of a find command.
+For example:
 
 \(find-cmd '\(prune \(name \".svn\" \".git\" \".CVS\"\)\)
           '\(and \(or \(name \"*.pl\" \"*.pm\" \"*.t\"\)
@@ -178,7 +179,7 @@
   (concat "-not " (find-or (mapcar 'find-to-string form))))
 
 (defun find-prune (form)
-  "-or together FORM(s) postfix '-prune' and then -or that with a
+  "-or together FORMs postfix '-prune' and then -or that with a
 -true, so:
   \(prune \(name \".svn\" \".git\"\)\) \(name \"*.pm\"\)
 will produce (unwrapped):
@@ -190,11 +191,12 @@
     (find-generic "true"))))
 
 (defun find-generic (option &optional oper argcount args dont-quote)
-  "This function allows an arbitrary string to be used as a
-form. OPTION is the name of the form, OPER is the function used
-to either OR or AND multiple results together. ARGCOUNT is the
-minimum of args that OPTION can receive and ARGS are the
-arguments for OPTION."
+  "Allow an arbitrary string to be used as a form.
+OPTION is the name of the form, OPER is the function used to either
+OR or AND multiple results together.  ARGCOUNT is the minimum of
+args that OPTION can receive and ARGS are the arguments for OPTION.
+If DONT-QUOTE is non-nil, arguments are quoted for passing them to
+the shell."
   (when (and (numberp argcount) (< (length args) argcount))
     (error "'%s' needs at least %d arguments" option argcount))
   (let ((oper (or oper 'find-or)))