[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master a0aac57: Replace epg--gv-nreverse with (cl-callf nr

From: Noam Postavsky
Subject: [Emacs-diffs] master a0aac57: Replace epg--gv-nreverse with (cl-callf nreverse ...)
Date: Sat, 28 Apr 2018 20:51:19 -0400 (EDT)

branch: master
commit a0aac5741ec27465145fbb283bf095352ba19b58
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Replace epg--gv-nreverse with (cl-callf nreverse ...)
    * lisp/epg.el (epg--gv-nreverse): Remove.
    (epg-list-keys): Replace it with (cl-callf nreverse ...).
 lisp/epg.el | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/lisp/epg.el b/lisp/epg.el
index dc0e2df..0910219 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)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]