[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/menu-bar.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/menu-bar.el |
Date: |
Sat, 27 Nov 2004 14:07:17 -0500 |
Index: emacs/lisp/menu-bar.el
diff -c emacs/lisp/menu-bar.el:1.249 emacs/lisp/menu-bar.el:1.250
*** emacs/lisp/menu-bar.el:1.249 Mon Nov 8 16:44:15 2004
--- emacs/lisp/menu-bar.el Sat Nov 27 19:01:02 2004
***************
*** 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,650 ----
"Save current values of Options menu items using Custom."
(interactive)
(let ((need-save nil))
+ ;; These are set with menu-bar-make-mm-toggle, which does not
+ ;; put on a customized-value property.
+ (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,