diff lisp/startup.el @ 66287:194343998a00

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

--- a/lisp/startup.el	Fri Oct 21 17:19:57 2005 +0000
+++ b/lisp/startup.el	Fri Oct 21 17:20:45 2005 +0000
@@ -641,6 +641,17 @@
 
   (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