Mercurial > emacs
changeset 98859:ff71052e3573
(dos-reevaluate-defcustoms): New function. Add it to before-init-hook.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 19 Oct 2008 09:35:32 +0000 |
| parents | 0247eb23156a |
| children | 1dd023ea43da |
| files | lisp/dos-fns.el |
| diffstat | 1 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dos-fns.el Sun Oct 19 08:27:14 2008 +0000 +++ b/lisp/dos-fns.el Sun Oct 19 09:35:32 2008 +0000 @@ -189,7 +189,7 @@ ;; See dos-vars.el for defcustom. (defvar msdos-shells) -;;; Override setting chosen at startup. +;; Override settings chosen at startup. (defun set-default-process-coding-system () (setq default-process-coding-system (if default-enable-multibyte-characters @@ -198,6 +198,18 @@ (add-hook 'before-init-hook 'set-default-process-coding-system) +;; File names defined in preloaded packages can be incorrect or +;; invalid if long file names were available during dumping, but not +;; at runtime, and the default file name begins with a period. Their +;; defcustom's need to be reevaluated at startup. To update the list +;; of defcustom's below, run the command "M-x apropos-value RET ~/\. RET". +(defun dos-reevaluate-defcustoms () + (custom-reevaluate-setting 'abbrev-file-name) + (custom-reevaluate-setting 'calc-settings-file) + (custom-reevaluate-setting 'trash-directory)) + +(add-hook 'before-init-hook 'dos-reevaluate-defcustoms) + (defvar register-name-alist '((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5) (cflag . 6) (flags . 7)