Mercurial > emacs

changeset 81339:d8ee6aceb564

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scheme-start-file): Use user-emacs-directory.
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 13 Jun 2007 00:03:39 +0000
parents 62535fec6ee1
children b612fb999814
files lisp/cmuscheme.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cmuscheme.el	Wed Jun 13 00:03:28 2007 +0000
+++ b/lisp/cmuscheme.el	Wed Jun 13 00:03:39 2007 +0000
@@ -271,7 +271,7 @@
 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)
         start-file
       (and (file-exists-p alt-start-file) alt-start-file))))