Commit 820ad5e7 authored by Dave Love's avatar Dave Love

(help-xref-on-pp): Check for constant symbols.

parent 3e8b2a01
2000-05-02 Dave Love <fx@gnu.org>
* help.el (help-xref-on-pp): Check for constant symbols.
2000-04-29 Gerd Moellmann <gerd@gnu.org>
* startup.el (normal-top-level): Put a condition-case around
......
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment