procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* epa-hook.el (epa-file-encrypt-to): Quote `safe-local-variable'

Browse source 
lambda expression in order to have `describe-variable' display it.
This commit is contained in:
Tassilo Horn 2013-08-26 13:03:09 +02:00
parent c80016b3c1
commit edca97cde7
2 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2013-08-26 Tassilo Horn <tsdh@gnu.org>
* epa-hook.el (epa-file-encrypt-to): Quote `safe-local-variable'
lambda expression in order to have `describe-variable' display it.
2013-08-26 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-sh.el (tramp-sh-handle-verify-visited-file-modtime):

18
lisp/epa-hook.el
View file

@ -53,15 +53,15 @@ does that automatically."
May either be a string or a list of strings.")
(put 'epa-file-encrypt-to 'safe-local-variable
(lambda (val)
(or (stringp val)
(and (listp val)
(catch 'safe
(mapc (lambda (elt)
(unless (stringp elt)
(throw 'safe nil)))
val)
t)))))
#'(lambda (val)
(or (stringp val)
(and (listp val)
(catch 'safe
(mapc (lambda (elt)
(unless (stringp elt)
(throw 'safe nil)))
val)
t)))))
(put 'epa-file-encrypt-to 'permanent-local t)