[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/eshell/esh-cmd.el
From: |
John Wiegley |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/eshell/esh-cmd.el |
Date: |
Fri, 26 Aug 2005 18:51:03 -0400 |
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"