diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-04-11 20:54:33 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-04-11 20:54:33 +0000 |
commit | f91ebc792689eb502cec711edf67a95ea87b6d11 (patch) | |
tree | 07bf4cdd4799738a13fac0a08fcc1888169d20c1 /lisp/jka-compr.el | |
parent | 1006d369f40fe230b734740f708ece8f30124aef (diff) | |
download | emacs-f91ebc792689eb502cec711edf67a95ea87b6d11.tar.gz |
(jka-compr-handler): Save match data.
Diffstat (limited to 'lisp/jka-compr.el')
-rw-r--r-- | lisp/jka-compr.el | 6 |
1 files 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 |