procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
is truncated to DOS 8+3 limits.
This commit is contained in:
Eli Zaretskii 2000-09-02 05:36:27 +00:00
parent 79cf8e808e
commit 5514ba5c2a
2 changed files with 17 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/eshell/esh-module.el
View file

@ -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)