Mercurial > emacs

diff lisp/shell.el @ 48016:52a504c502a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shell): Look for .emacs_SHELL under ~/.emacs.d after looking in ~.
author Richard M. Stallman <rms@gnu.org>
date Sat, 26 Oct 2002 22:42:12 +0000
parents bd315b9fa3f0
children 5fbd632e1109
line wrap: on
line diff
--- a/lisp/shell.el	Sat Oct 26 22:41:33 2002 +0000
+++ b/lisp/shell.el	Sat Oct 26 22:42:12 2002 +0000
@@ -506,6 +506,8 @@
 	   (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))