mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Dave Love 2000-05-02 10:40:37 +00:00
parent 3e8b2a018f
commit 820ad5e7e3
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
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

12
lisp/help.el
View File

@ -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))))