mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-25 19:11:56 +00:00
Code Issues Releases Activity

(epg-context-set-passphrase-callback)

Browse Source 
(epg-context-set-progress-callback): Add more description about
callback function.
This commit is contained in:
Daiki Ueno 2009-09-11 22:46:14 +00:00
parent 138907962d
commit b18508ddd0
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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>

16
lisp/epg.el
View File

@ -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)