changeset 66287:194343998a00

(command-line): Convert library names in `load-history' to absolute file names.
author Richard M. Stallman <rms@gnu.org>
date Fri, 21 Oct 2005 17:20:45 +0000
parents 366f80f966cb
children 22d687da5d5d
files lisp/startup.el
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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