Mercurial > emacs

changeset 6800:34cc2fd97a9e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(jka-compr-handler): Save match data.
author Karl Heuer <kwzh@gnu.org>
date Mon, 11 Apr 1994 20:54:33 +0000
parents 1f45c2d4ff2c
children 7c587b0670bd
files lisp/jka-compr.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/jka-compr.el	Mon Apr 11 20:50:40 1994 +0000
+++ b/lisp/jka-compr.el	Mon Apr 11 20:54:33 1994 +0000
@@ -661,7 +661,8 @@
 
 (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 @@
 
       (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