(shell): Look for .emacs_SHELL under ~/.emacs.d after looking in ~.

4df54202 · Richard M. Stallman · a04d5983 · 4df54202
Commit 4df54202 authored Oct 26, 2002 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

lisp/shell.el lisp/shell.el +2 -0

No files found.
--- 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))