From e0e6186ccd13b6e55c52b410290aa78999b36f07 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 26 May 2006 09:43:38 +0000 Subject: [PATCH] epa-list-keys-1 -> epa--list-keys-1 --- epa.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/epa.el b/epa.el index 300098e..53afad9 100644 --- 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)) -- 1.7.10.4