[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: <options> <cua-mode> + <options> <save> doesn't save cua-mode
From: |
Richard Stallman |
Subject: |
Re: <options> <cua-mode> + <options> <save> doesn't save cua-mode |
Date: |
Wed, 24 Nov 2004 21:21:32 -0500 |
This change seems to fix the problem, making it save these options.
I am not sure if it has some other drawback, though. Another possible
approach would be to eliminate menu-bar-make-mm-toggle.
*** menu-bar.el 04 Nov 2004 03:07:52 -0500 1.249
--- menu-bar.el 24 Nov 2004 14:13:41 -0500
***************
*** 634,645 ****
"Save current values of Options menu items using Custom."
(interactive)
(let ((need-save nil))
;; These are set with `customize-set-variable'.
! (dolist (elt '(line-number-mode column-number-mode scroll-bar-mode
debug-on-quit debug-on-error menu-bar-mode tool-bar-mode
save-place uniquify-buffer-name-style fringe-mode
! case-fold-search cua-mode show-paren-mode
! transient-mark-mode global-font-lock-mode
display-time-mode auto-compression-mode
current-language-environment default-input-method
;; Saving `text-mode-hook' is somewhat questionable,
--- 634,649 ----
"Save current values of Options menu items using Custom."
(interactive)
(let ((need-save nil))
+ ;; These are often set in a way that Custom doesn't know about.
+ (dolist (elt '(line-number-mode column-number-mode cua-mode
show-paren-mode
+ transient-mark-mode global-font-lock-mode))
+ (and (customize-mark-to-save elt)
+ (setq need-save t)))
;; These are set with `customize-set-variable'.
! (dolist (elt '(scroll-bar-mode
debug-on-quit debug-on-error menu-bar-mode tool-bar-mode
save-place uniquify-buffer-name-style fringe-mode
! case-fold-search
display-time-mode auto-compression-mode
current-language-environment default-input-method
;; Saving `text-mode-hook' is somewhat questionable,