From: ueno <ueno>
Date: Wed, 27 Sep 2006 06:13:53 +0000 (+0000)
Subject: * epa-file.el (epa-file-insert-file-contents): Set progress-callback.
X-Git-Tag: epg-0_0_6~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=408dcae39cea0d4cc3df9852c9359c7866bafbc0;p=elisp%2Fepg.git

* epa-file.el (epa-file-insert-file-contents): Set progress-callback.
(epa-file-write-region): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index 2b55423..2446d43 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-09-27  Daiki Ueno  <ueno@unixuser.org>
 
+	* epa-file.el (epa-file-insert-file-contents): Set progress-callback.
+	(epa-file-write-region): Ditto.
+
 	* epa.el (epa-decrypt-file): Set callbacks.
 	(epa-sign-file): Ditto.
 	(epa-encrypt-file): Ditto.
diff --git a/epa-file.el b/epa-file.el
index 6f58c8c..80b1dbb 100644
--- a/epa-file.el
+++ b/epa-file.el
@@ -100,6 +100,8 @@
      context
      (cons #'epa-file-passphrase-callback-function
 	   file))
+    (epg-context-set-progress-callback context
+				       #'epa-progress-callback-function)
     (unwind-protect
 	(progn
 	  (if replace
@@ -144,6 +146,8 @@
      context
      (cons #'epa-file-passphrase-callback-function
 	   file))
+    (epg-context-set-progress-callback context
+				       #'epa-progress-callback-function)
     (condition-case error
 	(setq string
 	      (epg-encrypt-string