Mercurial > emacs

changeset 60540:ac6071543466

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mode-line-mode-menu): Add tooltip-mode to mode-line.
author Nick Roberts <nickrob@snap.net.nz>
date Wed, 09 Mar 2005 23:19:31 +0000
parents 60737ce5edc8
children fbf903562871
files lisp/bindings.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/bindings.el	Wed Mar 09 23:19:00 2005 +0000
+++ b/lisp/bindings.el	Wed Mar 09 23:19:31 2005 +0000
@@ -392,6 +392,9 @@
   "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)))