(mode-line-mode-menu): Add tooltip-mode to mode-line.
This commit is contained in:
parent
8bc973e971
commit
a69c614102
1 changed files with 3 additions and 0 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue