summaryrefslogtreecommitdiff
path: root/lisp/help-macro.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2009-09-27 00:27:21 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2009-09-27 00:27:21 +0000
commitce9a0ccb72711855dfd994d0500c01e4417d09d5 (patch)
tree8839de8cf90d6bb6b8b2b326b0746fcc6bb5ed70 /lisp/help-macro.el
parent607b83077fbf53cfc8b44f4341b0e937ac601a82 (diff)
downloademacs-ce9a0ccb72711855dfd994d0500c01e4417d09d5.tar.gz
emacs-ce9a0ccb72711855dfd994d0500c01e4417d09d5.tar.bz2
emacs-ce9a0ccb72711855dfd994d0500c01e4417d09d5.zip
* 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.
Diffstat (limited to 'lisp/help-macro.el')
-rw-r--r--lisp/help-macro.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index c920ecbf43b..802eb54916d 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -90,7 +90,7 @@ When FNAME finally does get a command, it executes that command
and then returns."
(let ((doc-fn (intern (concat (symbol-name fname) "-doc"))))
`(progn
- (defun ,doc-fn () ,help-text)
+ (defun ,doc-fn () ,help-text nil)
(defun ,fname ()
"Help command."
(interactive)