From edca97cde7e566fdc638d1d21552bc38a1531ee1 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Mon, 26 Aug 2013 13:03:09 +0200 Subject: [PATCH] * epa-hook.el (epa-file-encrypt-to): Quote `safe-local-variable' lambda expression in order to have `describe-variable' display it. --- lisp/ChangeLog | 5 +++++ lisp/epa-hook.el | 18 +++++++++--------- 2 files changed, 14 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 636e09cbe73..53fd1274937 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-08-26 Tassilo Horn + + * 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 * net/tramp-sh.el (tramp-sh-handle-verify-visited-file-modtime): diff --git a/lisp/epa-hook.el b/lisp/epa-hook.el index fc0aa3677bf..f320823a5ab 100644 --- a/lisp/epa-hook.el +++ b/lisp/epa-hook.el @@ -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) -- 2.39.2