[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100558: lisp/play/doctor.el: Fix
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100558: lisp/play/doctor.el: Fix typos in docstrings. |
Date: |
Thu, 21 Apr 2011 04:45:31 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-23 r100558: lisp/play/doctor.el: Fix typos in docstrings.,
Juanma Barranquero <=