Show
Ignore:
Timestamp:
2005年09月10日 10時16分00秒 (3 years ago)
Author:
miyoshi
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/eshell/esh-cmd.el

    r3801 r3863  
    454454(defun eshell-rewrite-named-command (terms) 
    455455  "If no other rewriting rule transforms TERMS, assume a named command." 
    456   (list (if eshell-in-pipeline-p 
    457             'eshell-named-command* 
    458           'eshell-named-command) 
    459         (car terms) 
    460         (and (cdr terms) 
    461              (append (list 'list) (cdr terms))))) 
     456  (let ((sym (if eshell-in-pipeline-p 
     457                 'eshell-named-command* 
     458               'eshell-named-command)) 
     459        (cmd (car terms)) 
     460        (args (cdr terms))) 
     461    (if args 
     462        (list sym cmd (append (list 'list) (cdr terms))) 
     463      (list sym cmd)))) 
    462464 
    463465(eshell-deftest cmd named-command