summaryrefslogtreecommitdiff
path: root/lisp/jka-compr.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>2002-09-01 13:26:06 +0000
committerRichard M. Stallman <rms@gnu.org>2002-09-01 13:26:06 +0000
commit68890d7ebc567261df925bf1032e512ccdece661 (patch)
tree0ba3a081385271dc9fc4769cc897ac2901832046 /lisp/jka-compr.el
parent5f4bc67ecdb827aa7e67aeb1f2a6c8bc2aaea968 (diff)
downloademacs-68890d7ebc567261df925bf1032e512ccdece661.tar.gz
(jka-compr-handler): Add safe-magic property.
Diffstat (limited to 'lisp/jka-compr.el')
-rw-r--r--lisp/jka-compr.el1
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 `/'."
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)))