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

e645e77b · Dave Love · 2995b042 · e645e77b · e645e77b
Commit e645e77b authored Jan 30, 2000 by Dave Love
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 2 deletions

lisp/ChangeLog lisp/ChangeLog +2 -0

lisp/jka-compr.el lisp/jka-compr.el +7 -2

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 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.

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