Fix typos in docstrings.

* cus-edit.el (customize-apropos-options, custom-comment)
  (custom-comment-tag, custom-face-edit-attribute-tag):
  Fix typos in docstrings.
  (custom-buffer-done-kill): Remove * from defcustom docstring.
  (custom-file): Fix typo in doc of defcustom choice.

* frame.el (display-visual-class): Fix typo in docstring.
  (initial-frame-alist, minibuffer-frame-alist, pop-up-frame-alist)
  (special-display-frame-alist, show-trailing-whitespace)
  (auto-hscroll-mode, blink-cursor-delay, blink-cursor-interval)
  (display-hourglass, hourglass-delay, cursor-in-non-selected-windows):
  Remove * from defcustom docstrings.

* md4.el (md4-buffer): Fix typo in docstring.
  (md4, md4-64): Doc fixes.
  (md4-pack-int32): Reflow docstring.

* paths.el (rmail-file-name): Remove * from defcustom docstring.
  (prune-directory-list, gnus-nntp-service): Fix typos in docstrings.

* rect.el (open-rectangle): Reflow docstring.
  (spaces-string): Fix docstring typo.  Use "?\s" instead of "? ".

* select.el (x-get-cut-buffer): Fix typo in docstring.

* timezone.el (timezone-zone-to-minute, timezone-time-from-absolute)
  (timezone-time-zone-from-absolute, timezone-leap-year-p):
  Fix typos in docstrings.

* emacs-lisp/assoc.el (asort, aelement, aput, aget, amake):
  Fix typos in docstrings.

