Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e6f174da
Commit
e6f174da
authored
Oct 19, 2008
by
Eli Zaretskii
Browse files
(dos-reevaluate-defcustoms): Fix last change.
parent
34767325
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
5 deletions
+14
-5
lisp/dos-fns.el
lisp/dos-fns.el
+14
-5
No files found.
lisp/dos-fns.el
View file @
e6f174da
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment