[Emacs-diffs] Changes to emacs/lisp/menu-bar.el

[Richard M . Stallman]

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,