From: ueno Date: Fri, 26 May 2006 10:05:09 +0000 (+0000) Subject: Reverted. X-Git-Tag: epg-0_0_2~19 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e1bb917ba16ff213ab7c9265a43f986255ddbaa4;p=elisp%2Fepg.git Reverted. --- diff --git a/epa.el b/epa.el index a7f598e..300098e 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--yvfg-xrlf-1 context name mode) + (epa-list-keys-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--yvfg-xrlf-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--yvfg-xrlf-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--yvfg-xrlf-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))