diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-10-26 22:42:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-10-26 22:42:12 +0000 |
| commit | 4df542027f158d815f40353767d476f4d86b976c (patch) | |
| tree | 20eccee739dc8876871b9c3a83b7f3a61a65ec8e /lisp/shell.el | |
| parent | a04d59830e46664faa4d534366a6b07e3b7c12f2 (diff) | |
| download | emacs-4df542027f158d815f40353767d476f4d86b976c.tar.gz | |
(shell): Look for .emacs_SHELL under ~/.emacs.d after looking in ~.
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 94df8733265..0eaea9af27f 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -506,6 +506,8 @@ Otherwise, one argument `-i' is passed to the shell. (name (file-name-nondirectory prog)) (startfile (concat "~/.emacs_" name)) (xargs-name (intern-soft (concat "explicit-" name "-args")))) + (if (not (file-exists-p startfile)) + (setq startfile (concat "~/.emacs.d/.emacs_" name))) (apply 'make-comint-in-buffer "shell" buffer prog (if (file-exists-p startfile) startfile) (if (and xargs-name (boundp xargs-name)) |