diff options
author | Eli Zaretskii <eliz@gnu.org> | 2001-04-17 20:31:29 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2001-04-17 20:31:29 +0000 |
commit | 5d5845dc5eb9a2af98cc0f12a3deda3191793aa3 (patch) | |
tree | cd8e218e13084d8a7c06f7cdb54390849b851c93 /lisp/info.el | |
parent | dc4181b6b9e8c2b62f61b86173ad640c98d00a7b (diff) | |
download | emacs-5d5845dc5eb9a2af98cc0f12a3deda3191793aa3.tar.gz |
(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.
Diffstat (limited to 'lisp/info.el')
-rw-r--r-- | lisp/info.el | 4 |
1 files changed, 2 insertions, 2 deletions
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))) |