diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2021-05-12 20:02:28 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2021-05-12 20:02:28 +0300 |
| commit | 4aadbab5be427d44085e1cd4322b46a929299d23 (patch) | |
| tree | 2cd4b5eaa0d4197a9289ea21f074768d1b32bac7 /lisp/epa-ks.el | |
| parent | fb93afa1000344f3074a131ab39d2e259bbfc7d8 (diff) | |
| download | emacs-4aadbab5be427d44085e1cd4322b46a929299d23.tar.gz emacs-4aadbab5be427d44085e1cd4322b46a929299d23.tar.bz2 emacs-4aadbab5be427d44085e1cd4322b46a929299d23.zip | |
Improve doc strings and prompt in epa-ks.el
* lisp/epa-ks.el (epa-ks--mark-key-to-fetch, epa-ks--fetch-key)
(epa-search-keys): Doc fixes.
(epa-ks-do-key-to-fetch): Better wording for the fetch prompt.
Diffstat (limited to 'lisp/epa-ks.el')
| -rw-r--r-- | lisp/epa-ks.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/epa-ks.el b/lisp/epa-ks.el index d07aa5482cb..af2398c128a 100644 --- a/lisp/epa-ks.el +++ b/lisp/epa-ks.el @@ -110,7 +110,7 @@ When all keys have been selected, use \\[epa-ks-do-key-to-fetch] to actually import the keys. When called interactively, `epa-ks--mark-key-to-fetch' will always -add a \"F\" tag. Non-interactivly the tag must be specified by +add a \"F\" tag. Non-interactivly the tag must be specified by setting the TAG parameter." (interactive (list "F")) (if (region-active-p) @@ -135,14 +135,14 @@ Keys are marked using `epa-ks--mark-key-to-fetch'." (push (epa-ks-key-id (car (tabulated-list-get-id))) keys)) (forward-line)) - (when (yes-or-no-p (format "Proceed fetching all %d key(s)? " + (when (yes-or-no-p (format "Proceed with fetching all %d key(s)? " (length keys)))) (dolist (id keys) (epa-ks--fetch-key id)))) (tabulated-list-clear-all-tags)) (defun epa-ks--fetch-key (id) - "Send request to import key with id ID." + "Send request to import key with specified ID." (url-retrieve (format "https://%s/pks/lookup?%s" epa-keyserver @@ -209,10 +209,10 @@ KEYS is a list of `epa-ks-key' structures, as parsed by The keyserver to be used is specified by `epa-keyserver'. -If EXACT is non-nil require exact matches. Interactively, this -can be provoked using a prefix argument. +If EXACT is non-nil (interactively, prefix argument), require +exact matches. -Note that the request may fail, is the query is not specific +Note that the request may fail if the query is not specific enough, since keyservers have strict timeout settings." (interactive (list (read-string "Search for: ") current-prefix-arg)) |