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 |