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