mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Make epa-file progress message user-friendly.

Browse source 
* epa.el (epa-progress-callback-function): Fix the logic of
displaying progress.
* epa-file.el (epa-file-insert-file-contents): Make progress
display more user-friendly.
(epa-file-write-region): Ditto.
This commit is contained in:
Daiki Ueno 2011-08-12 12:30:18 +09:00
parent fb568e6327
commit 9d5cb6312b
3 changed files with 27 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/epa-file.el
View file

@ -137,8 +137,10 @@ encryption is used."
context
(cons #'epa-file-passphrase-callback-function
local-file))
(epg-context-set-progress-callback context
#'epa-progress-callback-function)
(epg-context-set-progress-callback
context
(cons #'epa-progress-callback-function
(format "Decrypting %s" file)))
(unwind-protect
(progn
(if replace
@ -211,8 +213,10 @@ encryption is used."
context
(cons #'epa-file-passphrase-callback-function
file))
(epg-context-set-progress-callback context
#'epa-progress-callback-function)
(epg-context-set-progress-callback
context
(cons #'epa-progress-callback-function
(format "Encrypting %s" file)))
(epg-context-set-armor context epa-armor)
(condition-case error
(setq string