[Emacs-diffs] Changes to emacs/lisp/eshell/esh-cmd.el

[John Wiegley]

Index: emacs/lisp/eshell/esh-cmd.el
diff -c emacs/lisp/eshell/esh-cmd.el:1.27 emacs/lisp/eshell/esh-cmd.el:1.28
*** emacs/lisp/eshell/esh-cmd.el:1.27   Mon Aug  1 15:04:33 2005
--- emacs/lisp/eshell/esh-cmd.el        Fri Aug 26 22:51:03 2005
***************
*** 453,464 ****
  
  (defun eshell-rewrite-named-command (terms)
    "If no other rewriting rule transforms TERMS, assume a named command."
!   (list (if eshell-in-pipeline-p
!           'eshell-named-command*
!         'eshell-named-command)
!       (car terms)
!       (and (cdr terms)
!            (append (list 'list) (cdr terms)))))
  
  (eshell-deftest cmd named-command
    "Execute named command"
--- 453,466 ----
  
  (defun eshell-rewrite-named-command (terms)
    "If no other rewriting rule transforms TERMS, assume a named command."
!   (let ((sym (if eshell-in-pipeline-p
!                'eshell-named-command*
!              'eshell-named-command))
!       (cmd (car terms))
!       (args (cdr terms)))
!     (if args
!       (list sym cmd (append (list 'list) (cdr terms)))
!       (list sym cmd))))
  
  (eshell-deftest cmd named-command
    "Execute named command"