diff options
| author | Glenn Morris | 2011-03-04 19:53:41 -0800 |
|---|---|---|
| committer | Glenn Morris | 2011-03-04 19:53:41 -0800 |
| commit | a9eeff78d5bdcb9e03055376705e8f31fe145b79 (patch) | |
| tree | d1324a268a41de5545d6d4f16fc89ab223e341e3 /lisp/eshell/esh-proc.el | |
| parent | 85a55d3871ce4efbde1666bd48b4fca1c638ee99 (diff) | |
| download | emacs-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.el | 4 |
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." | |||
| 398 | If ALL is non-nil, background processes will be interacted with as well. | 398 | If ALL is non-nil, background processes will be interacted with as well. |
| 399 | If QUERY is non-nil, query the user with QUERY before calling FUNC." | 399 | If 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 | ||