From: ueno <ueno>
Date: Wed, 26 Apr 2006 02:53:02 +0000 (+0000)
Subject: (epg-cancel): New function.
X-Git-Tag: epg-0_0_1~16
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7ce301fdebc18eb0824220f0dd946587be41eba7;p=elisp%2Fepg.git

(epg-cancel): New function.
---

diff --git a/ChangeLog b/ChangeLog
index 2b43d8f..1514622 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@
 
 	* epa.el (epa-select-keys): Don't set inhibit-quit when
 	recursive-edit is called.
+	(epg-cancel): New function.
 
 2006-04-25  Daiki Ueno  <ueno@unixuser.org>
 
diff --git a/epg.el b/epg.el
index cbb7c87..b214859 100644
--- a/epg.el
+++ b/epg.el
@@ -1035,6 +1035,10 @@ You can then use `write-region' to write new data into the file."
 	     (delete-directory tempdir))))))
 
 ;;;###autoload
+(defun epg-cancel (context)
+  (delete-process (epg-context-process context)))
+  
+;;;###autoload
 (defun epg-start-decrypt (context cipher)
   "Initiate a decrypt operation on CIPHER.
 CIPHER is a data object.