Commit a69c6141 authored by Nick Roberts's avatar Nick Roberts
Browse files

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

parent 8bc973e9
...@@ -392,6 +392,9 @@ Menu of mode operations in the mode line.") ...@@ -392,6 +392,9 @@ Menu of mode operations in the mode line.")
"Return the value of symbol VAR if it is bound, else nil." "Return the value of symbol VAR if it is bound, else nil."
`(and (boundp (quote ,var)) ,var)) `(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] (define-key mode-line-mode-menu [overwrite-mode]
`(menu-item ,(purecopy "Overwrite (Ovwrt)") overwrite-mode `(menu-item ,(purecopy "Overwrite (Ovwrt)") overwrite-mode
:button (:toggle . overwrite-mode))) :button (:toggle . overwrite-mode)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment