From 357ab6e401587eb69719d5955dc76e3300335fd8 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 26 Apr 2006 02:54:46 +0000 Subject: [PATCH] Check if process is running. --- epg.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/epg.el b/epg.el index b214859..e7e4e6a 100644 --- a/epg.el +++ b/epg.el @@ -1036,7 +1036,8 @@ You can then use `write-region' to write new data into the file." ;;;###autoload (defun epg-cancel (context) - (delete-process (epg-context-process context))) + (if (eq (process-status (epg-context-process context)) 'run) + (delete-process (epg-context-process context)))) ;;;###autoload (defun epg-start-decrypt (context cipher) -- 1.7.10.4