From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: "Lennart Borgman" Newsgroups: gmane.emacs.devel Subject: Re: customize-rouge output with emacs -q --no-site-file Date: Fri, 4 Feb 2005 23:17:57 +0100 Message-ID: <004501c50b07$6690f620$0200a8c0@sedrcw11488> References: <00cb01c50ad3$5f978570$0200a8c0@sedrcw11488> <010101c50aed$d57b4640$0200a8c0@sedrcw11488> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="----=_NextPart_000_0042_01C50B0F.C31315B0" X-Trace: sea.gmane.org 1107556395 9560 80.91.229.2 (4 Feb 2005 22:33:15 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 4 Feb 2005 22:33:15 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Feb 04 23:33:15 2005 Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1CxC0j-0000Se-Qk for ged-emacs-devel@m.gmane.org; Fri, 04 Feb 2005 23:33:10 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1CxCEL-0001BT-5B for ged-emacs-devel@m.gmane.org; Fri, 04 Feb 2005 17:47:13 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1CxCBa-0007un-MB for emacs-devel@gnu.org; Fri, 04 Feb 2005 17:44:22 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1CxCBW-0007tE-Se for emacs-devel@gnu.org; Fri, 04 Feb 2005 17:44:20 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1CxCBW-0007ps-7v for emacs-devel@gnu.org; Fri, 04 Feb 2005 17:44:18 -0500 Original-Received: from [81.228.10.114] (helo=av3-1-sn4.m-sp.skanova.net) by monty-python.gnu.org with esmtp (Exim 4.34) id 1CxBmP-00065I-O9 for emacs-devel@gnu.org; Fri, 04 Feb 2005 17:18:22 -0500 Original-Received: by av3-1-sn4.m-sp.skanova.net (Postfix, from userid 502) id 0B5E937E7B; Fri, 4 Feb 2005 23:18:21 +0100 (CET) Original-Received: from smtp2-2-sn4.m-sp.skanova.net (smtp2-2-sn4.m-sp.skanova.net [81.228.10.182]) by av3-1-sn4.m-sp.skanova.net (Postfix) with ESMTP id EFA0E37E4B for ; Fri, 4 Feb 2005 23:18:20 +0100 (CET) Original-Received: from sedrcw11488 (t2o58p23.telia.com [62.20.165.23]) by smtp2-2-sn4.m-sp.skanova.net (Postfix) with SMTP id E65BE37E43 for ; Fri, 4 Feb 2005 23:18:19 +0100 (CET) Original-To: "Emacs Devel" X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 6.00.2800.1409 X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2800.1409 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 X-MailScanner-To: ged-emacs-devel@m.gmane.org Xref: main.gmane.org gmane.emacs.devel:32886 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:32886 This is a multi-part message in MIME format. ------=_NextPart_000_0042_01C50B0F.C31315B0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit > At the moment I can not see any reason not to do this. Should not the values > just before loading `site-run-file' be the "standard values" for those > variables? > > As it works now if you "Erase Customization" for those variables Emacs might > get into trouble. Therefore I attach some simple code for setting the > "standard-values" that I think should go into startup.el to avoid this > trouble. I believe I have attached a working version now. When I test I see customize-rogue sees no rogue variables. Though I have not tested actually including this in startup.el. (And I have learned the diff between rouge and rogue.) ------=_NextPart_000_0042_01C50B0F.C31315B0 Content-Type: application/octet-stream; name="startup-fix.el" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="startup-fix.el" ;;; Set standard values for defcustom that are missing this here. ;; ;; This code should go into startup.el just before executing loading ;; site-run-file. (defun startup-set-standard-value (symbol) "Set the current value of SYMBOL as the standard value for Customize." (when (boundp symbol) (put symbol 'standard-value (list symbol)))) (startup-set-standard-value 'baud-rate) (startup-set-standard-value 'blink-cursor) (startup-set-standard-value 'completion-ignored-extensions) (startup-set-standard-value 'current-language-environment) (startup-set-standard-value 'custom-unlispify-tag-names) (startup-set-standard-value 'debug-ignored-errors) (startup-set-standard-value 'default-frame-alist) (startup-set-standard-value 'default-input-method) (startup-set-standard-value 'encoded-kbd-mode) (startup-set-standard-value 'eol-mnemonic-mac) (startup-set-standard-value 'eol-mnemonic-unix) (startup-set-standard-value 'exec-path) (startup-set-standard-value 'file-coding-system-alist) (startup-set-standard-value 'find-file-hook) (startup-set-standard-value 'find-file-visit-truename) (startup-set-standard-value 'help-event-list) (startup-set-standard-value 'keyboard-coding-system) (startup-set-standard-value 'menu-bar-mode) (startup-set-standard-value 'minibuffer-history-case-insensitive-variables) (startup-set-standard-value 'minibuffer-prompt-properties) (startup-set-standard-value 'mode-line-format) (startup-set-standard-value 'mouse-wheel-mode) (startup-set-standard-value 'normal-erase-is-backspace) (startup-set-standard-value 'pop-up-frame-function) (startup-set-standard-value 'same-window-buffer-names) (startup-set-standard-value 'same-window-regexps) (startup-set-standard-value 'selection-coding-system) (startup-set-standard-value 'shell-file-name) (startup-set-standard-value 'site-run-file) (startup-set-standard-value 'special-display-function) (startup-set-standard-value 'text-mode-hook) (startup-set-standard-value 'tooltip-mode) ------=_NextPart_000_0042_01C50B0F.C31315B0 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel ------=_NextPart_000_0042_01C50B0F.C31315B0--