[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#39886: [PATCH] Add EPA keyserver client
From: |
Philip Kaludercic |
Subject: |
bug#39886: [PATCH] Add EPA keyserver client |
Date: |
Wed, 12 May 2021 17:52:59 +0000 |
Lars Ingebrigtsen <larsi@gnus.org> writes:
> Philip Kaludercic <philipk@posteo.net> writes:
>
>> No, that must have been a mistake. Should it fix it?
>
> Yes, a patch for that would be appreciated.
This should be more consistent:
--
Philip K.
>From 6ef0a95dcd7f4344b563788a57abf9e504364c11 Mon Sep 17 00:00:00 2001
From: Philip K <philipk@posteo.net>
Date: Wed, 12 May 2021 19:27:54 +0200
Subject: [PATCH] Don't mark interactive commands as internal functions
---
lisp/epa-ks.el | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/lisp/epa-ks.el b/lisp/epa-ks.el
index af2398c128..a33025b112 100644
--- a/lisp/epa-ks.el
+++ b/lisp/epa-ks.el
@@ -68,9 +68,9 @@ epa-ks-last-query
(defvar epa-ks-search-mode-map
(let ((map (make-sparse-keymap)))
(suppress-keymap map)
- (define-key map (kbd "f") #'epa-ks--mark-key-to-fetch)
- (define-key map (kbd "i") #'epa-ks--inspect-key-to-fetch)
- (define-key map (kbd "u") #'epa-ks--unmark-key-to-fetch)
+ (define-key map (kbd "f") #'epa-ks-mark-key-to-fetch)
+ (define-key map (kbd "i") #'epa-ks-inspect-key-to-fetch)
+ (define-key map (kbd "u") #'epa-ks-unmark-key-to-fetch)
(define-key map (kbd "x") #'epa-ks-do-key-to-fetch)
map))
@@ -89,19 +89,19 @@ epa-ks-search-mode
nil t)
(tabulated-list-init-header))
-(defun epa-ks--inspect-key-to-fetch ()
+(defun epa-ks-inspect-key-to-fetch ()
"Display full ID of key under point in the minibuffer."
(interactive)
(message "Full ID: %s" (epa-ks-key-id (car (tabulated-list-get-id)))))
-(defun epa-ks--unmark-key-to-fetch ()
+(defun epa-ks-unmark-key-to-fetch ()
"Remove fetch mark for key under point.
If a region is active, unmark all keys in active region."
(interactive)
- (epa-ks--mark-key-to-fetch ""))
+ (epa-ks-mark-key-to-fetch ""))
-(defun epa-ks--mark-key-to-fetch (tag)
+(defun epa-ks-mark-key-to-fetch (tag)
"Add fetch-mark to key under point.
If a region is active, mark all keys in active region.
@@ -109,7 +109,7 @@ epa-ks--mark-key-to-fetch
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
+When called interactively, `epa-ks-mark-key-to-fetch' will always
add a \"F\" tag. Non-interactivly the tag must be specified by
setting the TAG parameter."
(interactive (list "F"))
@@ -125,7 +125,7 @@ epa-ks--mark-key-to-fetch
(defun epa-ks-do-key-to-fetch ()
"Fetch all marked keys from keyserver and import them.
-Keys are marked using `epa-ks--mark-key-to-fetch'."
+Keys are marked using `epa-ks-mark-key-to-fetch'."
(interactive)
(save-excursion
(let (keys)
--
2.30.2