Mercurial > emacs
comparison lisp/menu-bar.el @ 58586:7bc75f3f915a
(menu-bar-options-save): For the options
that are toggled with menu-bar-make-mm-toggle, don't check
for customized-value prop.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 27 Nov 2004 19:01:02 +0000 |
parents | 78341df33f26 |
children | e988bd99edf9 |
comparison
equal
deleted
inserted
replaced
58585:d6ce53475b81 | 58586:7bc75f3f915a |
---|---|
632 | 632 |
633 (defun menu-bar-options-save () | 633 (defun menu-bar-options-save () |
634 "Save current values of Options menu items using Custom." | 634 "Save current values of Options menu items using Custom." |
635 (interactive) | 635 (interactive) |
636 (let ((need-save nil)) | 636 (let ((need-save nil)) |
637 ;; These are set with menu-bar-make-mm-toggle, which does not | |
638 ;; put on a customized-value property. | |
639 (dolist (elt '(line-number-mode column-number-mode cua-mode show-paren-mode | |
640 transient-mark-mode global-font-lock-mode)) | |
641 (and (customize-mark-to-save elt) | |
642 (setq need-save t))) | |
637 ;; These are set with `customize-set-variable'. | 643 ;; These are set with `customize-set-variable'. |
638 (dolist (elt '(line-number-mode column-number-mode scroll-bar-mode | 644 (dolist (elt '(scroll-bar-mode |
639 debug-on-quit debug-on-error menu-bar-mode tool-bar-mode | 645 debug-on-quit debug-on-error menu-bar-mode tool-bar-mode |
640 save-place uniquify-buffer-name-style fringe-mode | 646 save-place uniquify-buffer-name-style fringe-mode |
641 case-fold-search cua-mode show-paren-mode | 647 case-fold-search |
642 transient-mark-mode global-font-lock-mode | |
643 display-time-mode auto-compression-mode | 648 display-time-mode auto-compression-mode |
644 current-language-environment default-input-method | 649 current-language-environment default-input-method |
645 ;; Saving `text-mode-hook' is somewhat questionable, | 650 ;; Saving `text-mode-hook' is somewhat questionable, |
646 ;; as we might get more than we bargain for, if | 651 ;; as we might get more than we bargain for, if |
647 ;; other code may has added hooks as well. | 652 ;; other code may has added hooks as well. |