From a5e56d15b17e86156f4ce1fbb5c102b220daecf9 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 1 May 2006 00:53:21 +0000 Subject: [PATCH] * epg.el (epg-start): Signal an error if the process of CONTEXT is already running for other operations. --- ChangeLog | 5 +++++ epg.el | 5 +++++ 2 files changed, 10 insertions(+) diff --git a/ChangeLog b/ChangeLog index 78c58cc..5c69ecc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-05-01 Daiki Ueno + + * epg.el (epg-start): Signal an error if the process of CONTEXT is + already running for other operations. + 2006-04-30 Daiki Ueno * epa.el (epa-delete-keys): Support deletion of secret keys. diff --git a/epg.el b/epg.el index 94767c1..376a674 100644 --- a/epg.el +++ b/epg.el @@ -613,6 +613,11 @@ This function is for internal use only." (defun epg-start (context args) "Start `epg-gpg-program' in a subprocess with given ARGS." + (if (eq (process-status (epg-context-process context)) 'run) + (error "%s is already running in this context" + (if (eq (epg-context-protocol context) 'CMS) + epg-gpgsm-program + epg-gpg-program))) (let* ((args (append (list "--no-tty" "--status-fd" "1" "--yes") -- 1.7.10.4