diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-11-02 22:16:15 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-11-02 22:17:02 -0400 |
| commit | 73eafa5d89c5db73e1373b30348a015299738c13 (patch) | |
| tree | b086206619e0fd2286a40bf150f202c99f667364 /lisp/epg.el | |
| parent | 8206e418f32bc4881792146dd8a6dedba0505ac4 (diff) | |
| download | emacs-73eafa5d89c5db73e1373b30348a015299738c13.tar.gz | |
* lisp/epg.el (epg-key): Use explicit copier with proper prefix
(epg--filter-revoked-keys): Adjust sole use.
Diffstat (limited to 'lisp/epg.el')
| -rw-r--r-- | lisp/epg.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/epg.el b/lisp/epg.el index ea7aa869a0f..3354eb2c1ed 100644 --- a/lisp/epg.el +++ b/lisp/epg.el @@ -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)) |