Mercurial > emacs
comparison lisp/menu-bar.el @ 65127:7adadc9e4a10
(menu-bar-options-menu, menu-bar-options-save):
Delete "Automatic File De/compression" (auto-compression-mode).
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Thu, 25 Aug 2005 19:09:37 +0000 |
parents | e15876d0c6a1 |
children | a1ea2d5f0190 2d92f5c9d6ae |
comparison
equal
deleted
inserted
replaced
65126:559a37c2f306 | 65127:7adadc9e4a10 |
---|---|
649 (dolist (elt '(scroll-bar-mode | 649 (dolist (elt '(scroll-bar-mode |
650 debug-on-quit debug-on-error | 650 debug-on-quit debug-on-error |
651 tooltip-mode menu-bar-mode tool-bar-mode | 651 tooltip-mode menu-bar-mode tool-bar-mode |
652 save-place uniquify-buffer-name-style fringe-mode | 652 save-place uniquify-buffer-name-style fringe-mode |
653 indicate-empty-lines indicate-buffer-boundaries | 653 indicate-empty-lines indicate-buffer-boundaries |
654 case-fold-search auto-compression-mode | 654 case-fold-search |
655 current-language-environment default-input-method | 655 current-language-environment default-input-method |
656 ;; Saving `text-mode-hook' is somewhat questionable, | 656 ;; Saving `text-mode-hook' is somewhat questionable, |
657 ;; as we might get more than we bargain for, if | 657 ;; as we might get more than we bargain for, if |
658 ;; other code may has added hooks as well. | 658 ;; other code may has added hooks as well. |
659 ;; Nonetheless, not saving it would like be confuse | 659 ;; Nonetheless, not saving it would like be confuse |
974 (menu-bar-make-mm-toggle blink-cursor-mode | 974 (menu-bar-make-mm-toggle blink-cursor-mode |
975 "Blinking Cursor" | 975 "Blinking Cursor" |
976 "Whether the cursor blinks (Blink Cursor mode)")) | 976 "Whether the cursor blinks (Blink Cursor mode)")) |
977 (define-key menu-bar-options-menu [cursor-separator] | 977 (define-key menu-bar-options-menu [cursor-separator] |
978 '("--")) | 978 '("--")) |
979 | |
980 (define-key menu-bar-options-menu [toggle-auto-compression] | |
981 '(menu-item "Automatic File De/compression" | |
982 auto-compression-mode | |
983 :help "Transparently decompress compressed files" | |
984 :button (:toggle . (rassq 'jka-compr-handler | |
985 file-name-handler-alist)))) | |
986 | 979 |
987 (define-key menu-bar-options-menu [save-place] | 980 (define-key menu-bar-options-menu [save-place] |
988 (menu-bar-make-toggle toggle-save-place-globally save-place | 981 (menu-bar-make-toggle toggle-save-place-globally save-place |
989 "Save Place in Files between Sessions" | 982 "Save Place in Files between Sessions" |
990 "Saving place in files %s" | 983 "Saving place in files %s" |