/[emacs]/emacs/lisp/eshell/esh-cmd.el
ViewVC logotype

Diff of /emacs/lisp/eshell/esh-cmd.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by ttn, Mon Aug 1 15:04:33 2005 UTC revision 1.28 by johnw, Fri Aug 26 22:51:03 2005 UTC
# Line 453  hooks should be run before and after the Line 453  hooks should be run before and after the
453    
454  (defun eshell-rewrite-named-command (terms)  (defun eshell-rewrite-named-command (terms)
455    "If no other rewriting rule transforms TERMS, assume a named command."    "If no other rewriting rule transforms TERMS, assume a named command."
456    (list (if eshell-in-pipeline-p    (let ((sym (if eshell-in-pipeline-p
457              'eshell-named-command*                   'eshell-named-command*
458            'eshell-named-command)                 'eshell-named-command))
459          (car terms)          (cmd (car terms))
460          (and (cdr terms)          (args (cdr terms)))
461               (append (list 'list) (cdr terms)))))      (if args
462            (list sym cmd (append (list 'list) (cdr terms)))
463          (list sym cmd))))
464    
465  (eshell-deftest cmd named-command  (eshell-deftest cmd named-command
466    "Execute named command"    "Execute named command"

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26