9 files changed, 85 insertions, 48 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f89416376e..787ad8b9545 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,37 @@
+2008-11-01  Juanma Barranquero  <lekktu@gmail.com>
+
+        * cus-edit.el (customize-apropos-options, custom-comment)
+        (custom-comment-tag, custom-face-edit-attribute-tag):
+        Fix typos in docstrings.
+        (custom-buffer-done-kill): Remove * from defcustom docstring.
+        (custom-file): Fix typo in doc of defcustom choice.
+
+        * frame.el (display-visual-class): Fix typo in docstring.
+        (initial-frame-alist, minibuffer-frame-alist, pop-up-frame-alist)
+        (special-display-frame-alist, show-trailing-whitespace)
+        (auto-hscroll-mode, blink-cursor-delay, blink-cursor-interval)
+        (display-hourglass, hourglass-delay, cursor-in-non-selected-windows):
+        Remove * from defcustom docstrings.
+
+        * md4.el (md4-buffer): Fix typo in docstring.
+        (md4, md4-64): Doc fixes.
+        (md4-pack-int32): Reflow docstring.
+
+        * paths.el (rmail-file-name): Remove * from defcustom docstring.
+        (prune-directory-list, gnus-nntp-service): Fix typos in docstrings.
+
+        * rect.el (open-rectangle): Reflow docstring.
+        (spaces-string): Fix docstring typo.  Use "?\s" instead of "? ".
+
+        * select.el (x-get-cut-buffer): Fix typo in docstring.
+
+        * timezone.el (timezone-zone-to-minute, timezone-time-from-absolute)
+        (timezone-time-zone-from-absolute, timezone-leap-year-p):
+        Fix typos in docstrings.
+
+        * emacs-lisp/assoc.el (asort, aelement, aput, aget, amake):
+        Fix typos in docstrings.
+
 2008-10-31  Ulf Jasper  <ulf.jasper@web.de>
 
         * net/newst-backend.el (newsticker--cache-update): Fix no-save case.
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 2e322606d52..c32dba5bbe2 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1426,7 +1426,7 @@ that are not customizable options, as well as faces and groups
 ;;;###autoload
 (defun customize-apropos-options (regexp &optional arg)
   "Customize all loaded customizable options matching REGEXP.
-With prefix arg, include variables that are not customizable options
+With prefix ARG, include variables that are not customizable options
 \(but it is better to use `apropos-variable' if you want to find those)."
   (interactive "sCustomize options (regexp): \nP")
   (customize-apropos regexp (or arg 'options)))
@@ -1456,7 +1456,7 @@ links: groups have links to subgroups."
   :group 'custom-buffer)
 
 (defcustom custom-buffer-done-kill nil
-  "*Non-nil means exiting a Custom buffer should kill it."
+  "Non-nil means exiting a Custom buffer should kill it."
   :type 'boolean
   :version "22.1"
   :group 'custom-buffer)
@@ -2363,7 +2363,7 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
                            :background "dim gray")
                           (t
                            :slant italic))
-  "Face used for comments on variables or faces"
+  "Face used for comments on variables or faces."
   :version "21.1"
   :group 'custom-faces)
 ;; backward-compatibility alias
@@ -2378,7 +2378,7 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
     (((class grayscale) (background dark))
      (:foreground "LightGray" :weight bold :slant italic))
     (t (:weight bold)))
-  "Face used for variables or faces comment tags"
+  "Face used for variables or faces comment tags."
   :group 'custom-faces)
 ;; backward-compatibility alias
 (put 'custom-comment-tag-face 'face-alias 'custom-comment-tag)
@@ -3115,7 +3115,7 @@ Also change :reverse-video to :inverse-video."
 
 
 (defun custom-face-edit-attribute-tag (widget)
-  "Returns the first :tag property in WIDGET or one of its children."
+  "Return the first :tag property in WIDGET or one of its children."
   (let ((tag (widget-get widget :tag)))
     (or (and (not (equal tag "")) tag)
         (let ((children (widget-get widget :children)))
@@ -4230,7 +4230,7 @@ and hence will not set `custom-file' to that file either."
                        :doc
                        "Please read entire docstring below before setting \
 this through Custom.
-Click om \"More\" \(or position point there and press RETURN)
+Click on \"More\" \(or position point there and press RETURN)
 if only the first line of the docstring is shown."))
   :group 'customize)
 
diff --git a/lisp/emacs-lisp/assoc.el b/lisp/emacs-lisp/assoc.el
index 1f9eb8f2c54..4c3117dbbfa 100644
--- a/lisp/emacs-lisp/assoc.el
+++ b/lisp/emacs-lisp/assoc.el
@@ -30,7 +30,7 @@
 
 (defun asort (alist-symbol key)
   "Move a specified key-value pair to the head of an alist.
-The alist is referenced by ALIST-SYMBOL. Key-value pair to move to
+The alist is referenced by ALIST-SYMBOL.  Key-value pair to move to
 head is one matching KEY.  Returns the sorted list and doesn't affect
 the order of any other key-value pair.  Side effect sets alist to new
 sorted list."
@@ -40,7 +40,7 @@ sorted list."
 
 
 (defun aelement (key value)
-  "Makes a list of a cons cell containing car of KEY and cdr of VALUE.
+  "Make a list of a cons cell containing car of KEY and cdr of VALUE.
 The returned list is suitable as an element of an alist."
   (list (cons key value)))
 
@@ -61,14 +61,14 @@ pair is not at the head of alist.  ALIST is not altered."
 
 (defun aput (alist-symbol key &optional value)
   "Inserts a key-value pair into an alist.
-The alist is referenced by ALIST-SYMBOL. The key-value pair is made
-from KEY and optionally, VALUE. Returns the altered alist or nil if
+The alist is referenced by ALIST-SYMBOL.  The key-value pair is made
+from KEY and optionally, VALUE.  Returns the altered alist or nil if
 ALIST is nil.
 
 If the key-value pair referenced by KEY can be found in the alist, and
 VALUE is supplied non-nil, then the value of KEY will be set to VALUE.
 If VALUE is not supplied, or is nil, the key-value pair will not be
-modified, but will be moved to the head of the alist. If the key-value
+modified, but will be moved to the head of the alist.  If the key-value
 pair cannot be found in the alist, it will be inserted into the head
 of the alist (with value nil if VALUE is nil or not supplied)."
   (let ((elem (aelement key value))
@@ -93,14 +93,14 @@ is pair matching KEY.  Returns the altered alist."
 
 
 (defun aget (alist key &optional keynil-p)
-  "Returns the value in ALIST that is associated with KEY.
+  "Return the value in ALIST that is associated with KEY.
 Optional KEYNIL-P describes what to do if the value associated with
 KEY is nil.  If KEYNIL-P is not supplied or is nil, and the value is
 nil, then KEY is returned.  If KEYNIL-P is non-nil, then nil would be
 returned.
 
 If no key-value pair matching KEY could be found in ALIST, or ALIST is
-nil then nil is returned. ALIST is not altered."
+nil then nil is returned.  ALIST is not altered."
   (let ((copy (copy-alist alist)))
     (cond ((null alist) nil)
           ((progn (asort 'copy key)
@@ -114,8 +114,8 @@ nil then nil is returned. ALIST is not altered."
 (defun amake (alist-symbol keylist &optional valuelist)
   "Make an association list.
 The association list is attached to the alist referenced by
-ALIST-SYMBOL. Each element in the KEYLIST becomes a key and is
-associated with the value in VALUELIST with the same index. If
+ALIST-SYMBOL.  Each element in the KEYLIST becomes a key and is
+associated with the value in VALUELIST with the same index.  If
 VALUELIST is not supplied or is nil, then each key in KEYLIST is
 associated with nil.
 
diff --git a/lisp/frame.el b/lisp/frame.el
index ae0803d6a8d..e2609ba259d 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -51,7 +51,7 @@ Parameters specified here supersede the values given in `default-frame-alist'.")
 ;; But that's not necessary, because the default is to have one.
 ;; By not specifying it here, we let an X resource specify it.
 (defcustom initial-frame-alist nil
-  "*Alist of frame parameters for creating the initial X window frame.
+  "Alist of frame parameters for creating the initial X window frame.
 You can set this in your `.emacs' file; for example,
  (setq initial-frame-alist '((top . 1) (left . 1) (width . 80) (height . 55)))
 Parameters specified here supersede the values given in `default-frame-alist'.
@@ -76,7 +76,7 @@ as it appears, you need to use this three-step process:
   :group 'frames)
 
 (defcustom minibuffer-frame-alist '((width . 80) (height . 2))
-  "*Alist of frame parameters for initially creating a minibuffer frame.
+  "Alist of frame parameters for initially creating a minibuffer frame.
 You can set this in your `.emacs' file; for example,
  (setq minibuffer-frame-alist
    '((top . 1) (left . 1) (width . 80) (height . 2)))
@@ -88,7 +88,7 @@ Parameters specified here supersede the values given in
   :group 'frames)
 
 (defcustom pop-up-frame-alist nil
-  "*Alist of frame parameters used when creating pop-up frames.
+  "Alist of frame parameters used when creating pop-up frames.
 Pop-up frames are used for completions, help, and the like.
 This variable can be set in your init file, like this:
   (setq pop-up-frame-alist '((width . 80) (height . 20)))
@@ -108,7 +108,7 @@ It is called with no arguments and should return a newly created frame."
 
 (defcustom special-display-frame-alist
   '((height . 14) (width . 80) (unsplittable . t))
-  "*Alist of frame parameters used when creating special frames.
+  "Alist of frame parameters used when creating special frames.
 Special frames are used for buffers whose names are in
 `special-display-buffer-names' and for buffers whose names match
 one of the regular expressions in `special-display-regexps'.
@@ -1107,7 +1107,7 @@ To get the frame's current border color, use `frame-parameters'."
 
 (defun auto-raise-mode (arg)
   "Toggle whether or not the selected frame should auto-raise.
-With arg, turn auto-raise mode on if and only if arg is positive.
+With ARG, turn auto-raise mode on if and only if ARG is positive.
 Note that this controls Emacs's own auto-raise feature.
 Some window managers allow you to enable auto-raise for certain windows.
 You can use that for Emacs windows if you wish, but if you do,
@@ -1124,7 +1124,7 @@ that is beyond the control of Emacs and this command has no effect on it."
 
 (defun auto-lower-mode (arg)
   "Toggle whether or not the selected frame should auto-lower.
-With arg, turn auto-lower mode on if and only if arg is positive.
+With ARG, turn auto-lower mode on if and only if ARG is positive.
 Note that this controls Emacs's own auto-lower feature.
 Some window managers allow you to enable auto-lower for certain windows.
 You can use that for Emacs windows if you wish, but if you do,
@@ -1364,7 +1364,7 @@ the question is inapplicable to a certain kind of display."
 (declare-function x-display-visual-class "xfns.c" (&optional terminal))
 
 (defun display-visual-class (&optional display)
-  "Returns the visual class of DISPLAY.
+  "Return the visual class of DISPLAY.
 The value is one of the symbols `static-gray', `gray-scale',
 `static-color', `pseudo-color', `true-color', or `direct-color'."
   (let ((frame-type (framep-on-display display)))
@@ -1491,7 +1491,7 @@ left untouched.  FRAME nil or omitted means use the selected frame."
 (make-variable-buffer-local 'show-trailing-whitespace)
 
 (defcustom show-trailing-whitespace nil
-  "*Non-nil means highlight trailing whitespace.
+  "Non-nil means highlight trailing whitespace.
 This is done in the face `trailing-whitespace'."
   :type 'boolean
   :group 'whitespace-faces)
@@ -1506,7 +1506,7 @@ This is done in the face `trailing-whitespace'."
   :group 'frames)
 
 (defcustom auto-hscroll-mode t
-  "*Allow or disallow automatic scrolling windows horizontally.
+  "Allow or disallow automatic scrolling windows horizontally.
 If non-nil, windows are automatically scrolled horizontally to make
 point visible."
   :version "21.1"
@@ -1523,12 +1523,12 @@ point visible."
   :group 'frames)
 
 (defcustom blink-cursor-delay 0.5
-  "*Seconds of idle time after which cursor starts to blink."
+  "Seconds of idle time after which cursor starts to blink."
   :type 'number
   :group 'cursor)
 
 (defcustom blink-cursor-interval 0.5
-  "*Length of cursor blink interval in seconds."
+  "Length of cursor blink interval in seconds."
   :type 'number
   :group 'cursor)
 
@@ -1602,20 +1602,20 @@ cursor display.  On a text-only terminal, this is not implemented."
 ;; Hourglass pointer
 
 (defcustom display-hourglass t
-  "*Non-nil means show an hourglass pointer, when Emacs is busy.
+  "Non-nil means show an hourglass pointer, when Emacs is busy.
 This feature only works when on a window system that can change
 cursor shapes."
   :type 'boolean
   :group 'cursor)
 
 (defcustom hourglass-delay 1
-  "*Seconds to wait before displaying an hourglass pointer when Emacs is busy."
+  "Seconds to wait before displaying an hourglass pointer when Emacs is busy."
   :type 'number
   :group 'cursor)
 
 
 (defcustom cursor-in-non-selected-windows t
-  "*Non-nil means show a hollow box cursor in non-selected windows.
+  "Non-nil means show a hollow box cursor in non-selected windows.
 If nil, don't show a cursor except in the selected window.
 If t, display a cursor related to the usual cursor type
  \(a solid box becomes hollow, a bar becomes a narrower bar).
diff --git a/lisp/md4.el b/lisp/md4.el
index aab839318e6..58d246ec006 100644
--- a/lisp/md4.el
+++ b/lisp/md4.el
@@ -28,11 +28,12 @@
 ;;; MD4 hash calculation
 
 (defvar md4-buffer (make-vector 4 '(0 . 0))
-  "work buffer of four 32-bit integers")
+  "Work buffer of four 32-bit integers.")
 
 (defun md4 (in n)
-  "Returns the MD4 hash string of 16 bytes long for a string IN of N
-bytes long.  N is required to handle strings containing character 0."
+  "Return the MD4 hash for a string IN of length N bytes.
+The returned hash is 16 bytes long.  N is required to handle
+strings containing the character 0."
   (let (m
         (b (cons 0 (* n 8)))
         (i 0)
@@ -115,8 +116,9 @@ bytes long.  N is required to handle strings containing character 0."
   (cons (logand (car x) (car y)) (logand (cdr x) (cdr y))))
 
 (defun md4-64 (m)
-  "Calculate md4 of 64 bytes chunk M which is represented as 16 pairs of
-32 bits integers.  The resulting md4 value is placed in md4-buffer."
+  "Calculate MD4 hash of M.
+M is a 64-bytes chunk, represented as 16 pairs of 32-bit integers.
+The resulting MD4 value is placed in `md4-buffer'."
   (let ((a (aref md4-buffer 0))
         (b (aref md4-buffer 1))
         (c (aref md4-buffer 2))
@@ -199,8 +201,9 @@ bytes long.  N is required to handle strings containing character 0."
     str))
 
 (defun md4-pack-int32 (int32)
-  "Pack 32 bits integer in a 4 bytes string as little endian.  A 32 bits
-integer is represented as a pair of two 16 bits integers (cons high low)."
+  "Pack 32 bits integer in a 4 bytes string as little endian.
+A 32 bits integer is represented as a pair of two 16 bits
+integers (cons high low)."
   (let ((str (make-string 4 0))
         (h (car int32)) (l (cdr int32)))
     (aset str 0 (logand l 255))
diff --git a/lisp/paths.el b/lisp/paths.el
index 2dc1f977cb7..ff49640855a 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -36,7 +36,7 @@
 ;; DOC file rather than in memory.
 
 (defun prune-directory-list (dirs &optional keep reject)
-  "Returns a copy of DIRS with all non-existent directories removed.
+  "Return a copy of DIRS with all non-existent directories removed.
 The optional argument KEEP is a list of directories to retain even if
 they don't exist, and REJECT is a list of directories to remove from
 DIRS, even if they exist; REJECT takes precedence over KEEP.
@@ -122,7 +122,7 @@ The name of the host running an NNTP server.
 The null string means use the local host as the server site.")
 
 (defvar gnus-nntp-service "nntp"
-  "NNTP service name, usually \"nntp\" or 119).
+  "NNTP service name, usually \"nntp\" or 119.
 Go to a local news spool if its value is nil, in which case `gnus-nntp-server'
 should be set to `(system-name)'.")
 
@@ -131,7 +131,7 @@ should be set to `(system-name)'.")
 The `ORGANIZATION' environment variable is used instead if defined.")
 
 (defcustom rmail-file-name "~/RMAIL"
-  "*Name of user's primary mail file."
+  "Name of user's primary mail file."
   :type 'string
   :group 'rmail
   :version "21.1")
diff --git a/lisp/rect.el b/lisp/rect.el
index 594405716ee..c59415c2c0f 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -187,9 +187,9 @@ the function is called."
 
 ;; this one is untouched --dv
 (defun spaces-string (n)
-  "Returns a string with N spaces."
+  "Return a string with N spaces."
   (if (<= n 8) (aref spaces-strings n)
-    (make-string n ? )))
+    (make-string n ?\s)))
 
 ;;;###autoload
 (defun delete-rectangle (start end &optional fill)
@@ -290,8 +290,8 @@ The text previously in the region is not overwritten by the blanks,
 but instead winds up to the right of the rectangle.
 
 When called from a program the rectangle's corners are START and END.
-With a prefix (or a FILL) argument, fill with blanks even if there is no text
-on the right side of the rectangle."
+With a prefix (or a FILL) argument, fill with blanks even if there is
+no text on the right side of the rectangle."
   (interactive "*r\nP")
   (apply-on-rectangle 'open-rectangle-line start end fill)
   (goto-char start))
diff --git a/lisp/select.el b/lisp/select.el
index 96800039508..e4c3addc699 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -182,7 +182,7 @@ prefix argument, it uses the text of the region as the selection value ."
 (declare-function x-get-cut-buffer-internal "xselect.c")
 
 (defun x-get-cut-buffer (&optional which-one)
-  "Returns the value of one of the 8 X server cut-buffers.
+  "Return the value of one of the 8 X server cut-buffers.
 Optional arg WHICH-ONE should be a number from 0 to 7, defaulting to 0.
 Cut buffers are considered obsolete; you should use selections instead."
   (x-get-cut-buffer-internal
diff --git a/lisp/timezone.el b/lisp/timezone.el
index 24e0a4850a5..afb46b060be 100644
--- a/lisp/timezone.el
+++ b/lisp/timezone.el
@@ -258,7 +258,7 @@ Recognize HH:MM:SS, HH:MM, HHMMSS, HHMM."
 
 (defun timezone-zone-to-minute (timezone)
   "Translate TIMEZONE to an integer minute offset from GMT.
-TIMEZONE can be a cons cell containing the output of current-time-zone,
+TIMEZONE can be a cons cell containing the output of `current-time-zone',
 or an integer of the form +-HHMM, or a time zone name."
   (cond
      ((consp timezone)
@@ -280,7 +280,7 @@ or an integer of the form +-HHMM, or a time zone name."
 
 (defun timezone-time-from-absolute (date seconds)
   "Compute the UTC time equivalent to DATE at time SECONDS after midnight.
-Return a list suitable as an argument to current-time-zone,
+Return a list suitable as an argument to `current-time-zone',
 or nil if the date cannot be thus represented.
 DATE is the number of days elapsed since the (imaginary)
 Gregorian date Sunday, December 31, 1 BC."
@@ -298,7 +298,7 @@ Gregorian date Sunday, December 31, 1 BC."
 
 (defun timezone-time-zone-from-absolute (date seconds)
   "Compute the local time zone for DATE at time SECONDS after midnight.
-Return a list in the same format as current-time-zone's result,
+Return a list in the same format as `current-time-zone's result,
 or nil if the local time zone could not be computed.
 DATE is the number of days elapsed since the (imaginary)
 Gregorian date Sunday, December 31, 1 BC."
@@ -370,7 +370,7 @@ If TIMEZONE is nil, use the local time zone."
     (aref [31 28 31 30 31 30 31 31 30 31 30 31] (1- month))))
 
 (defun timezone-leap-year-p (year)
-  "Returns t if YEAR is a Gregorian leap year."
+  "Return t if YEAR is a Gregorian leap year."
   (or (and (zerop  (% year 4))
            (not (zerop (% year 100))))
       (zerop (% year 400))))