Commit 4df54202 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent a04d5983
......@@ -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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment