diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-09-24 14:46:56 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-09-26 13:23:57 +0200 |
| commit | c78e16962e63895d340f80cf245fad568a7da770 (patch) | |
| tree | fd8912ae6e025f7c20ecce2eea1708e092a5093f /lisp/play/doctor.el | |
| parent | f4ea15907aeb020b80d021a8d6bf212bcde08ab9 (diff) | |
| download | emacs-c78e16962e63895d340f80cf245fad568a7da770.tar.gz | |
; Adjust overly long docstrings to fit 80 characters
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 b855f7e35a1..33fecaa188a 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el @@ -1011,8 +1011,8 @@ 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 -the subject noun, and return the portion of the sentence following it." +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)))) (setq i (1- i))) |