From: Nick Roberts <nickrob@snap.net.nz>
Date: Wed, 9 Mar 2005 23:19:31 +0000 (+0000)
Subject: (mode-line-mode-menu): Add tooltip-mode to mode-line.
X-Git-Tag: ttn-vms-21-2-B4~1859
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a69c614102a07d989b80a99268609298c5e75b73;p=emacs.git

(mode-line-mode-menu): Add tooltip-mode to mode-line.
---

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)))