From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 1 Sep 2002 13:26:06 +0000 (+0000)
Subject: (jka-compr-handler): Add safe-magic property.
X-Git-Tag: ttn-vms-21-2-B4~13440
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68890d7ebc567261df925bf1032e512ccdece661;p=emacs.git

(jka-compr-handler): Add safe-magic property.
---

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 `/'."
 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)))