(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 e1a65c79e850385832bdda3792095e8db95506e0..b4d2cf5f4a6575293f02cdbcf5c22c47da627de0 100644 (file)
--- 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)