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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d63fb8eb26161e684e81c3099ee1dd6ae48edc7f..c7590e8d80be42e766abd0d1785e94946f11d550 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2000-01-30  Dave Love  <fx@gnu.org>
 
+       * jka-compr.el (jka-compr-load): Fix up load-history.
+
        * emacs-lisp/cl.el: Replace autoloads for dolist, dotimes.
 
        * emacs-lisp/cl-macs.el: Revert previous change.

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index a3fae5b05bc2eb8af3a5dd3515e8c5ed714a002a..d18483e7669e1573fdf64b3cb71240e254b3f70d 100644 (file)
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -704,9 +704,14 @@ There should be no more than seven characters after the final `/'."
 
          (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))