diff options
| author | John Wiegley <johnw@newartisans.com> | 2000-10-29 05:18:48 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2000-10-29 05:18:48 +0000 |
| commit | dace60cfea488a9cc8a775109c56b66907aa6abb (patch) | |
| tree | 364b9c0114540a5f51a42e1e28a37b98714edaee /lisp/eshell/em-alias.el | |
| parent | 657f9cb8b7f7c3a9687f3998319ce63346ef13a4 (diff) | |
| download | emacs-dace60cfea488a9cc8a775109c56b66907aa6abb.tar.gz emacs-dace60cfea488a9cc8a775109c56b66907aa6abb.tar.bz2 emacs-dace60cfea488a9cc8a775109c56b66907aa6abb.zip | |
See ChangeLog
Diffstat (limited to 'lisp/eshell/em-alias.el')
| -rw-r--r-- | lisp/eshell/em-alias.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/eshell/em-alias.el b/lisp/eshell/em-alias.el index 85e4e97e692..a407bf5deb8 100644 --- a/lisp/eshell/em-alias.el +++ b/lisp/eshell/em-alias.el @@ -151,7 +151,12 @@ command, which will automatically write them to the file named by (add-hook 'eshell-alternate-command-hook 'eshell-fix-bad-commands t t) (eshell-read-aliases-list) (make-local-hook 'eshell-named-command-hook) - (add-hook 'eshell-named-command-hook 'eshell-maybe-replace-by-alias t t)) + (add-hook 'eshell-named-command-hook 'eshell-maybe-replace-by-alias t t) + (make-local-variable 'eshell-complex-commands) + (add-to-list 'eshell-complex-commands 'eshell-command-aliased-p)) + +(defun eshell-command-aliased-p (name) + (member name eshell-command-aliases-list)) (defun eshell/alias (&optional alias &rest definition) "Define an ALIAS in the user's alias list using DEFINITION." |