Mercurial > emacs
comparison lisp/eshell/esh-module.el @ 30141:570efb22ec0b
(toplevel): Reference
byte-compile-current-file only if it is bound.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Tue, 11 Jul 2000 07:26:25 +0000 |
| parents | 95e03dfd4c65 |
| children | 02375e0f6ea7 |
comparison
equal
deleted
inserted
replaced
| 30140:a567b99dd7d3 | 30141:570efb22ec0b |
|---|---|
| 69 | 69 |
| 70 ;; load the defgroup's for the standard extension modules, so that | 70 ;; load the defgroup's for the standard extension modules, so that |
| 71 ;; documentation can be provided when the user customize's | 71 ;; documentation can be provided when the user customize's |
| 72 ;; `eshell-modules-list'. | 72 ;; `eshell-modules-list'. |
| 73 (eval-when-compile | 73 (eval-when-compile |
| 74 (when (and byte-compile-current-file | 74 (when (and (boundp 'byte-compile-current-file) |
| 75 byte-compile-current-file | |
| 75 (equal (file-name-nondirectory byte-compile-current-file) | 76 (equal (file-name-nondirectory byte-compile-current-file) |
| 76 "esh-module.el")) | 77 "esh-module.el")) |
| 77 (let* ((directory (file-name-directory byte-compile-current-file)) | 78 (let* ((directory (file-name-directory byte-compile-current-file)) |
| 78 (elc-file (expand-file-name "esh-groups.elc" directory))) | 79 (elc-file (expand-file-name "esh-groups.elc" directory))) |
| 79 (eshell-load-defgroups directory) | 80 (eshell-load-defgroups directory) |