[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/cus-edit.el,v [EMACS_22_BASE]
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/cus-edit.el,v [EMACS_22_BASE] |
Date: |
Fri, 12 Oct 2007 02:53:43 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Glenn Morris <gm> 07/10/12 02:53:43
Index: cus-edit.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cus-edit.el,v
retrieving revision 1.319.2.5
retrieving revision 1.319.2.6
diff -u -b -r1.319.2.5 -r1.319.2.6
--- cus-edit.el 16 Sep 2007 03:04:18 -0000 1.319.2.5
+++ cus-edit.el 12 Oct 2007 02:53:42 -0000 1.319.2.6
@@ -2744,7 +2744,12 @@
`(("Set for Current Session" custom-variable-set
(lambda (widget)
(eq (widget-get widget :custom-state) 'modified)))
- ,@(when (or custom-file user-init-file)
+ ;; Note that in all the backquoted code in this file, we test
+ ;; init-file-user rather than user-init-file. This is in case
+ ;; cus-edit is loaded by something in site-start.el, because
+ ;; user-init-file is not set at that stage.
+ ;; http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00310.html
+ ,@(when (or custom-file init-file-user)
'(("Save for Future Sessions" custom-variable-save
(lambda (widget)
(memq (widget-get widget :custom-state)
@@ -2759,7 +2764,7 @@
(get (widget-value widget) 'saved-variable-comment))
(memq (widget-get widget :custom-state)
'(modified set changed rogue)))))
- ,@(when (or custom-file user-init-file)
+ ,@(when (or custom-file init-file-user)
'(("Erase Customization" custom-variable-reset-standard
(lambda (widget)
(and (get (widget-value widget) 'standard-value)
@@ -3416,7 +3421,7 @@
(defvar custom-face-menu
`(("Set for Current Session" custom-face-set)
- ,@(when (or custom-file user-init-file)
+ ,@(when (or custom-file init-file-user)
'(("Save for Future Sessions" custom-face-save)))
("Undo Edits" custom-redraw
(lambda (widget)
@@ -3425,7 +3430,7 @@
(lambda (widget)
(or (get (widget-value widget) 'saved-face)
(get (widget-value widget) 'saved-face-comment))))
- ,@(when (or custom-file user-init-file)
+ ,@(when (or custom-file init-file-user)
'(("Erase Customization" custom-face-reset-standard
(lambda (widget)
(get (widget-value widget) 'face-defface-spec)))))
@@ -4025,7 +4030,7 @@
`(("Set for Current Session" custom-group-set
(lambda (widget)
(eq (widget-get widget :custom-state) 'modified)))
- ,@(when (or custom-file user-init-file)
+ ,@(when (or custom-file init-file-user)
'(("Save for Future Sessions" custom-group-save
(lambda (widget)
(memq (widget-get widget :custom-state) '(modified set))))))
@@ -4035,7 +4040,7 @@
("Reset to Saved" custom-group-reset-saved
(lambda (widget)
(memq (widget-get widget :custom-state) '(modified set))))
- ,@(when (or custom-file user-init-file)
+ ,@(when (or custom-file init-file-user)
'(("Erase Customization" custom-group-reset-standard
(lambda (widget)
(memq (widget-get widget :custom-state) '(modified set saved)))))))
- [Emacs-diffs] Changes to emacs/lisp/cus-edit.el,v [EMACS_22_BASE],
Glenn Morris <=