diff options
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 |