epa-list-keys-1 -> epa--list-keys-1

diff --git a/epa.el b/epa.el
index 300098e..53afad9 100644 (file)
--- a/epa.el
+++ b/epa.el
@@ -291,7 +291,7 @@
   (goto-char (point-min))
   (pop-to-buffer (current-buffer)))
 
-(defun epa-list-keys-1 (context name mode)
+(defun epa--list-keys-1 (context name mode)
   (save-restriction
     (narrow-to-region (point) (point))
     (let ((inhibit-read-only t)
@@ -357,12 +357,12 @@ If SECRET is non-nil, list secret keys instead of public keys."
       (if names
          (while names
            (setq point (point))
-           (epa-list-keys-1 context (car names) secret)
+           (epa--list-keys-1 context (car names) secret)
            (goto-char point)
            (epa-mark)
            (goto-char (point-max))
            (setq names (cdr names)))
-       (epa-list-keys-1 context nil secret))
+       (epa--list-keys-1 context nil secret))
       (epa-keys-mode)
       (setq epa-exit-buffer-function #'abort-recursive-edit)
       (goto-char (point-min))