diff lisp/jka-compr.el @ 27512:b7020186895e

(jka-compr-load): Fix up load-history.

--- 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))