Mercurial > emacs
comparison lisp/jka-compr.el @ 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 | c145c11ef3b3 |
| children | e5099d153f94 |
comparison
equal
deleted
inserted
replaced
| 47179:0d9b3ff3c4c3 | 47180:1161904f7cbb |
|---|---|
| 755 (defvar jka-compr-inhibit nil | 755 (defvar jka-compr-inhibit nil |
| 756 "Non-nil means inhibit automatic uncompression temporarily. | 756 "Non-nil means inhibit automatic uncompression temporarily. |
| 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))) |
| 763 (if (and jka-op (not jka-compr-inhibit)) | 764 (if (and jka-op (not jka-compr-inhibit)) |
| 764 (apply jka-op args) | 765 (apply jka-op args) |