changeset 27512:b7020186895e

(jka-compr-load): Fix up load-history.
author Dave Love <fx@gnu.org>
date Sun, 30 Jan 2000 17:50:58 +0000
parents ead47a92d9d0
children 92055b86c800
files lisp/jka-compr.el
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))