Mercurial > emacs
comparison lisp/bindings.el @ 61709:2c98b8bb06c8
(mode-line-mode-menu): Remove tooltip-mode.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Thu, 21 Apr 2005 00:06:54 +0000 |
| parents | 9a27f4097b8f |
| children | 8d965863dd8c ad07ff6e4555 e1fbb019c538 |
comparison
equal
deleted
inserted
replaced
| 61708:3cdb2ba9d7eb | 61709:2c98b8bb06c8 |
|---|---|
| 390 | 390 |
| 391 (defmacro bound-and-true-p (var) | 391 (defmacro bound-and-true-p (var) |
| 392 "Return the value of symbol VAR if it is bound, else nil." | 392 "Return the value of symbol VAR if it is bound, else nil." |
| 393 `(and (boundp (quote ,var)) ,var)) | 393 `(and (boundp (quote ,var)) ,var)) |
| 394 | 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] | 395 (define-key mode-line-mode-menu [overwrite-mode] |
| 399 `(menu-item ,(purecopy "Overwrite (Ovwrt)") overwrite-mode | 396 `(menu-item ,(purecopy "Overwrite (Ovwrt)") overwrite-mode |
| 400 :button (:toggle . overwrite-mode))) | 397 :button (:toggle . overwrite-mode))) |
| 401 (define-key mode-line-mode-menu [outline-minor-mode] | 398 (define-key mode-line-mode-menu [outline-minor-mode] |
| 402 `(menu-item ,(purecopy "Outline (Outl)") outline-minor-mode | 399 `(menu-item ,(purecopy "Outline (Outl)") outline-minor-mode |