diff options
| author | Chong Yidong | 2007-06-13 00:03:49 +0000 |
|---|---|---|
| committer | Chong Yidong | 2007-06-13 00:03:49 +0000 |
| commit | f7c94f43045af255bfc735fe467beddc2947bc17 (patch) | |
| tree | ee8c3c6e6c7580146cfa3db734f04acfda264615 | |
| parent | 5a96c75174b75d53a55b416eddc1f56357be8a48 (diff) | |
| download | emacs-f7c94f43045af255bfc735fe467beddc2947bc17.tar.gz emacs-f7c94f43045af255bfc735fe467beddc2947bc17.zip | |
(shell): Use user-emacs-directory.
| -rw-r--r-- | lisp/shell.el | 2 |
1 files changed, 1 insertions, 1 deletions
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. | |||
| 557 | (startfile (concat "~/.emacs_" name)) | 557 | (startfile (concat "~/.emacs_" name)) |
| 558 | (xargs-name (intern-soft (concat "explicit-" name "-args")))) | 558 | (xargs-name (intern-soft (concat "explicit-" name "-args")))) |
| 559 | (unless (file-exists-p startfile) | 559 | (unless (file-exists-p startfile) |
| 560 | (setq startfile (concat "~/.emacs.d/init_" name ".sh"))) | 560 | (setq startfile (concat user-emacs-directory "init_" name ".sh"))) |
| 561 | (apply 'make-comint-in-buffer "shell" buffer prog | 561 | (apply 'make-comint-in-buffer "shell" buffer prog |
| 562 | (if (file-exists-p startfile) startfile) | 562 | (if (file-exists-p startfile) startfile) |
| 563 | (if (and xargs-name (boundp xargs-name)) | 563 | (if (and xargs-name (boundp xargs-name)) |