diff options
| author | Daiki Ueno <ueno@unixuser.org> | 2011-08-12 12:30:18 +0900 |
|---|---|---|
| committer | Daiki Ueno <ueno@unixuser.org> | 2011-08-12 12:30:18 +0900 |
| commit | 9d5cb6312b5e6ad61c7cdb5a1282d81e677899f2 (patch) | |
| tree | 04514188a88ba9bb498f81e061f3e10738c8fcd6 /lisp/epa-file.el | |
| parent | fb568e63275f2dc92de1eb506a6f12838757b2bd (diff) | |
| download | emacs-9d5cb6312b5e6ad61c7cdb5a1282d81e677899f2.tar.gz | |
Make epa-file progress message user-friendly.
* 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.
Diffstat (limited to 'lisp/epa-file.el')
| -rw-r--r-- | lisp/epa-file.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/epa-file.el b/lisp/epa-file.el index aa9915d8cfa..118f44854cf 100644 --- a/lisp/epa-file.el +++ b/lisp/epa-file.el @@ -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 |