Commit 5a96c751 authored by Chong Yidong's avatar Chong Yidong
Browse files

(scheme-start-file): Use user-emacs-directory.

parent d8869c65
......@@ -271,7 +271,7 @@ Search in the directories \"~\" and \"~/.emacs.d\", in this
order. Return nil if no start file found."
(let* ((progname (file-name-nondirectory prog))
(start-file (concat "~/.emacs_" progname))
(alt-start-file (concat "~/.emacs.d/init_" progname ".scm")))
(alt-start-file (concat user-emacs-directory "init_" progname ".scm")))
(if (file-exists-p start-file)
(and (file-exists-p alt-start-file) alt-start-file))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment