From a69c614102a07d989b80a99268609298c5e75b73 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Wed, 9 Mar 2005 23:19:31 +0000 Subject: [PATCH] (mode-line-mode-menu): Add tooltip-mode to mode-line. --- lisp/bindings.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/bindings.el b/lisp/bindings.el index 59c58c5db2b..81425eba2d5 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -392,6 +392,9 @@ Menu of mode operations in the mode line.") "Return the value of symbol VAR if it is bound, else nil." `(and (boundp (quote ,var)) ,var)) +(define-key mode-line-mode-menu [tooltip-mode] + `(menu-item ,(purecopy "Tooltip") tooltip-mode + :button (:toggle . tooltip-mode))) (define-key mode-line-mode-menu [overwrite-mode] `(menu-item ,(purecopy "Overwrite (Ovwrt)") overwrite-mode :button (:toggle . overwrite-mode))) -- 2.39.2