Mercurial > emacs
comparison lisp/menu-bar.el @ 61710:7653208ec8d8
(menu-bar-options-save, menu-bar-showhide-menu):
Add tooltip-mode.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Thu, 21 Apr 2005 00:07:38 +0000 |
| parents | bef623e1dcc0 |
| children | de02ab04abd0 e1fbb019c538 |
comparison
equal
deleted
inserted
replaced
| 61709:2c98b8bb06c8 | 61710:7653208ec8d8 |
|---|---|
| 644 blink-cursor-mode)) | 644 blink-cursor-mode)) |
| 645 (and (customize-mark-to-save elt) | 645 (and (customize-mark-to-save elt) |
| 646 (setq need-save t))) | 646 (setq need-save t))) |
| 647 ;; These are set with `customize-set-variable'. | 647 ;; These are set with `customize-set-variable'. |
| 648 (dolist (elt '(scroll-bar-mode | 648 (dolist (elt '(scroll-bar-mode |
| 649 debug-on-quit debug-on-error menu-bar-mode tool-bar-mode | 649 debug-on-quit debug-on-error |
| 650 tooltip-mode menu-bar-mode tool-bar-mode | |
| 650 save-place uniquify-buffer-name-style fringe-mode | 651 save-place uniquify-buffer-name-style fringe-mode |
| 651 fringe-indicators case-fold-search | 652 fringe-indicators case-fold-search |
| 652 display-time-mode auto-compression-mode | 653 display-time-mode auto-compression-mode |
| 653 current-language-environment default-input-method | 654 current-language-environment default-input-method |
| 654 ;; Saving `text-mode-hook' is somewhat questionable, | 655 ;; Saving `text-mode-hook' is somewhat questionable, |
| 907 | 908 |
| 908 (define-key menu-bar-showhide-menu [showhide-scroll-bar] | 909 (define-key menu-bar-showhide-menu [showhide-scroll-bar] |
| 909 (list 'menu-item "Scroll-bar" menu-bar-showhide-scroll-bar-menu | 910 (list 'menu-item "Scroll-bar" menu-bar-showhide-scroll-bar-menu |
| 910 :visible `(display-graphic-p) | 911 :visible `(display-graphic-p) |
| 911 :help "Select scroll-bar mode")) | 912 :help "Select scroll-bar mode")) |
| 913 | |
| 914 (define-key menu-bar-showhide-menu [showhide-tooltip-mode] | |
| 915 (list 'menu-item "Tooltips" 'tooltip-mode | |
| 916 :help "Toggle tooltips on/off" | |
| 917 :visible `(and (display-graphic-p) (fboundp 'x-show-tip)) | |
| 918 :button `(:toggle . tooltip-mode))) | |
| 912 | 919 |
| 913 (define-key menu-bar-showhide-menu [menu-bar-mode] | 920 (define-key menu-bar-showhide-menu [menu-bar-mode] |
| 914 '(menu-item "Menu-bar" menu-bar-mode | 921 '(menu-item "Menu-bar" menu-bar-mode |
| 915 :help "Toggle menu-bar on/off" | 922 :help "Toggle menu-bar on/off" |
| 916 :button (:toggle . menu-bar-mode))) | 923 :button (:toggle . menu-bar-mode))) |