# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 949254658 0
# Node ID b7020186895ebed2474ecb85e449c6956543ff39
# Parent  ead47a92d9d0847e97472433889fbba5ad247f3d
(jka-compr-load): Fix up load-history.

diff -r ead47a92d9d0 -r b7020186895e lisp/jka-compr.el
--- a/lisp/jka-compr.el	Sun Jan 30 13:35:25 2000 +0000
+++ b/lisp/jka-compr.el	Sun Jan 30 17:50:58 2000 +0000
@@ -704,9 +704,14 @@
 
 	  (let ((load-force-doc-strings t))
 	    (load load-file noerror t t))
-
 	  (or nomessage
-	      (message "Loading %s...done." file)))
+	      (message "Loading %s...done." file))
+	  ;; Fix up the load history to point at the right library.
+	  (let ((l (assoc load-file load-history)))
+	    ;; Remove .gz and .elc?.
+	    (while (file-name-extension file)
+	      (setq file (file-name-sans-extension file)))
+	    (setcar l file)))
 
       (jka-compr-delete-temp-file local-copy))