diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-03-04 19:53:41 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-03-04 19:53:41 -0800 |
| commit | a9eeff78d5bdcb9e03055376705e8f31fe145b79 (patch) | |
| tree | d1324a268a41de5545d6d4f16fc89ab223e341e3 /lisp/eshell/em-alias.el | |
| parent | 85a55d3871ce4efbde1666bd48b4fca1c638ee99 (diff) | |
| download | emacs-a9eeff78d5bdcb9e03055376705e8f31fe145b79.tar.gz emacs-a9eeff78d5bdcb9e03055376705e8f31fe145b79.tar.bz2 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/em-alias.el')
| -rw-r--r-- | lisp/eshell/em-alias.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/eshell/em-alias.el b/lisp/eshell/em-alias.el index aa138cb4dcb..9efa95fc9ab 100644 --- a/lisp/eshell/em-alias.el +++ b/lisp/eshell/em-alias.el @@ -156,7 +156,7 @@ command, which will automatically write them to the file named by (defun eshell/alias (&optional alias &rest definition) "Define an ALIAS in the user's alias list using DEFINITION." (if (not alias) - (eshell-for alias eshell-command-aliases-list + (dolist (alias eshell-command-aliases-list) (eshell-print (apply 'format "alias %s %s\n" alias))) (if (not definition) (setq eshell-command-aliases-list @@ -238,7 +238,7 @@ command, which will automatically write them to the file named by "Find all possible completions for NAME. These are all the command aliases which begin with NAME." (let (completions) - (eshell-for alias eshell-command-aliases-list + (dolist (alias eshell-command-aliases-list) (if (string-match (concat "^" name) (car alias)) (setq completions (cons (car alias) completions)))) completions)) |