diff options
author | Gerd Moellmann <gerd@gnu.org> | 2001-07-10 14:09:30 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2001-07-10 14:09:30 +0000 |
commit | 6ce5615d623f1cfdf02c8725f12390a786aa9cd7 (patch) | |
tree | f2b6c4a2bb11470a9ef7b5b6088f455fcf499424 | |
parent | 6b05fae3af94b547924952a87d5ae03bd794f567 (diff) | |
download | emacs-6ce5615d623f1cfdf02c8725f12390a786aa9cd7.tar.gz |
(describe-function-1): When printing FUNCTION's
documentation, don't assume FUNCTION is a symbol.
-rw-r--r-- | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/help.el | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 029acf33895..01f1c979e15 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2001-07-10 Gerd Moellmann <gerd@gnu.org> + * help.el (describe-function-1): When printing FUNCTION's + documentation, don't assume FUNCTION is a symbol. + * startup.el (normal-top-level): Don't operate on the initial frame if we failed to create one. diff --git a/lisp/help.el b/lisp/help.el index c0447dcaedd..be391914692 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -749,7 +749,7 @@ It can also be nil, if the definition is not associated with any file." (if doc (progn (terpri) (princ doc) - (if (subrp (symbol-function function)) + (if (subrp def) (with-current-buffer standard-output (beginning-of-line) ;; Builtins get the calling sequence at the end of |