IMHO jde-comopile-jde is buggy.
Here is a working version; i have all commented out what is buggy or not necessary:
(defun jde-compile-jde ()
"Byte-compile all uncompiled files of jde."
;; Be sure to have . in load-path since a number of files in jde
;; depend on other files and we always want the newer one even if
;; a previous version of jde exists.
(interactive)
(let ((load-path (append '(".") load-path))
;; (buffer-directory (file-name-directory (buffer-file-name))) ;; never used
(jde-lisp-directory (expand-file-name "lisp" (jde-find-jde-data-directory))))
(save-excursion
;; (dired jde-lisp-directory)
(mapcar
(function jde-compile-file-if-necessary)
;; (mapcar
;; (lambda (file)
;; (expand-file-name file jde-lisp-directory))
(directory-files jde-lisp-directory t)))))
Not the additional parameter in (directory-files ...). This makes the second mapcar
superfluous.
Klaus
--
Klaus Berndl mailto: [EMAIL PROTECTED]
sd&m AG http://www.sdm.de
software design & management
Thomas-Dehler-Str. 27, 81737 München, Germany
Tel +49 89 63812-392, Fax -220
