From: Noam Postavsky <npostavs@gmail.com>
Date: Sun, 29 Apr 2018 00:35:30 +0000 (-0400)
Subject: Replace epg--gv-nreverse with (cl-callf nreverse ...)
X-Git-Tag: emacs-27.0.90~5076
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a0aac5741ec27465145fbb283bf095352ba19b58;p=emacs.git

Replace epg--gv-nreverse with (cl-callf nreverse ...)

* lisp/epg.el (epg--gv-nreverse): Remove.
(epg-list-keys): Replace it with (cl-callf nreverse ...).
---

diff --git a/lisp/epg.el b/lisp/epg.el
index dc0e2df5838..091021936ad 100644
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -174,10 +174,6 @@
   (file nil :read-only t)
   (string nil :read-only t))
 
-(defmacro epg--gv-nreverse (place)
-  (gv-letplace (getter setter) place
-    (funcall setter `(nreverse ,getter))))
-
 (cl-defstruct (epg-context
                (:constructor nil)
                (:constructor epg-context--make
@@ -1390,10 +1386,10 @@ NAME is either a string or a list of strings."
     (setq keys (nreverse keys)
 	  pointer keys)
     (while pointer
-      (epg--gv-nreverse (epg-key-sub-key-list (car pointer)))
-      (setq pointer-1 (epg--gv-nreverse (epg-key-user-id-list (car pointer))))
+      (cl-callf nreverse (epg-key-sub-key-list (car pointer)))
+      (setq pointer-1 (cl-callf nreverse (epg-key-user-id-list (car pointer))))
       (while pointer-1
-	(epg--gv-nreverse (epg-user-id-signature-list (car pointer-1)))
+	(cl-callf nreverse (epg-user-id-signature-list (car pointer-1)))
 	(setq pointer-1 (cdr pointer-1)))
       (setq pointer (cdr pointer)))
     keys))