From: ueno Date: Fri, 5 Nov 1999 07:31:35 +0000 (+0000) Subject: (lookup-key-string): Undo last change. X-Git-Tag: emiko-1_13_7~61 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d20c4baf66a63237223e2ef6b3357a18d1aac7a3;p=elisp%2Fsemi.git (lookup-key-string): Undo last change. --- 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