mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(help-make-xrefs): When scanning keymap binding listings,

Browse source 
scan from the very beginning.
(help-follow-mouse): Avoid save-excursion, so can set point properly.
This commit is contained in:
Richard M. Stallman 1998-06-10 00:27:04 +00:00
parent dc99d85edb
commit 9b49f910ae
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/help.el
View file

@ -970,6 +970,8 @@ that."
(help-xref-button 1 #'describe-function sym)))))
;; Look for commands in whole keymap substitutions:
(save-excursion
;; Make sure to find the first keymap.
(goto-char (point-min))
;; Find a header and the column at which the command
;; name will be found.
(while (re-search-forward "^key +binding\n\\(-+ +\\)-+\n\n"
@ -1054,11 +1056,10 @@ help buffer."
(defun help-follow-mouse (click)
"Follow the cross-reference that you click on."
(interactive "e")
(save-excursion
(let* ((start (event-start click))
(window (car start))
(pos (car (cdr start))))
(set-buffer (window-buffer window))
(let* ((start (event-start click))
(window (car start))
(pos (car (cdr start))))
(with-current-buffer (window-buffer window)
(help-follow pos))))
(defun help-xref-go-back (buffer)