(jka-compr-handler): Save match data.

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index ffc7156eff80a39da7e0087196acafb78007396e..bf55827c32115e97ba25bf23c5fd48d77b55ea2d 100644 (file)
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -661,7 +661,8 @@ There should be no more than seven characters after the final '/'")
 
 (defun jka-compr-handler (operation &rest args)
 
-  (let ((jka-op (intern-soft (symbol-name operation) jka-compr-op-table)))
+  (let ((jka-op (intern-soft (symbol-name operation) jka-compr-op-table))
+       (match-data (match-data)))
 
     (unwind-protect
        (progn
@@ -674,7 +675,8 @@ There should be no more than seven characters after the final '/'")
 
       (setq file-name-handler-alist
            (cons jka-compr-file-name-handler-entry
-                 file-name-handler-alist)))))
+                 file-name-handler-alist))
+      (store-match-data match-data))))
 
   
 (defvar jka-compr-op-table