[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100558: lisp/play/doctor.el: Fix typos in docstrings.

[Juanma Barranquero]

------------------------------------------------------------
revno: 100558
committer: Juanma Barranquero <address@hidden>
branch nick: emacs-23
timestamp: Thu 2011-04-21 04:45:31 +0200
message:
  lisp/play/doctor.el: Fix typos in docstrings.
modified:
  lisp/ChangeLog
  lisp/play/doctor.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-15 02:56:50 +0000
+++ b/lisp/ChangeLog    2011-04-21 02:45:31 +0000
@@ -1,3 +1,8 @@
+2011-04-21  Juanma Barranquero  <address@hidden>
+
+       * play/doctor.el (doc$, doctor-$, doctor-read-print, doctor-read-token)
+       (doctor-nounp, doctor-pronounp): Fix typos in docstrings.
+
 2011-04-15  Juanma Barranquero  <address@hidden>
 
        * mouse-drag.el (mouse-drag-throw): Fix typo in docstring.

=== modified file 'lisp/play/doctor.el'
--- a/lisp/play/doctor.el       2011-01-02 23:50:46 +0000
+++ b/lisp/play/doctor.el       2011-04-21 02:45:31 +0000
@@ -61,11 +61,11 @@
 (defun doc// (x) x)
 
 (defmacro doc$ (what)
-  "quoted arg form of doctor-$"
+  "Quoted arg form of doctor-$."
   (list 'doctor-$ (list 'quote what)))
 
 (defun doctor-$ (what)
-  "Return the car of a list, rotating the list each time"
+  "Return the car of a list, rotating the list each time."
   (let* ((vv (symbol-value what))
        (first (car vv))
        (ww (append (cdr vv) (list first))))
@@ -562,8 +562,8 @@
 (defun doctor-meaning (x) (get x 'doctor-meaning))
 
 (defmacro doctor-put-meaning (symb val)
-    "Store the base meaning of a word on the property list."
-    (list 'put (list 'quote symb) ''doctor-meaning val))
+  "Store the base meaning of a word on the property list."
+  (list 'put (list 'quote symb) ''doctor-meaning val))
 
 (doctor-put-meaning howdy 'howdy)
 (doctor-put-meaning hi 'howdy)
@@ -851,7 +851,7 @@
     (newline arg)))
 
 (defun doctor-read-print nil
-  "top level loop"
+  "Top level loop."
   (interactive)
   (let ((sent (doctor-readin)))
     (insert "\n")
@@ -869,7 +869,7 @@
     sentence))
 
 (defun doctor-read-token ()
-  "read one word from buffer"
+  "Read one word from buffer."
   (prog1 (intern (downcase (buffer-substring (point)
                                             (progn
                                               (forward-word 1)
@@ -1039,7 +1039,7 @@
           nil))))
 
 (defun doctor-nounp (x)
-  "Returns t if the symbol argument is a noun."
+  "Return t if the symbol argument is a noun."
        (or (doctor-pronounp x)
            (not (or (doctor-verbp x)
                     (equal x 'not)
@@ -1047,7 +1047,7 @@
                     (doctor-modifierp x) )) ))
 
 (defun doctor-pronounp (x)
-  "Returns t if the symbol argument is a pronoun."
+  "Return t if the symbol argument is a pronoun."
   (memq x '(
        i me mine myself
        we us ours ourselves ourself