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

; * lisp/epa-ks.el (epa-ks-do-key-to-fetch): Fix 'when' usage

Browse Source
This commit is contained in:
Philip Kaludercic 2022-12-27 13:46:40 +01:00
parent 2b55a48d3e
commit 8ab6df0c9f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/epa-ks.el
View File

@ -135,9 +135,9 @@ Keys are marked using `epa-ks-mark-key-to-fetch'."
keys)) keys))
(forward-line)) (forward-line))
(when (yes-or-no-p (format "Proceed with fetching all %d key(s)? " (when (yes-or-no-p (format "Proceed with fetching all %d key(s)? "
(length keys)))) (length keys)))
(dolist (id keys) (dolist (id keys)
(epa-ks--fetch-key id)))) (epa-ks--fetch-key id)))))
(tabulated-list-clear-all-tags)) (tabulated-list-clear-all-tags))
(defun epa-ks--query-url (query exact) (defun epa-ks--query-url (query exact)