641 |
;; put on a customized-value property. |
;; put on a customized-value property. |
642 |
(dolist (elt '(line-number-mode column-number-mode size-indication-mode |
(dolist (elt '(line-number-mode column-number-mode size-indication-mode |
643 |
cua-mode show-paren-mode transient-mark-mode |
cua-mode show-paren-mode transient-mark-mode |
644 |
global-font-lock-mode blink-cursor-mode)) |
global-font-lock-mode blink-cursor-mode |
645 |
|
display-time-mode display-battery-mode)) |
646 |
(and (customize-mark-to-save elt) |
(and (customize-mark-to-save elt) |
647 |
(setq need-save t))) |
(setq need-save t))) |
648 |
;; These are set with `customize-set-variable'. |
;; These are set with `customize-set-variable'. |
651 |
tooltip-mode menu-bar-mode tool-bar-mode |
tooltip-mode menu-bar-mode tool-bar-mode |
652 |
save-place uniquify-buffer-name-style fringe-mode |
save-place uniquify-buffer-name-style fringe-mode |
653 |
indicate-empty-lines indicate-buffer-boundaries |
indicate-empty-lines indicate-buffer-boundaries |
654 |
case-fold-search display-time-mode auto-compression-mode |
case-fold-search auto-compression-mode |
655 |
current-language-environment default-input-method |
current-language-environment default-input-method |
656 |
;; Saving `text-mode-hook' is somewhat questionable, |
;; Saving `text-mode-hook' is somewhat questionable, |
657 |
;; as we might get more than we bargain for, if |
;; as we might get more than we bargain for, if |