From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 13 Jun 2007 00:03:39 +0000 (+0000)
Subject: (scheme-start-file): Use user-emacs-directory.
X-Git-Tag: emacs-pretest-23.0.90~12341
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a96c75174b75d53a55b416eddc1f56357be8a48;p=emacs.git

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

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 12840441a6a..b89470b0045 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -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)
         start-file
       (and (file-exists-p alt-start-file) alt-start-file))))