Commit 5d5845dc authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(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.
parent dc4181b6
2001-04-17 Eli Zaretskii <eliz@is.elta.co.il>
* 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 <gerd@gnu.org> 2001-04-17 Gerd Moellmann <gerd@gnu.org>
   
* indent.el (indent-for-tab-command): Call indent-line-function * indent.el (indent-for-tab-command): Call indent-line-function
......
...@@ -2166,7 +2166,7 @@ If no reference to follow, moves to the next node, or up if none." ...@@ -2166,7 +2166,7 @@ If no reference to follow, moves to the next node, or up if none."
(if items (if items
(setq entries (cons ["Other..." Info-menu t] entries))) (setq entries (cons ["Other..." Info-menu t] entries)))
(or 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))) (easy-menu-change '("Info") "Menu Item" (nreverse entries)))
;; Update reference menu. Code stolen from `Info-follow-reference'. ;; Update reference menu. Code stolen from `Info-follow-reference'.
(let ((items nil) (let ((items nil)
...@@ -2198,7 +2198,7 @@ If no reference to follow, moves to the next node, or up if none." ...@@ -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] (setq entries (cons ["Other..." Info-follow-reference t]
entries))) entries)))
(or 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))) (easy-menu-change '("Info") "Reference" (nreverse entries)))
;; Update last seen node. ;; Update last seen node.
(setq Info-menu-last-node (list Info-current-file Info-current-node))) (setq Info-menu-last-node (list Info-current-file Info-current-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