392 |
"Return the value of symbol VAR if it is bound, else nil." |
"Return the value of symbol VAR if it is bound, else nil." |
393 |
`(and (boundp (quote ,var)) ,var)) |
`(and (boundp (quote ,var)) ,var)) |
394 |
|
|
395 |
|
(define-key mode-line-mode-menu [tooltip-mode] |
396 |
|
`(menu-item ,(purecopy "Tooltip") tooltip-mode |
397 |
|
:button (:toggle . tooltip-mode))) |
398 |
(define-key mode-line-mode-menu [overwrite-mode] |
(define-key mode-line-mode-menu [overwrite-mode] |
399 |
`(menu-item ,(purecopy "Overwrite (Ovwrt)") overwrite-mode |
`(menu-item ,(purecopy "Overwrite (Ovwrt)") overwrite-mode |
400 |
:button (:toggle . overwrite-mode))) |
:button (:toggle . overwrite-mode))) |