HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
delete_temp_file fix
[bpt/emacs.git]
/
lisp
/
epa-hook.el
diff --git
a/lisp/epa-hook.el
b/lisp/epa-hook.el
index
fc0aa36
..
cd3da93
100644
(file)
--- a/
lisp/epa-hook.el
+++ b/
lisp/epa-hook.el
@@
-1,5
+1,5
@@
;;; epa-hook.el --- preloaded code to enable epa-file.el -*- lexical-binding: t -*-
;;; epa-hook.el --- preloaded code to enable epa-file.el -*- lexical-binding: t -*-
-;; Copyright (C) 2006-201
3
Free Software Foundation, Inc.
+;; Copyright (C) 2006-201
4
Free Software Foundation, Inc.
;; Author: Daiki Ueno <ueno@unixuser.org>
;; Keywords: PGP, GnuPG
;; Author: Daiki Ueno <ueno@unixuser.org>
;; Keywords: PGP, GnuPG
@@
-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
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)
(put 'epa-file-encrypt-to 'permanent-local t)