changeset 37450:b1c5785dbec5

(eshell-find-alias-function): Corrected the fix from last night, since it wasn't finding eshell/cd.
author John Wiegley <johnw@newartisans.com>
date Tue, 24 Apr 2001 20:48:14 +0000
parents 6574f6462cca
children ff30b541575a
files lisp/eshell/esh-cmd.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/eshell/esh-cmd.el	Tue Apr 24 20:47:45 2001 +0000
+++ b/lisp/eshell/esh-cmd.el	Tue Apr 24 20:48:14 2001 +0000
@@ -1293,8 +1293,10 @@
 	       (intern (file-name-sans-extension
 			(file-name-nondirectory
 			 (concat "eshell-" (match-string 2 file)))))))
-	  (if (and (eshell-using-module module-sym)
-		   (memq module-sym (eshell-subgroups 'eshell)))
+	  (if (and (functionp sym)
+		   (or (null module-sym)
+		       (eshell-using-module module-sym)
+		       (memq module-sym (eshell-subgroups 'eshell))))
 	      sym))
       ;; Otherwise, if it's bound, return it.
       (if (functionp sym)