[Emacs-diffs] Changes to emacs/lisp/startup.el

[Richard M . Stallman]

Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.380 emacs/lisp/startup.el:1.381
*** emacs/lisp/startup.el:1.380 Wed Oct 12 14:22:36 2005
--- emacs/lisp/startup.el       Fri Oct 21 17:20:45 2005
***************
*** 641,646 ****
--- 641,657 ----
  
    (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