# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1261015591 0
# Node ID 127ccb50f94eca34aceb66337a41fbabafe1513b
# Parent  b38517de715f83b8c0a0d71e2e0f176d93fb3807
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.

diff -r b38517de715f -r 127ccb50f94e lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Dec 17 01:18:14 2009 +0000
+++ b/lisp/ChangeLog	Thu Dec 17 02:06:31 2009 +0000
@@ -1,3 +1,11 @@
+2009-12-17  Juanma Barranquero  <lekktu@gmail.com>
+
+	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  <juri@jurta.org>
 
 	Fix regression from 23.1 to allow multiple modes in Local Variables.
@@ -661,7 +669,7 @@
 
 	* progmodes/cc-mode.el (c-basic-common-init):
 	Call c-state-cache-init.
-	(c-neutralize-syntax-in-and-mark-CPP):  Rename from
+	(c-neutralize-syntax-in-and-mark-CPP): Rename from
 	c-extend-and-neutralize-syntax-in-CPP.  Mark each CPP construct by
 	placing `category' properties value 'c-cpp-delimiter at its boundaries.
 
diff -r b38517de715f -r 127ccb50f94e lisp/find-cmd.el
--- a/lisp/find-cmd.el	Thu Dec 17 01:18:14 2009 +0000
+++ b/lisp/find-cmd.el	Thu Dec 17 02:06:31 2009 +0000
@@ -23,7 +23,7 @@
 ;;; Commentary:
 
 ;; With this module you can build up a (hopefully) valid find(1)
-;; string ready for the command line. For example:
+;; string ready for the command line.  For example:
 
 ;; (find-cmd '(prune (name ".svn" ".git" ".CVS"))
 ;;           '(and (or (name "*.pl" "*.pm" "*.t")
@@ -120,22 +120,23 @@
     (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\"\)
                     \(mtime \"+1\"\)\)
                 \(fstype \"nfs\" \"ufs\"\)\)\)\)
 
-`default-directory' is used as the initial search path. The
+`default-directory' is used as the initial search path.  The
 result is a string that should be ready for the command line."
   (concat
    "find " (shell-quote-argument (expand-file-name default-directory)) " "
@@ -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)))
@@ -211,7 +213,7 @@
 
 (defun find-command (form)
   "For each item in FORM add a terminating semi-colon and turn
-them into valid switches. The result is -and(ed) together."
+them into valid switches.  The result is -and(ed) together."
   (find-and (mapcar (lambda (x)
                       (concat (find-to-string x) "\\; "))
                     form)))