From a0aac5741ec27465145fbb283bf095352ba19b58 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Sat, 28 Apr 2018 20:35:30 -0400 Subject: [PATCH] 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 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)) -- 2.39.5