Commit a0aac574 authored by Noam Postavsky's avatar Noam Postavsky

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

* lisp/epg.el (epg--gv-nreverse): Remove.
(epg-list-keys): Replace it with (cl-callf nreverse ...).
parent 8c3215e7
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment