|--==> "JM" == Jeff Mincy <jeff(a)delphioutpost.com> writes:
JM> Files that are dumped into the xemacs image are loaded with
JM> absolute pathnames - eg
JM> (caar (nthcdr (- (length load-history) 5) load-history)) -->
JM> "/opt/sfw/lib/xemacs-21.4.6/lisp/find-paths.elc" (for me)
Yeah, this "search the source tree instead of the install tree"
craziness used to bug me too. Until some very helpful soul (sorry,
I've forgotten who it was) showed me this:
,----
| (dolist (entry load-history)
| (when (string-match "/usr/local/src/xemacs/" (car entry))
| (setcar entry
| (replace-match
| (concat "/usr/local/lib/xemacs-" emacs-program-version "/")
| t t (car entry)))))
`----
And so, I get:
(caar (nthcdr (- (length load-history) 5) load-history))
=> "/usr/local/lib/xemacs-21.5-b6/lisp/find-paths.elc"
Otherwise, it's "/usr/local/src/xemacs/lisp/find-paths.elc". Which
doesn't exist much more than a couple of minutes past 'M-x
build-report'.:-)
--
|---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---|
| XEmacs - It's not just an editor. |
| It's a way of life. |
|------------------------------------<youngs(a)xemacs.org>---|