diff options
| -rw-r--r-- | lisp/jka-compr.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index f898bc98a4f..8e347c3b1f6 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el | |||
| @@ -757,6 +757,7 @@ There should be no more than seven characters after the final `/'." | |||
| 757 | Lisp programs can bind this to t to do that. | 757 | Lisp programs can bind this to t to do that. |
| 758 | It is not recommended to set this variable permanently to anything but nil.") | 758 | It is not recommended to set this variable permanently to anything but nil.") |
| 759 | 759 | ||
| 760 | (put 'jka-compr-handler 'safe-magic t) | ||
| 760 | (defun jka-compr-handler (operation &rest args) | 761 | (defun jka-compr-handler (operation &rest args) |
| 761 | (save-match-data | 762 | (save-match-data |
| 762 | (let ((jka-op (get operation 'jka-compr))) | 763 | (let ((jka-op (get operation 'jka-compr))) |