diff options
| author | Richard M. Stallman | 2002-09-01 13:26:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-09-01 13:26:06 +0000 |
| commit | 68890d7ebc567261df925bf1032e512ccdece661 (patch) | |
| tree | 0ba3a081385271dc9fc4769cc897ac2901832046 | |
| parent | 5f4bc67ecdb827aa7e67aeb1f2a6c8bc2aaea968 (diff) | |
| download | emacs-68890d7ebc567261df925bf1032e512ccdece661.tar.gz emacs-68890d7ebc567261df925bf1032e512ccdece661.zip | |
(jka-compr-handler): Add safe-magic property.
| -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))) |