gistfile1.txt

 
(defun shell-cdcurr-cmd (shname cmd)
  "starts a shell with given name, cd's to current directory, and runs cmd inside it"
  (let ((curdir (current-buffer-directory)))
    (save-excursion
      (shell shname)
      (insert (concat "cd " curdir)) (comint-send-input)
      (insert cmd) (comint-send-input))))

(shell-cdcurr-cmd "rails-server" "rails s -p 3001 --debug")



;Debugger entered--Lisp error: (error "Marker does not point anywhere")
;  ansi-color-apply-on-region(#<marker in no buffer> #<marker at 93 in rails-server>)
;  ansi-color-process-output("")
;  run-hook-with-args(ansi-color-process-output "")
;  comint-send-input()
;  (let ((curdir ...)) (shell shname) (insert (concat "cd " curdir "\n")) (insert cmd) (comint-send-input) (save-excursion))
;  shell-cdcurr-cmd("rails-server" "rails s -p 3001 --debug")
;  eval((shell-cdcurr-cmd "rails-server" "rails s -p 3001 --debug"))
;  eval-last-sexp-1(nil)
;  eval-last-sexp(nil)
;  call-interactively(eval-last-sexp nil nil)
;  recursive-edit()
;  byte-code ("\306	@\307=\203!