# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1030886766 0
# Node ID 1161904f7cbb3de8b3590e5b3e9e08d0718d72c9
# Parent  0d9b3ff3c4c3b65ca52668f8e8e9b9c347ab2bdb
(jka-compr-handler): Add safe-magic property.

diff -r 0d9b3ff3c4c3 -r 1161904f7cbb lisp/jka-compr.el
--- a/lisp/jka-compr.el	Sun Sep 01 01:03:09 2002 +0000
+++ b/lisp/jka-compr.el	Sun Sep 01 13:26:06 2002 +0000
@@ -757,6 +757,7 @@
 Lisp programs can bind this to t to do that.
 It is not recommended to set this variable permanently to anything but nil.")
 
+(put 'jka-compr-handler 'safe-magic t)
 (defun jka-compr-handler (operation &rest args)
   (save-match-data
     (let ((jka-op (get operation 'jka-compr)))