From 6ef0a95dcd7f4344b563788a57abf9e504364c11 Mon Sep 17 00:00:00 2001 From: Philip K 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