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

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 59c58c5db2b26d6488e0a633b981fac44894bb10..81425eba2d5ffa77c4a512ebafb176d69b651cf6 100644 (file)
--- 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)))