Re: customize-rouge output with emacs -q --no-site-file

["Lennart Borgman" <lennart.borgman.073@student.lu.se>]

[-- Attachment #1: Type: text/plain, Size: 631 bytes --]

> 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.)

[-- Attachment #2: startup-fix.el --]
[-- Type: application/octet-stream, Size: 1967 bytes --]

;;; 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)

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel