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

This commit is contained in:
Nick Roberts 2005-03-09 23:19:31 +00:00
parent 8bc973e971
commit a69c614102

View file

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