/[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.24 by rms, Mon Dec 27 16:16:24 2004 UTC revision 1.25 by johnw, Fri May 27 02:56:52 2005 UTC
# Line 757  nil)' if none)." Line 757  nil)' if none)."
757    
758  (defmacro eshell-do-subjob (object)  (defmacro eshell-do-subjob (object)
759    "Evaluate a command OBJECT as a subjob.    "Evaluate a command OBJECT as a subjob.
760  We indicate thet the process was run in the background by returned it  We indicate that the process was run in the background by returning it
761  ensconced in a list."  ensconced in a list."
762    `(let ((eshell-current-subjob-p t))    `(let ((eshell-current-subjob-p t))
763       ,object))       ,object))
# Line 1006  at the moment are: Line 1006  at the moment are:
1006                     (eshell-resume-eval))))                     (eshell-resume-eval))))
1007        ;; On systems that don't support async subprocesses, eshell-resume        ;; On systems that don't support async subprocesses, eshell-resume
1008        ;; can return t.  Don't treat that as an error.        ;; can return t.  Don't treat that as an error.
1009          (if (listp delim)
1010              (setq delim (car delim)))
1011        (if (and delim (not (eq delim t)))        (if (and delim (not (eq delim t)))
1012            (error "Unmatched delimiter: %c"            (error "Unmatched delimiter: %c" delim)))))
                  (if (listp delim)  
                      (car delim)  
                    delim))))))  
1013    
1014  (defun eshell-resume-command (proc status)  (defun eshell-resume-command (proc status)
1015    "Resume the current command when a process ends."    "Resume the current command when a process ends."

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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