andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/epg.el (epg-key): Use explicit copier with proper prefix

Browse source 
(epg--filter-revoked-keys): Adjust sole use.
This commit is contained in:
Stefan Monnier 2021-11-02 22:16:15 -04:00
parent 8206e418f3
commit 73eafa5d89
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/epg.el
View file

@ -334,6 +334,7 @@ callback data (if any)."
(cl-defstruct (epg-key
(:constructor nil)
(:copier epg--copy-key)
(:constructor epg-make-key (owner-trust))
(:predicate nil))
(owner-trust nil :read-only t)
@ -1389,7 +1390,7 @@ NAME is either a string or a list of strings."
(if (seq-find (lambda (user)
(eq (epg-user-id-validity user) 'revoked))
(epg-key-user-id-list key))
(let ((copy (copy-epg-key key)))
(let ((copy (epg--copy-key key)))
(setf (epg-key-user-id-list copy)
(seq-remove (lambda (user)
(eq (epg-user-id-validity user) 'revoked))