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

[Alan Mackenzie]

Index: emacs/lisp/startup.el
diff -u emacs/lisp/startup.el:1.408 emacs/lisp/startup.el:1.409
--- emacs/lisp/startup.el:1.408 Tue May  9 23:08:49 2006
+++ emacs/lisp/startup.el       Wed May 24 13:22:12 2006
@@ -644,18 +644,17 @@
 
   ;; Convert preloaded file names to absolute.
   (let ((lisp-dir
-        (file-name-directory
-         (locate-file "simple" load-path
-                      (get-load-suffixes)))))
+        (file-truename
+         (file-name-directory
+          (locate-file "simple" load-path
+                       (get-load-suffixes))))))
 
     (setq load-history
          (mapcar (lambda (elt)
                    (if (and (stringp (car elt))
                             (not (file-name-absolute-p (car elt))))
                        (cons (concat lisp-dir
-                                     (car elt)
-                                     (if (string-match "[.]el$" (car elt))
-                                         "" ".elc"))
+                                     (car elt))
                              (cdr elt))
                      elt))
                  load-history)))