Mercurial > emacs

changeset 1484:6c2a714566d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename buffer-flush-undo to buffer-disable-undo. (Info-goto-emacs-key-command-node): Fix typo. (Info-menu-item-sequence): Commented out. (Info-follow-nearest-node): Use new event format. Select the window clicked on.
author Richard M. Stallman <rms@gnu.org>
date Tue, 27 Oct 1992 10:14:08 +0000
parents 868dcc4f0edd
children a6da00e1c5ad
files lisp/info.el
diffstat 1 files changed, 13 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Tue Oct 27 09:10:40 1992 +0000
+++ b/lisp/info.el	Tue Oct 27 10:14:08 1992 +0000
@@ -136,7 +136,7 @@
 		  Info-history)))
   ;; Go into info buffer.
   (switch-to-buffer "*info*")
-  (buffer-flush-undo (current-buffer))
+  (buffer-disable-undo (current-buffer))
   (or (eq major-mode 'Info-mode)
       (Info-mode))
   (widen)
@@ -173,7 +173,7 @@
 			(save-excursion
 			  (let ((buf (current-buffer)))
 			    (set-buffer (get-buffer-create " *info tag table*"))
-                            (buffer-flush-undo (current-buffer))
+                            (buffer-disable-undo (current-buffer))
 			    (setq case-fold-search t)
 			    (erase-buffer)
 			    (insert-buffer-substring buf)
@@ -525,10 +525,11 @@
       (aset str i ?\ ))
     str))
 
-(defun Info-menu-item-sequence (list)
-  (while list
-    (Info-menu-item (car list))
-    (setq list (cdr list))))
+;; No one calls this and Info-menu-item doesn't exist.
+;;(defun Info-menu-item-sequence (list)
+;;  (while list
+;;    (Info-menu-item (car list))
+;;    (setq list (cdr list))))
 
 (defun Info-menu (menu-item)
   "Go to node for menu item named (or abbreviated) NAME.
@@ -823,12 +824,11 @@
 Like \\[Info-menu], \\[Info-follow-reference], \\[Info-next], \\[Info-prev] or \\[Info-up] command, depending on where you click.
 At end of the node's text, moves to the next node."
   (interactive "e")
-  (let* ((relative-coordinates (coordinates-in-window-p (mouse-coords click)
-							(selected-window)))
-	 (rel-x (car relative-coordinates))
-	 (rel-y (cdr relative-coordinates)))
-    (move-to-window-line rel-y)
-    (move-to-column rel-x))
+  (let* ((start (event-start click))
+	 (window (car start))
+	 (pos (car (cdr start))))
+    (select-window window)
+    (goto-char pos))
   (let (node)
     (cond
      ((setq node (Info-get-token (point) "\\*note[ \n]" "\\*note[ \n]\\([^:]*\\):" t))
@@ -1055,7 +1055,7 @@
   (interactive "kFind documentation for key:")
   (let ((command (key-binding key)))
     (cond ((null command)
-	   (message "%s is undefined" (key-description keys)))
+	   (message "%s is undefined" (key-description key)))
 	  ((and (interactive-p)
 		(eq command 'execute-extended-command))
 	   (Info-goto-emacs-command-node