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"
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
