Re: Inject some eshell features into shell?

[Kevin Rodgers]

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