From 5d5845dc5eb9a2af98cc0f12a3deda3191793aa3 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 17 Apr 2001 20:31:29 +0000 Subject: [PATCH] (Info-menu-update): When there are no menus and/or no cross references in the node, make the respective items of the Info menu-bar menu inactive. --- lisp/ChangeLog | 6 ++++++ lisp/info.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 81a58d9000d..1d50730dd86 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-04-17 Eli Zaretskii + + * info.el (Info-menu-update): When there are no menus and/or no + cross references in the node, make the respective items of the + Info menu-bar menu inactive. + 2001-04-17 Gerd Moellmann * indent.el (indent-for-tab-command): Call indent-line-function diff --git a/lisp/info.el b/lisp/info.el index d3d21468a6a..53704ef6fc4 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -2166,7 +2166,7 @@ If no reference to follow, moves to the next node, or up if none." (if items (setq entries (cons ["Other..." Info-menu t] entries))) (or entries - (setq entries (list ["No menu" nil nil]))) + (setq entries (list ["No menu" nil nil] nil :active))) (easy-menu-change '("Info") "Menu Item" (nreverse entries))) ;; Update reference menu. Code stolen from `Info-follow-reference'. (let ((items nil) @@ -2198,7 +2198,7 @@ If no reference to follow, moves to the next node, or up if none." (setq entries (cons ["Other..." Info-follow-reference t] entries))) (or entries - (setq entries (list ["No references" nil nil]))) + (setq entries (list ["No references" nil nil] nil :active))) (easy-menu-change '("Info") "Reference" (nreverse entries))) ;; Update last seen node. (setq Info-menu-last-node (list Info-current-file Info-current-node))) -- 2.39.5