Custom shells started automatically from .emacs

The following works for me

(let ((default-directory "/path/to/whereever/"))  (shell "*shell1*"))

shell emacs elisp

(shell "*shell5*")(with-current-buffer "*shell5*"(goto-char (point-max))(insert "cd dir")) ;;for example(comint-send-input nil t) ;; enter

For now I have this, its need some improvement I think. When I use in my emacs its causes an error, but does what you want. I will try to figure why.

CodeHunter