From 55a66115dd86053f11b93e26bb29670b0de29031 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 2 May 2000 10:40:04 +0000 Subject: (help-xref-on-pp): Check for constant symbols. --- lisp/help.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'lisp/help.el') diff --git a/lisp/help.el b/lisp/help.el index 6e343c03ce6..6b4b65ef6da 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -766,9 +766,14 @@ Return 0 if there is no such symbol." ((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 @@ Returns the documentation as a string, also." (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)))) -- cgit v1.2.1