From 1cb46df6419cf29553fd604a87b2e7de81cb242e Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 11 Apr 1994 20:54:33 +0000 Subject: [PATCH] (jka-compr-handler): Save match data. --- lisp/jka-compr.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 2.39.5