mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 2002-09-01 13:26:06 +00:00
parent 5f4bc67ecd
commit 68890d7ebc
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/jka-compr.el
View File

@ -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)))