From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 3 Nov 2021 02:16:15 +0000 (-0400)
Subject: * lisp/epg.el (epg-key): Use explicit copier with proper prefix
X-Git-Tag: emacs-29.0.90~3671^2~277
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73eafa5d89c5db73e1373b30348a015299738c13;p=emacs.git

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

(epg--filter-revoked-keys): Adjust sole use.
---

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))