Commit 9e5c2f50 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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.
parent 411fca73
...@@ -136,7 +136,7 @@ to read a file name from the minibuffer." ...@@ -136,7 +136,7 @@ to read a file name from the minibuffer."
Info-history))) Info-history)))
;; Go into info buffer. ;; Go into info buffer.
(switch-to-buffer "*info*") (switch-to-buffer "*info*")
(buffer-flush-undo (current-buffer)) (buffer-disable-undo (current-buffer))
(or (eq major-mode 'Info-mode) (or (eq major-mode 'Info-mode)
(Info-mode)) (Info-mode))
(widen) (widen)
...@@ -173,7 +173,7 @@ to read a file name from the minibuffer." ...@@ -173,7 +173,7 @@ to read a file name from the minibuffer."
(save-excursion (save-excursion
(let ((buf (current-buffer))) (let ((buf (current-buffer)))
(set-buffer (get-buffer-create " *info tag table*")) (set-buffer (get-buffer-create " *info tag table*"))
(buffer-flush-undo (current-buffer)) (buffer-disable-undo (current-buffer))
(setq case-fold-search t) (setq case-fold-search t)
(erase-buffer) (erase-buffer)
(insert-buffer-substring buf) (insert-buffer-substring buf)
...@@ -525,10 +525,11 @@ NAME may be an abbreviation of the reference name." ...@@ -525,10 +525,11 @@ NAME may be an abbreviation of the reference name."
(aset str i ?\ )) (aset str i ?\ ))
str)) str))
(defun Info-menu-item-sequence (list) ;; No one calls this and Info-menu-item doesn't exist.
(while list ;;(defun Info-menu-item-sequence (list)
(Info-menu-item (car list)) ;; (while list
(setq list (cdr list)))) ;; (Info-menu-item (car list))
;; (setq list (cdr list))))
(defun Info-menu (menu-item) (defun Info-menu (menu-item)
"Go to node for menu item named (or abbreviated) NAME. "Go to node for menu item named (or abbreviated) NAME.
...@@ -823,12 +824,11 @@ SIG optional fourth argument, controls action on no match ...@@ -823,12 +824,11 @@ SIG optional fourth argument, controls action on no match
Like \\[Info-menu], \\[Info-follow-reference], \\[Info-next], \\[Info-prev] or \\[Info-up] command, depending on where you click. 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." At end of the node's text, moves to the next node."
(interactive "e") (interactive "e")
(let* ((relative-coordinates (coordinates-in-window-p (mouse-coords click) (let* ((start (event-start click))
(selected-window))) (window (car start))
(rel-x (car relative-coordinates)) (pos (car (cdr start))))
(rel-y (cdr relative-coordinates))) (select-window window)
(move-to-window-line rel-y) (goto-char pos))
(move-to-column rel-x))
(let (node) (let (node)
(cond (cond
((setq node (Info-get-token (point) "\\*note[ \n]" "\\*note[ \n]\\([^:]*\\):" t)) ((setq node (Info-get-token (point) "\\*note[ \n]" "\\*note[ \n]\\([^:]*\\):" t))
...@@ -1055,7 +1055,7 @@ Interactively, if the binding is execute-extended-command, a command is read." ...@@ -1055,7 +1055,7 @@ Interactively, if the binding is execute-extended-command, a command is read."
(interactive "kFind documentation for key:") (interactive "kFind documentation for key:")
(let ((command (key-binding key))) (let ((command (key-binding key)))
(cond ((null command) (cond ((null command)
(message "%s is undefined" (key-description keys))) (message "%s is undefined" (key-description key)))
((and (interactive-p) ((and (interactive-p)
(eq command 'execute-extended-command)) (eq command 'execute-extended-command))
(Info-goto-emacs-command-node (Info-goto-emacs-command-node
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment