# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1181693029 0
# Node ID b612fb99981494b9749ead2929c8ed21bfc06d67
# Parent  d8ee6aceb564996248ba7dda5029c305b8e13981
(shell): Use user-emacs-directory.

diff -r d8ee6aceb564 -r b612fb999814 lisp/shell.el
--- a/lisp/shell.el	Wed Jun 13 00:03:39 2007 +0000
+++ b/lisp/shell.el	Wed Jun 13 00:03:49 2007 +0000
@@ -557,7 +557,7 @@
 	   (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))