Re: Find architecture-specific directories correctly

Question: why are we setting module-load-path at _dump_ time? (See dump-paths.el and loadup.el.) The whole point of modules is that they're loaded at runtime. So dumping the contents of a module seems at best redundant, but more like downright hazardous to me. Jerry> I don't understand this. I also am building in a different Jerry> directory, but my module-load-path is nil at startup. I Jerry> submitted the patch based on 21.2.37, but I just tried Jerry> again with 21.2.38 and got the same result. Why do you Jerry> have directories in your module-load-path but I don't? I don't understand why you don't have anything in your module-load-path, but what's in mine (and Yoshiki's) I believe is coming because there is no startup code in current CVS to set module-load-path; it's only done at dump time AFAICT. I wonder if maybe Yoshiki's got a modules -> $srcdir/modules symlink in the build directory? Maybe you fixed this already and forgot to diff this file? This path duplicates the module-load-path initialization from dump-paths (which is run early at dump-time only AFAICT), to startup.el (which is run later both at dump-time and at run-time). Not tested, I'm working across a slow modem, and it's bedtime. Will test tomorrow, but I thought I'd let you know what I found. Index: lisp/startup.el =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/startup.el,v retrieving revision 1.24.2.24 diff -u -r1.24.2.24 startup.el --- startup.el 2000/11/29 08:27:21 1.24.2.24 +++ startup.el 2000/12/21 16:07:24 ＠＠ -1174,6 +1174,7 ＠＠ ;; don't let /tmp_mnt/... get into the load-path or exec-path. (abbreviate-file-name invocation-directory))) +;; #### Part of this code is duplicated in dump-paths.el at top-level. (defun startup-setup-paths (roots user-init-directory &optional inhibit-early-packages inhibit-site-lisp ＠＠ -1231,6 +1232,21 ＠＠ last-package-load-path lisp-directory site-directory)) + + (setq module-directory (paths-find-module-directory roots)) + (if debug-paths + (princ (format "module-directory:\n%S\n" module-directory) + 'external-debugging-output)) + (setq site-module-directory (and (null inhibit-site-modules) + (paths-find-site-module-directory roots))) + (if (and debug-paths (null inhibit-site-modules)) + (princ (format "site-module-directory:\n%S\n" site-module-directory) + 'external-debugging-output)) + + (setq module-load-path + (paths-construct-module-load-path roots + module-directory + site-module-directory)) (setq Info-directory-list (paths-construct-info-path roots -- University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN Institute of Policy and Planning Sciences Tel/fax: +81 (298) 53-5091 _________________ _________________ _________________ _________________ What are those straight lines for? "XEmacs rules."