branch: elpa/age
commit 1cc0190bf2c257451d944e2f3e483b4729f5111f
Author: Bas Alberts <[email protected]>
Commit: Bas Alberts <[email protected]>
use setf directly, remove obsolete functions
---
age.el | 14 ++------------
1 file changed, 2 insertions(+), 12 deletions(-)
diff --git a/age.el b/age.el
index ff9eee092ff..b5a86c1fe06 100644
--- a/age.el
+++ b/age.el
@@ -325,16 +325,6 @@ or higher is installed."
"Return a context object."
(age-context--make (or protocol 'Age) armor))
-(defun age-context-set-armor (context armor)
- "Specify if the output should be ASCII armored in CONTEXT."
- (declare (obsolete setf "25.1"))
- (setf (age-context-armor context) armor))
-
-(defun age-context-set-passphrase (context passphrase)
- "Specify if the file is in PASSPHRASE mode."
- (declare (obsolete setf "25.1"))
- (setf (age-context-passphrase context) passphrase))
-
;; XXX: unused currently, so... untested.
(defun age-context-set-passphrase-callback (context
passphrase-callback)
@@ -1011,7 +1001,7 @@ encryption is used."
string length entry)
(if visit
(setq buffer-file-name file))
- (age-context-set-passphrase context (age-scrypt-p file))
+ (setf (age-context-passphrase context) (age-scrypt-p file))
(age-context-set-passphrase-callback
context
(cons #'age-file-passphrase-callback-function
@@ -1148,7 +1138,7 @@ encryption is used."
((listp age-file-encrypt-to) age-file-encrypt-to)
((stringp age-file-encrypt-to) (list age-file-encrypt-to))))
buffer)
- (age-context-set-passphrase context (age-scrypt-p file))
+ (setf (age-context-passphrase context) (age-scrypt-p file))
(age-context-set-passphrase-callback
context
(cons #'age-file-passphrase-callback-function
