From: ueno <ueno>
Date: Fri, 15 Sep 2006 03:33:56 +0000 (+0000)
Subject: * epg.el (epg-progress-callback-function): Show the percentage.
X-Git-Tag: epg-0_0_6~22
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dd282b637428af851d16ffd7199d659cecd17027;p=elisp%2Fepg.git

* epg.el (epg-progress-callback-function): Show the percentage.
---

diff --git a/ChangeLog b/ChangeLog
index da3f9bc..0ed7094 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-09-15  Daiki Ueno  <ueno@unixuser.org>
+
+	* epg.el (epg-progress-callback-function): Show the percentage.
+
 2006-09-15  Juliusz Chroboczek <Juliusz.Chroboczek@pps.jussieu.fr>
 
 	* pgg-epg.el (mml2015-gpg-extract-signature-details): Fixed a typo.
diff --git a/epg.el b/epg.el
index 06a10ed..82ce61e 100644
--- a/epg.el
+++ b/epg.el
@@ -1305,7 +1305,7 @@ This function is for internal use only."
 
 (defun epg-progress-callback-function (context what char current total
 					       handback)
-  (message "%s: %d/%d" what current total))
+  (message "%s: %d%% (%d/%d)" what (/ current 1.0 total) current total))
 
 (defun epg--list-keys-1 (context name mode)
   (let ((args (append (if epg-gpg-home-directory