(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)
(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))