Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
58d468b4
Commit
58d468b4
authored
Apr 21, 2011
by
Juanma Barranquero
Browse files
lisp/play/doctor.el: Fix typos in docstrings.
parent
40c9205d
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
8 deletions
+13
-8
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/play/doctor.el
lisp/play/doctor.el
+8
-8
No files found.
lisp/ChangeLog
View file @
58d468b4
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>
* mouse-drag.el (mouse-drag-throw): Fix typo in docstring.
...
...
lisp/play/doctor.el
View file @
58d468b4
...
...
@@ -61,11 +61,11 @@
(
defun
doc//
(
x
)
x
)
(
defmacro
doc$
(
what
)
"
q
uoted arg form of doctor-$"
"
Q
uoted 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 @@ reads the sentence before point, and prints the Doctor's answer."
(
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 @@ Otherwise call the Doctor to parse preceding sentence."
(
newline
arg
)))
(
defun
doctor-read-print
nil
"
t
op level loop"
"
T
op level loop
.
"
(
interactive
)
(
let
((
sent
(
doctor-readin
)))
(
insert
"\n"
)
...
...
@@ -869,7 +869,7 @@ Otherwise call the Doctor to parse preceding sentence."
sentence
))
(
defun
doctor-read-token
()
"
r
ead one word from buffer"
"
R
ead one word from buffer
.
"
(
prog1
(
intern
(
downcase
(
buffer-substring
(
point
)
(
progn
(
forward-word
1
)
...
...
@@ -1039,7 +1039,7 @@ the subject noun, and return the portion of the sentence following it."
nil
))))
(
defun
doctor-nounp
(
x
)
"Return
s
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 @@ the subject noun, and return the portion of the sentence following it."
(
doctor-modifierp
x
)
))
))
(
defun
doctor-pronounp
(
x
)
"Return
s
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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment