Re: fancy-splash-screen customize group...

[Richard M. Stallman]

    What should happen is that the "Save for future sessions" item in
    the State pop up menu should be disabled when the --no-init-file option
    is in effect.

I think you have identified a bug.  Does this fix give good results?

*** cus-edit.el 08 Dec 2005 10:48:32 -0500      1.244
--- cus-edit.el 09 Dec 2005 18:35:50 -0500      
***************
*** 1447,1460 ****
  Make your editing in this buffer take effect for this session."
                 :action (lambda (widget &optional event)
                           (Custom-set)))
!   (widget-insert " ")
!   (widget-create 'push-button
!                :tag "Save for Future Sessions"
!                :help-echo "\
  Make your editing in this buffer take effect for future Emacs sessions.
  This updates your Emacs initialization file or creates a new one."
!                :action (lambda (widget &optional event)
!                          (Custom-save)))
    (if custom-reset-button-menu
        (progn
        (widget-insert " ")
--- 1447,1461 ----
  Make your editing in this buffer take effect for this session."
                 :action (lambda (widget &optional event)
                           (Custom-set)))
!   (when user-init-file
!     (widget-insert " ")
!     (widget-create 'push-button
!                  :tag "Save for Future Sessions"
!                  :help-echo "\
  Make your editing in this buffer take effect for future Emacs sessions.
  This updates your Emacs initialization file or creates a new one."
!                  :action (lambda (widget &optional event)
!                            (Custom-save))))
    (if custom-reset-button-menu
        (progn
        (widget-insert " ")
***************
*** 2537,2548 ****
    (get (widget-value widget) 'standard-value))
  
  (defvar custom-variable-menu
!   '(("Set for Current Session" custom-variable-set
       (lambda (widget)
         (eq (widget-get widget :custom-state) 'modified)))
!     ("Save for Future Sessions" custom-variable-save
!      (lambda (widget)
!        (memq (widget-get widget :custom-state) '(modified set changed 
rogue))))
      ("Reset to Current" custom-redraw
       (lambda (widget)
         (and (default-boundp (widget-value widget))
--- 2538,2550 ----
    (get (widget-value widget) 'standard-value))
  
  (defvar custom-variable-menu
!   `(("Set for Current Session" custom-variable-set
       (lambda (widget)
         (eq (widget-get widget :custom-state) 'modified)))
!     ,@(when user-init-file
!       '(("Save for Future Sessions" custom-variable-save
!          (lambda (widget)
!            (memq (widget-get widget :custom-state) '(modified set changed 
rogue))))))
      ("Reset to Current" custom-redraw
       (lambda (widget)
         (and (default-boundp (widget-value widget))
***************
*** 3208,3215 ****
             (message "Creating face editor...done"))))))
  
  (defvar custom-face-menu
!   '(("Set for Current Session" custom-face-set)
!     ("Save for Future Sessions" custom-face-save-command)
      ("Reset to Saved" custom-face-reset-saved
       (lambda (widget)
         (or (get (widget-value widget) 'saved-face)
--- 3210,3218 ----
             (message "Creating face editor...done"))))))
  
  (defvar custom-face-menu
!   `(("Set for Current Session" custom-face-set)
!     ,@(when user-init-file
!       '(("Save for Future Sessions" custom-face-save-command)))
      ("Reset to Saved" custom-face-reset-saved
       (lambda (widget)
         (or (get (widget-value widget) 'saved-face)
***************
*** 3798,3809 ****
           (insert "/\n")))))
  
  (defvar custom-group-menu
!   '(("Set for Current Session" custom-group-set
       (lambda (widget)
         (eq (widget-get widget :custom-state) 'modified)))
!     ("Save for Future Sessions" custom-group-save
!      (lambda (widget)
!        (memq (widget-get widget :custom-state) '(modified set))))
      ("Reset to Current" custom-group-reset-current
       (lambda (widget)
         (memq (widget-get widget :custom-state) '(modified))))
--- 3801,3813 ----
           (insert "/\n")))))
  
  (defvar custom-group-menu
!   `(("Set for Current Session" custom-group-set
       (lambda (widget)
         (eq (widget-get widget :custom-state) 'modified)))
!     ,@(when user-init-file
!       '(("Save for Future Sessions" custom-group-save
!          (lambda (widget)
!            (memq (widget-get widget :custom-state) '(modified set))))))
      ("Reset to Current" custom-group-reset-current
       (lambda (widget)
         (memq (widget-get widget :custom-state) '(modified))))