From: Richard M. Stallman Date: Wed, 10 Jun 1998 00:27:04 +0000 (+0000) Subject: (help-make-xrefs): When scanning keymap binding listings, X-Git-Tag: emacs-20.3~662 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b49f910ae9471fa31d554a111ecb488bed4f2f0;p=emacs.git (help-make-xrefs): When scanning keymap binding listings, scan from the very beginning. (help-follow-mouse): Avoid save-excursion, so can set point properly. --- diff --git a/lisp/help.el b/lisp/help.el index e1a65c79e85..b4d2cf5f4a6 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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)