mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

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

Browse Source 
* lisp/epg.el (epg--gv-nreverse): Remove.
(epg-list-keys): Replace it with (cl-callf nreverse ...).
This commit is contained in:
Noam Postavsky 2018-04-28 20:35:30 -04:00
parent 8c3215e7a4
commit a0aac5741e
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/epg.el
View File

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