From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Richard M. Stallman" Newsgroups: gmane.emacs.devel Subject: Re: fancy-splash-screen customize group... Date: Fri, 09 Dec 2005 23:13:31 -0500 Message-ID: References: <200512091806.jB9I6cSr008745@brains.moreideas.ca> Reply-To: rms@gnu.org NNTP-Posting-Host: main.gmane.org Content-Type: text/plain; charset=ISO-8859-15 X-Trace: sea.gmane.org 1134188214 3608 80.91.229.2 (10 Dec 2005 04:16:54 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 10 Dec 2005 04:16:54 +0000 (UTC) Cc: lennart.borgman.073@student.lu.se, teirllm@dms.auburn.edu, emacs@whaite.ca, emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Dec 10 05:16:53 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1Ekw95-0005Tc-CO for ged-emacs-devel@m.gmane.org; Sat, 10 Dec 2005 05:15:39 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ekw9S-000457-5K for ged-emacs-devel@m.gmane.org; Fri, 09 Dec 2005 23:16:02 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Ekw8D-0003ob-QW for emacs-devel@gnu.org; Fri, 09 Dec 2005 23:14:45 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Ekw8D-0003oC-0G for emacs-devel@gnu.org; Fri, 09 Dec 2005 23:14:45 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ekw8C-0003o2-Ow for emacs-devel@gnu.org; Fri, 09 Dec 2005 23:14:44 -0500 Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.34) id 1Ekw9V-0008G9-R8 for emacs-devel@gnu.org; Fri, 09 Dec 2005 23:16:05 -0500 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.34) id 1Ekw71-0003Bu-CP; Fri, 09 Dec 2005 23:13:31 -0500 Original-To: Peter Whaite In-reply-to: <200512091806.jB9I6cSr008745@brains.moreideas.ca> (message from Peter Whaite on Fri, 09 Dec 2005 13:06:38 -0500) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:47368 Archived-At: 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))))