changeset 47180:1161904f7cbb

(jka-compr-handler): Add safe-magic property.
author Richard M. Stallman <rms@gnu.org>
date Sun, 01 Sep 2002 13:26:06 +0000
parents 0d9b3ff3c4c3
children e17812b1a993
files lisp/jka-compr.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)))