Mercurial > emacs
changeset 28771:383f9592d9dd
(help-xref-on-pp): Check for constant symbols.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 02 May 2000 10:40:04 +0000 |
| parents | 313b9e6e2dbf |
| children | 6d99cfcac023 |
| files | lisp/help.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Tue May 02 10:39:45 2000 +0000 +++ b/lisp/help.el Tue May 02 10:40:04 2000 +0000 @@ -766,9 +766,14 @@ ((looking-at "#<") (search-forward ">" nil 'move)) ((looking-at "\\(\\(\\sw\\|\\s_\\)+\\)") (let* ((sym (intern-soft - (buffer-substring (match-beginning 1) (match-end 1)))) + (buffer-substring (match-beginning 1) + (match-end 1)))) (fn (cond ((fboundp sym) #'describe-function) - ((and sym (boundp sym)) #'describe-variable)))) + ((or (memq sym '(t nil)) + (keywordp sym)) + nil) + ((and sym (boundp sym)) + #'describe-variable)))) (when fn (help-xref-button 1 fn sym))) (goto-char (match-end 1))) (t (forward-char 1)))))) @@ -782,7 +787,8 @@ (enable-recursive-minibuffers t) val) (setq val (completing-read (if (symbolp v) - (format "Describe variable (default %s): " v) + (format + "Describe variable (default %s): " v) "Describe variable: ") obarray 'boundp t nil nil (if (symbolp v) (symbol-name v))))