diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-09-22 20:26:40 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-09-22 20:26:40 +0200 |
| commit | aebba085cba13ad1439462923ffa0520456f1aad (patch) | |
| tree | 46a8edec2ec2d81da8c4031a79fc5ee08c016933 /lisp/play/doctor.el | |
| parent | 7f06fe894cabf8f33e10386d6adb5d2ce9481a25 (diff) | |
| download | emacs-aebba085cba13ad1439462923ffa0520456f1aad.tar.gz | |
; More minor stylistic fixes found by checkdoc
Diffstat (limited to 'lisp/play/doctor.el')
| -rw-r--r-- | lisp/play/doctor.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index 9777fc3ea24..b855f7e35a1 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el @@ -115,7 +115,7 @@ (defun doc// (x) x) (defmacro doc$ (what) - "Quoted arg form of doctor-$." + "Quoted arg form of `doctor-$'." `(doctor-$ ',what)) (defun doctor-$ (what) @@ -1011,7 +1011,7 @@ Put dialogue in buffer." (defun doctor-subjsearch (sent key type) "Search for the subject of a sentence SENT, looking for the noun closest -to and preceding KEY by at least TYPE words. Set global variable doctor-subj to +to and preceding KEY by at least TYPE words. Set global variable `doctor-subj' to the subject noun, and return the portion of the sentence following it." (let ((i (- (length sent) (length (memq key sent)) type))) (while (and (> i -1) (not (doctor-nounp (nth i sent)))) |