Mercurial > emacs
comparison lisp/eshell/em-alias.el @ 37322:d27be94466e0
(eshell-command-aliased-p): `assoc' was required where `member' was
being used.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Wed, 11 Apr 2001 15:49:13 +0000 |
| parents | e21feeab77fb |
| children | 67b464da13ec |
comparison
equal
deleted
inserted
replaced
| 37321:8bc0bd3d9924 | 37322:d27be94466e0 |
|---|---|
| 154 (add-hook 'eshell-named-command-hook 'eshell-maybe-replace-by-alias t t) | 154 (add-hook 'eshell-named-command-hook 'eshell-maybe-replace-by-alias t t) |
| 155 (make-local-variable 'eshell-complex-commands) | 155 (make-local-variable 'eshell-complex-commands) |
| 156 (add-to-list 'eshell-complex-commands 'eshell-command-aliased-p)) | 156 (add-to-list 'eshell-complex-commands 'eshell-command-aliased-p)) |
| 157 | 157 |
| 158 (defun eshell-command-aliased-p (name) | 158 (defun eshell-command-aliased-p (name) |
| 159 (member name eshell-command-aliases-list)) | 159 (assoc name eshell-command-aliases-list)) |
| 160 | 160 |
| 161 (defun eshell/alias (&optional alias &rest definition) | 161 (defun eshell/alias (&optional alias &rest definition) |
| 162 "Define an ALIAS in the user's alias list using DEFINITION." | 162 "Define an ALIAS in the user's alias list using DEFINITION." |
| 163 (if (not alias) | 163 (if (not alias) |
| 164 (eshell-for alias eshell-command-aliases-list | 164 (eshell-for alias eshell-command-aliases-list |