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 | 1cb46df6419cf29553fd604a87b2e7de81cb242e (patch) | |
| tree | e091c13b2e365ddf941ab40206063bb3708c1185 /lisp | |
| parent | ab1649fe758e95bfed2b98fd7ebbeaa4ff7320fc (diff) | |
| download | emacs-1cb46df6419cf29553fd604a87b2e7de81cb242e.tar.gz | |
(jka-compr-handler): Save match data.
Diffstat (limited to 'lisp')
| -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 |