diff options
author | Richard M. Stallman <[email protected]> | 1998-03-17 06:29:50 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1998-03-17 06:29:50 +0000 |
commit | 6d2c8e3eb7baecca2fccdf8178985d33484cd4d5 (patch) | |
tree | 6ed5fdae6cac6267aeff8f7f0779d9689e5d47d7 /lisp | |
parent | 25d90e68d01beb215cf61d102134a42fc8a27000 (diff) |
(Info-menu-update): Set Info-menu-last-node
to (FILE NODENAME), and test it that way too.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/info.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index a50b0c0911..a7c395ef2b 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -1685,12 +1685,14 @@ If no reference to follow, moves to the next node, or up if none." (defvar Info-menu-last-node nil) ;; Last node the menu was created for. +;; Value is a list, (FILE-NAME NODE-NAME). (defun Info-menu-update () ;; Update the Info menu for the current node. (condition-case nil (if (or (not (eq major-mode 'Info-mode)) - (eq Info-current-node Info-menu-last-node)) + (equal (list Info-current-file Info-current-node) + Info-menu-last-node)) () ;; Update menu menu. (let* ((Info-complete-menu-buffer (current-buffer)) @@ -1745,7 +1747,7 @@ If no reference to follow, moves to the next node, or up if none." (setq entries (list ["No references" nil nil]))) (easy-menu-change '("Info") "Reference" (nreverse entries))) ;; Update last seen node. - (setq Info-menu-last-node (current-buffer))) + (setq Info-menu-last-node (list Info-current-file Info-current-node))) ;; Try to avoid entering infinite beep mode in case of errors. (error (ding)))) |