Mercurial > emacs

changeset 22417:e78006d10683

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-make-xrefs): When scanning keymap binding listings, scan from the very beginning. (help-follow-mouse): Avoid save-excursion, so can set point properly.
author Richard M. Stallman <rms@gnu.org>
date Wed, 10 Jun 1998 00:27:04 +0000
parents a517da228cb9
children 340060628c47
files lisp/help.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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)