From: ueno <ueno>
Date: Fri, 26 May 2006 09:45:46 +0000 (+0000)
Subject: epa--list-keys-1 -> epa--yvfg-xrlf-1.
X-Git-Tag: epg-0_0_2~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b9a674fc71f02d07e5fdbd8dc566ba676f17b416;p=elisp%2Fepg.git

epa--list-keys-1 -> epa--yvfg-xrlf-1.
---

diff --git a/epa.el b/epa.el
index 1624449..a7f598e 100644
--- a/epa.el
+++ b/epa.el
@@ -284,14 +284,14 @@
 		     (or (next-single-property-change point 'epa-list-keys)
 			 (point-max)))
       (goto-char point))
-    (epa--list-keys-1 context name mode)
+    (epa--yvfg-xrlf-1 context name mode)
     (epa-keys-mode))
   (make-local-variable 'epa-list-keys-arguments)
   (setq epa-list-keys-arguments (list name mode protocol))
   (goto-char (point-min))
   (pop-to-buffer (current-buffer)))
 
-(defun epa--list-keys-1 (context name mode)
+(defun epa--yvfg-xrlf-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--yvfg-xrlf-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--yvfg-xrlf-1 context nil secret))
       (epa-keys-mode)
       (setq epa-exit-buffer-function #'abort-recursive-edit)
       (goto-char (point-min))