# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 897438424 0
# Node ID e78006d10683c833c2dfba5c63baa2e0d5009406
# Parent  a517da228cb99d88e7339db420a2f2d2d0a8b52b
(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 -r a517da228cb9 -r e78006d10683 lisp/help.el
--- a/lisp/help.el	Tue Jun 09 23:40:56 1998 +0000
+++ b/lisp/help.el	Wed Jun 10 00:27:04 1998 +0000
@@ -970,6 +970,8 @@
                         (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 @@
 (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)