Commit 5514ba5c authored by Eli Zaretskii's avatar Eli Zaretskii

(eval-when-compile): Don't lose if esh-module.el's file name

is truncated to DOS 8+3 limits.
parent 79cf8e80
2000-09-02 Eli Zaretskii <eliz@is.elta.co.il>
* eshell/esh-module.el (eval-when-compile): Don't lose if
esh-module.el's file name is truncated to DOS 8+3 limits.
2000-09-01 John Wiegley <johnw@gnu.org>
* pcomplete.el (pcomplete-dirs-or-entries): Added a missing
......
......@@ -73,8 +73,18 @@ customizing the variable `eshell-modules-list'."
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment