aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell/esh-proc.el
diff options
context:
space:
mode:
authorGlenn Morris2011-03-04 19:53:41 -0800
committerGlenn Morris2011-03-04 19:53:41 -0800
commita9eeff78d5bdcb9e03055376705e8f31fe145b79 (patch)
treed1324a268a41de5545d6d4f16fc89ab223e341e3 /lisp/eshell/esh-proc.el
parent85a55d3871ce4efbde1666bd48b4fca1c638ee99 (diff)
downloademacs-a9eeff78d5bdcb9e03055376705e8f31fe145b79.tar.gz
emacs-a9eeff78d5bdcb9e03055376705e8f31fe145b79.zip
Make eshell-for obsolete (replaced by dolist)
* eshell/esh-util.el (eshell-for): Make it obsolete. * eshell/em-alias.el (eshell/alias, eshell-alias-completions): * eshell/em-dirs.el (eshell-save-some-last-dir): * eshell/em-hist.el (eshell-save-some-history, eshell-hist-parse-modifier): * eshell/em-ls.el (eshell-ls-dir, eshell-ls-files, eshell-ls-entries): * eshell/em-unix.el (eshell/cat, eshell/du, eshell/su): * eshell/esh-cmd.el (eshell-invoke-directly, eshell-do-eval, eshell/which): * eshell/esh-ext.el (eshell-find-interpreter): * eshell/esh-mode.el (eshell-mode): * eshell/esh-module.el (eshell-unload-extension-modules): * eshell/esh-proc.el (eshell-process-interact): * eshell/esh-test.el (eshell-test): * eshell/esh-util.el (eshell-flatten-list, eshell-winnow-list): * eshell/esh-var.el (eshell/env, eshell-environment-variables) (eshell-variables-list): * eshell/eshell.el (eshell-unload-all-modules): Replace eshell-for with dolist.
Diffstat (limited to 'lisp/eshell/esh-proc.el')
-rw-r--r--lisp/eshell/esh-proc.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/eshell/esh-proc.el b/lisp/eshell/esh-proc.el
index f697a400556..8757f5d56a0 100644
--- a/lisp/eshell/esh-proc.el
+++ b/lisp/eshell/esh-proc.el
@@ -398,7 +398,7 @@ PROC is the process that's exiting. STRING is the exit message."
398If ALL is non-nil, background processes will be interacted with as well. 398If ALL is non-nil, background processes will be interacted with as well.
399If QUERY is non-nil, query the user with QUERY before calling FUNC." 399If QUERY is non-nil, query the user with QUERY before calling FUNC."
400 (let (defunct result) 400 (let (defunct result)
401 (eshell-for entry eshell-process-list 401 (dolist (entry eshell-process-list)
402 (if (and (memq (process-status (car entry)) 402 (if (and (memq (process-status (car entry))
403 '(run stop open closed)) 403 '(run stop open closed))
404 (or all 404 (or all
@@ -412,7 +412,7 @@ If QUERY is non-nil, query the user with QUERY before calling FUNC."
412 ;; clean up the process list; this can get dirty if an error 412 ;; clean up the process list; this can get dirty if an error
413 ;; occurred that brought the user into the debugger, and then they 413 ;; occurred that brought the user into the debugger, and then they
414 ;; quit, so that the sentinel was never called. 414 ;; quit, so that the sentinel was never called.
415 (eshell-for d defunct 415 (dolist (d defunct)
416 (eshell-remove-process-entry d)) 416 (eshell-remove-process-entry d))
417 result)) 417 result))
418 418