diff lisp/eshell/esh-module.el @ 31327:02375e0f6ea7

(eval-when-compile): Don't lose if esh-module.el's file name is truncated to DOS 8+3 limits.

--- a/lisp/eshell/esh-module.el	Fri Sep 01 22:48:12 2000 +0000
+++ b/lisp/eshell/esh-module.el	Sat Sep 02 05:34:42 2000 +0000
@@ -73,8 +73,18 @@
 (eval-when-compile
   (when (and (boundp 'byte-compile-current-file)
 	     byte-compile-current-file
-	     (equal (file-name-nondirectory byte-compile-current-file)
-		    "esh-module.el"))
+	     (or
+	      (equal (file-name-nondirectory byte-compile-current-file)
+		     "esh-module.el")
+	      ;; When eshell file names are expanded from a wildcard
+	      ;; or by reading the Eshell directory, e.g. when they
+	      ;; say "make recompile" in the lisp directory, Emacs on
+	      ;; MS-DOS sees a truncated name "esh-modu.el" instead of
+	      ;; "esh-module.el".
+	      (and (fboundp 'msdos-long-file-names)
+		   (null (msdos-long-file-names))
+		   (equal (file-name-nondirectory byte-compile-current-file)
+			  "esh-modu.el"))))
     (let* ((directory (file-name-directory byte-compile-current-file))
            (elc-file (expand-file-name "esh-groups.elc" directory)))
       (eshell-load-defgroups directory)