From 4df542027f158d815f40353767d476f4d86b976c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 26 Oct 2002 22:42:12 +0000 Subject: [PATCH] (shell): Look for .emacs_SHELL under ~/.emacs.d after looking in ~. --- lisp/shell.el | 2 ++ 1 file changed, 2 insertions(+) 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)) -- 2.39.2