Mercurial > emacs
diff lisp/bindings.el @ 60540:ac6071543466
(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 | 6a79fa294dd4 |
children | 08055baffb97 48ba3f89c89f e330fedc9152 |
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)))