From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 21 Oct 2005 17:20:45 +0000 (+0000)
Subject: (command-line): Convert library names in `load-history' to absolute file names.
X-Git-Tag: emacs-pretest-22.0.90~6426
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b816985c1a0557a0630f2b6e4efe83d81c34980;p=emacs.git

(command-line): Convert library names in `load-history' to absolute file names.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 82191509ef9..28a29fd6a2e 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -641,6 +641,17 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
 
   (set-locale-environment nil)
 
+  ;; Convert preloaded file names to absolute.
+  (setq load-history
+	(mapcar (lambda (elt)
+		  (if (and (stringp (car elt))
+			   (not (file-name-absolute-p (car elt))))
+		      (cons (locate-file (car elt) load-path
+					 load-suffixes)
+			    (cdr elt))
+		    elt))
+		load-history))
+
   ;; Convert the arguments to Emacs internal representation.
   (let ((args (cdr command-line-args)))
     (while args