Mercurial > emacs
comparison lisp/help-macro.el @ 105216:fb7e59394e9b
* help.el (help-for-help-internal): Don't purecopy the text (bug#4560).
* isearch.el (isearch-help-for-help-internal): Purecopy the second arg.
* help-macro.el (make-help-screen): Avoid using an ambiguous function
definition where the docstring could be taken for the return value.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 27 Sep 2009 00:27:21 +0000 |
| parents | a9dc0e7c3f2b |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 105215:48313e2e9ae3 | 105216:fb7e59394e9b |
|---|---|
| 88 with the key sequence that invoked FNAME. | 88 with the key sequence that invoked FNAME. |
| 89 When FNAME finally does get a command, it executes that command | 89 When FNAME finally does get a command, it executes that command |
| 90 and then returns." | 90 and then returns." |
| 91 (let ((doc-fn (intern (concat (symbol-name fname) "-doc")))) | 91 (let ((doc-fn (intern (concat (symbol-name fname) "-doc")))) |
| 92 `(progn | 92 `(progn |
| 93 (defun ,doc-fn () ,help-text) | 93 (defun ,doc-fn () ,help-text nil) |
| 94 (defun ,fname () | 94 (defun ,fname () |
| 95 "Help command." | 95 "Help command." |
| 96 (interactive) | 96 (interactive) |
| 97 (let ((line-prompt | 97 (let ((line-prompt |
| 98 (substitute-command-keys ,help-line))) | 98 (substitute-command-keys ,help-line))) |