summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNick Roberts <nickrob@snap.net.nz>2005-03-09 23:19:31 +0000
committerNick Roberts <nickrob@snap.net.nz>2005-03-09 23:19:31 +0000
commita69c614102a07d989b80a99268609298c5e75b73 (patch)
treec5cf4f3ad78c5298ec74d31e75653ac4aadcc089
parent8bc973e9719fa8e1e39d1ca9ad76835b3febcfcb (diff)
downloademacs-a69c614102a07d989b80a99268609298c5e75b73.tar.gz
(mode-line-mode-menu): Add tooltip-mode to mode-line.
-rw-r--r--lisp/bindings.el3
1 files changed, 3 insertions, 0 deletions
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)))