mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(dos-reevaluate-defcustoms): Fix last change.

Browse Source
This commit is contained in:
Eli Zaretskii 2008-10-19 11:20:00 +00:00
parent 34767325fa
commit e6f174da18
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/dos-fns.el
View File

@ -200,12 +200,21 @@ shell requires it (see `w32-shell-dos-semantics')."
;; 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".
;; at runtime, or vice versa, and if the default file name begins with
;; a period. Their defcustom's need to be reevaluated at startup. To
;; see if the list of defcustom's below is up to date, 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)
;; This was computed in paths.el, but that was at dump time.
(setq abbrev-file-name
(if (msdos-long-file-names)
"~/.abbrev_defs"
"~/_abbrev.defs"))
;; This was computed in loaddefs.el, but that was at dump time.
(setq calc-settings-file
(if (msdos-long-file-names)
"~/.calc.el"
"~/_calc.el"))
(custom-reevaluate-setting 'trash-directory))
(add-hook 'before-init-hook 'dos-reevaluate-defcustoms)