From 9b49f910ae9471fa31d554a111ecb488bed4f2f0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 10 Jun 1998 00:27:04 +0000 Subject: [PATCH] (help-make-xrefs): When scanning keymap binding listings, scan from the very beginning. (help-follow-mouse): Avoid save-excursion, so can set point properly. --- lisp/help.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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) -- 2.39.2