;; Running command shells


(defun run-shell (buf) (interactive "B")
  (shell (wrap-asterisks buf)))
(defun default-shell () (interactive)
  (if 
      (and (get-buffer-process (current-buffer))
	   (equal "*shell*" (buffer-name (current-buffer))))
      
      (call-interactively 'rename-buffer-asterisk)
    (shell)
    (font-lock-mode -1)))

(defun wrap-asterisks (name)
  (concat "*" name "*"))

(defun rename-buffer-asterisk (buf) 
  (interactive "MRename to *<name>*: ")
  (rename-buffer (wrap-asterisks buf)))



(defun comint-current-input ()
  (buffer-substring-no-properties
   (process-mark (get-buffer-process (current-buffer)))
   (point-max)))

(defun comint-clear-buffer () (interactive)
  (save-excursion
    (comint-goto-process-mark)
    (forward-line 0)
    (kill-region (point-min) (point))))