Re: Inject some eshell features into shell?

[Kevin Rodgers <ihs_4664@yahoo.com>]

Kevin Rodgers wrote:

> Here's a start.  It's main deficiency is that it only works for commands
> that take zero or one argument:


This should fix that problem:


(defun shell-maybe-send (process command)
  "Maybe send the shell PROCESS the COMMAND string.
But if COMMAND can be interpreted as an Emacs command (e.g. \"find-file foo.c\"),
convert it to Lisp and evaluate it."
  (let* ((command-list (split-string command))
         (command-symbol (and (car command-list)
                              (intern-soft (car command-list)))))
    (if (and command-symbol (commandp command-symbol))
        (apply command-symbol (cdr command-list))
      (comint-simple-send process command))))


(add-hook 'shell-mode-hook
          (lambda () (setq comint-input-sender 'shell-maybe-send)))


-- 
Kevin Rodgers