[Emacs-diffs] Changes to emacs/lisp/dos-fns.el,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    08/10/19 09:35:33

Index: dos-fns.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/dos-fns.el,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -b -r1.54 -r1.55
--- dos-fns.el  6 May 2008 07:57:31 -0000       1.54
+++ dos-fns.el  19 Oct 2008 09:35:32 -0000      1.55
@@ -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)