From 1cc0190bf2c257451d944e2f3e483b4729f5111f Mon Sep 17 00:00:00 2001 From: Bas Alberts Date: Sun, 1 Jan 2023 14:13:45 -0500 Subject: [PATCH] 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 ff9eee0..b5a86c1 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