(epg-context-set-passphrase-callback)

(epg-context-set-progress-callback): Add more description about
callback function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7b4987b7eb903671e6710bb38ea222daea0bdab..8870cbd73cc191762bfba3efc6fabc5b6a5d48d2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,9 @@
 
        * epg.el (epg-cipher-algorithm-alist): Add CAMELLIA.
        (epg-digest-algorithm-alist): Add SHA224.
+       (epg-context-set-passphrase-callback)
+       (epg-context-set-progress-callback): Add more description about
+       callback function.
 
 2009-09-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 

diff --git a/lisp/epg.el b/lisp/epg.el
index f8d72f46cc07fff2f258c372432677ea5b48e3f6..22f18762c5bc3d9b44dadf887f90cc0a570a9b9f 100644 (file)
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -328,7 +328,12 @@ This function is for internal use only."
 
 (defun epg-context-set-passphrase-callback (context
                                            passphrase-callback)
-  "Set the function used to query passphrase."
+  "Set the function used to query passphrase.
+
+PASSPHRASE-CALLBACK is either a function, or a cons-cell whose
+car is a function and cdr is a callback data.
+The function gets three arguments: the context, the key-id in
+question, and the callback data (if any)."
   (unless (eq (car-safe context) 'epg-context)
     (signal 'wrong-type-argument (list 'epg-context-p context)))
   (aset (cdr context) 7 (if (consp passphrase-callback)
@@ -338,7 +343,14 @@ This function is for internal use only."
 (defun epg-context-set-progress-callback (context
                                          progress-callback)
   "Set the function which handles progress update.
-If optional argument HANDBACK is specified, it is passed to PROGRESS-CALLBACK."
+
+PROGRESS-CALLBACK is either a function, or a cons-cell whose
+car is a function and cdr is a callback data.
+
+The function gets five arguments: the context, the operation
+description, the character to display a progress unit, the
+current amount done, the total amount to be done, and the
+callback data (if any)."
   (unless (eq (car-safe context) 'epg-context)
     (signal 'wrong-type-argument (list 'epg-context-p context)))
   (aset (cdr context) 8 (if (consp progress-callback)