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

(shell): Use user-emacs-directory.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index a218981256a..9e07540d9d8 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -557,7 +557,7 @@ Otherwise, one argument `-i' is passed to the shell.
 	   (startfile (concat "~/.emacs_" name))
 	   (xargs-name (intern-soft (concat "explicit-" name "-args"))))
       (unless (file-exists-p startfile)
-	(setq startfile (concat "~/.emacs.d/init_" name ".sh")))
+	(setq startfile (concat user-emacs-directory "init_" name ".sh")))
       (apply 'make-comint-in-buffer "shell" buffer prog
 	     (if (file-exists-p startfile) startfile)
 	     (if (and xargs-name (boundp xargs-name))