procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(help-variable-def): Handle find-variable-noselect returning no position.

Browse source 
(help-function-def): Likewise for find-function-search-for-symbol.
(help-face-def): Likewise.
This commit is contained in:
Richard M. Stallman 2006-07-12 16:00:45 +00:00
parent 38586111b1
commit 84333e068e
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/help-mode.el
View file

@ -157,7 +157,8 @@ The format is (FUNCTION ARGS...).")
(let ((location
(find-function-search-for-symbol fun nil file)))
(pop-to-buffer (car location))
(goto-char (cdr location))))
(when (cdr location)
(goto-char (cdr location)))))
'help-echo (purecopy "mouse-2, RET: find function's definition"))
(define-button-type 'help-variable-def
@ -167,7 +168,8 @@ The format is (FUNCTION ARGS...).")
(setq file (help-C-file-name var 'var)))
(let ((location (find-variable-noselect var file)))
(pop-to-buffer (car location))
(goto-char (cdr location))))
(when (cdr location)
(goto-char (cdr location)))))
'help-echo (purecopy "mouse-2, RET: find variable's definition"))
(define-button-type 'help-face-def
@ -179,7 +181,8 @@ The format is (FUNCTION ARGS...).")
(let ((location
(find-function-search-for-symbol fun 'defface file)))
(pop-to-buffer (car location))
(goto-char (cdr location))))
(when (cdr location)
(goto-char (cdr location)))))
'help-echo (purecopy "mouse-2, RET: find face's definition"))