Re: load-path when dumping xemacs-21.4.13 elisp
2003年06月22日(日)の12時35分に Jens Petersen 曰く:
[..] "update-elc.el" tries to
byte-compile the *installed* ".el" files when rebuilding xemacs-21.4.13
with xemacs-21.4.13 already installed afaict! The problem seems to be
that whereas with 21.4.12 load-path gets set to just the "lisp/" and
"lisp/mule/" dirs in the source tree, with xemacs-21.4.13 load-path
instead contains the installed lisp dir and package lisp dirs (this
seems to be a separate bug). Also when actually dumping, the same
problem occurs and the elisp files dumped are from the installed lisp
dirs not the source tree.
For the time being I'm working around this with the patch below.
-Jens
diff -u xemacs-21.4.13/lisp/update-elc.el~ xemacs-21.4.13/lisp/update-elc.el
--- xemacs-21.4.13/lisp/update-elc.el~ 2003-06-22 11:25:28.000000000 +0900
+++ xemacs-21.4.13/lisp/update-elc.el 2003-06-22 11:25:28.000000000 +0900
＠＠ -134,7 +134,7 ＠＠
(if (null (member (file-name-nondirectory arg)
packages-unbytecompiled-lisp))
(progn
- (setq arg (locate-library arg))
+ (setq arg (locate-library arg nil '("../lisp"
"../lisp/mule")))
(if (null arg)
(progn
(print (format "Error: Library file %s not found"
diff -u xemacs-21.4.13/lisp/loadup.el~ xemacs-21.4.13/lisp/loadup.el
--- xemacs-21.4.13/lisp/loadup.el~ 2003-06-22 12:50:39.000000000 +0900
+++ xemacs-21.4.13/lisp/loadup.el 2003-06-22 12:50:39.000000000 +0900
＠＠ -111,9 +111,9 ＠＠
;; with garbage-collected junk)
(defun pureload (file)
(let ((full-path
- (locate-file file load-path
+ (locate-file file '("../lisp" "../lisp/mule")
(if load-ignore-elc-files
'(".el" "") '(".elc" ".el"
"")))))
(if full-path
(prog1
(load full-path)