Skip to content

Commit

Permalink
use setf directly, remove obsolete functions
Browse files Browse the repository at this point in the history
  • Loading branch information
anticomputer committed Jan 1, 2023
1 parent 29a7455 commit 1cc0190
Showing 1 changed file with 2 additions and 12 deletions.
14 changes: 2 additions & 12 deletions age.el
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit 1cc0190

Please sign in to comment.