# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 988145294 0
# Node ID b1c5785dbec51dfd0385b054b5461e91f158b3ae
# Parent  6574f6462cca78774751862fdea626eeeb708ec4
(eshell-find-alias-function): Corrected the fix from last night, since
it wasn't finding eshell/cd.

diff -r 6574f6462cca -r b1c5785dbec5 lisp/eshell/esh-cmd.el
--- 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)