# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1224408932 0
# Node ID ff71052e3573605ea199ea8cb7e7596a72d7189e
# Parent  0247eb23156a945539497ece3401f5ca8a346a8c
(dos-reevaluate-defcustoms): New function.  Add it to before-init-hook.

diff -r 0247eb23156a -r ff71052e3573 lisp/dos-fns.el
--- 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)