Re: Autogen in Emacs Shell

[Alexander Shukaev]

Looks like it's here:

  (pop-to-buffer buffer)
  (unless (comint-check-proc buffer)
    (let* ((prog (or explicit-shell-file-name
     (getenv "ESHELL") shell-file-name))
   (name (file-name-nondirectory prog))
   (startfile (concat "~/.emacs_" name))
   (xargs-name (intern-soft (concat "explicit-" name "-args"))))
      (unless (file-exists-p startfile)
(setq startfile (concat user-emacs-directory "init_" name ".sh")))
      (apply 'make-comint-in-buffer "shell" buffer prog
     (if (file-exists-p startfile) startfile)
     (if (and xargs-name (boundp xargs-name))
 (symbol-value xargs-name)
       '("-i")))
      (shell-mode)))

in the `shell' function.