From d20c4baf66a63237223e2ef6b3357a18d1aac7a3 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 5 Nov 1999 07:31:35 +0000 Subject: [PATCH] (lookup-key-string): Undo last change. --- pgg-gpg.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/pgg-gpg.el b/pgg-gpg.el index a522967..37b259f 100644 --- a/pgg-gpg.el +++ b/pgg-gpg.el @@ -129,10 +129,8 @@ (let ((args (list "--with-colons" "--no-greeting" "--batch" (if type "--list-secret-keys" "--list-keys") string))) - (with-current-buffer (get-buffer-create pgg-output-buffer) - (buffer-disable-undo) - (erase-buffer) - (apply #'call-process pgg-gpg-program nil t args) + (pgg-gpg-process-region (point)(point) nil pgg-gpg-program args) + (with-current-buffer pgg-output-buffer (goto-char (point-min)) (when (re-search-forward "^\\(sec\\|pub\\):" nil t) (substring -- 1.7.10.4