From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 11 Apr 1994 20:54:33 +0000 (+0000)
Subject: (jka-compr-handler): Save match data.
X-Git-Tag: emacs-19.34~9053
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1cb46df6419cf29553fd604a87b2e7de81cb242e;p=emacs.git

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

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index ffc7156eff8..bf55827c321 100644
--- 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