Commit 58d468b4 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

lisp/play/doctor.el: Fix typos in docstrings.

parent 40c9205d
2011-04-21 Juanma Barranquero <lekktu@gmail.com>
* play/doctor.el (doc$, doctor-$, doctor-read-print, doctor-read-token)
(doctor-nounp, doctor-pronounp): Fix typos in docstrings.
2011-04-15 Juanma Barranquero <lekktu@gmail.com> 2011-04-15 Juanma Barranquero <lekktu@gmail.com>
* mouse-drag.el (mouse-drag-throw): Fix typo in docstring. * mouse-drag.el (mouse-drag-throw): Fix typo in docstring.
......
...@@ -61,11 +61,11 @@ ...@@ -61,11 +61,11 @@
(defun doc// (x) x) (defun doc// (x) x)
(defmacro doc$ (what) (defmacro doc$ (what)
"quoted arg form of doctor-$" "Quoted arg form of doctor-$."
(list 'doctor-$ (list 'quote what))) (list 'doctor-$ (list 'quote what)))
(defun doctor-$ (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)) (let* ((vv (symbol-value what))
(first (car vv)) (first (car vv))
(ww (append (cdr vv) (list first)))) (ww (append (cdr vv) (list first))))
...@@ -562,8 +562,8 @@ reads the sentence before point, and prints the Doctor's answer." ...@@ -562,8 +562,8 @@ reads the sentence before point, and prints the Doctor's answer."
(defun doctor-meaning (x) (get x 'doctor-meaning)) (defun doctor-meaning (x) (get x 'doctor-meaning))
(defmacro doctor-put-meaning (symb val) (defmacro doctor-put-meaning (symb val)
"Store the base meaning of a word on the property list." "Store the base meaning of a word on the property list."
(list 'put (list 'quote symb) ''doctor-meaning val)) (list 'put (list 'quote symb) ''doctor-meaning val))
(doctor-put-meaning howdy 'howdy) (doctor-put-meaning howdy 'howdy)
(doctor-put-meaning hi 'howdy) (doctor-put-meaning hi 'howdy)
...@@ -851,7 +851,7 @@ Otherwise call the Doctor to parse preceding sentence." ...@@ -851,7 +851,7 @@ Otherwise call the Doctor to parse preceding sentence."
(newline arg))) (newline arg)))
(defun doctor-read-print nil (defun doctor-read-print nil
"top level loop" "Top level loop."
(interactive) (interactive)
(let ((sent (doctor-readin))) (let ((sent (doctor-readin)))
(insert "\n") (insert "\n")
...@@ -869,7 +869,7 @@ Otherwise call the Doctor to parse preceding sentence." ...@@ -869,7 +869,7 @@ Otherwise call the Doctor to parse preceding sentence."
sentence)) sentence))
(defun doctor-read-token () (defun doctor-read-token ()
"read one word from buffer" "Read one word from buffer."
(prog1 (intern (downcase (buffer-substring (point) (prog1 (intern (downcase (buffer-substring (point)
(progn (progn
(forward-word 1) (forward-word 1)
...@@ -1039,7 +1039,7 @@ the subject noun, and return the portion of the sentence following it." ...@@ -1039,7 +1039,7 @@ the subject noun, and return the portion of the sentence following it."
nil)))) nil))))
(defun doctor-nounp (x) (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) (or (doctor-pronounp x)
(not (or (doctor-verbp x) (not (or (doctor-verbp x)
(equal x 'not) (equal x 'not)
...@@ -1047,7 +1047,7 @@ the subject noun, and return the portion of the sentence following it." ...@@ -1047,7 +1047,7 @@ the subject noun, and return the portion of the sentence following it."
(doctor-modifierp x) )) )) (doctor-modifierp x) )) ))
(defun doctor-pronounp (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 '( (memq x '(
i me mine myself i me mine myself
we us ours ourselves ourself we us ours ourselves ourself
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment