diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-12 16:17:25 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-12 16:17:25 +0200 |
| commit | aa41909c853da51699c863619c7d3204d05328a8 (patch) | |
| tree | 94fc255cd4a59b99347227843b1afeffff583620 /lisp/epa.el | |
| parent | f9b61ba72e619b6801e71436793b3c05e5d0efee (diff) | |
| download | emacs-aa41909c853da51699c863619c7d3204d05328a8.tar.gz | |
Suppress interactive-only warnings in epa*.el
* lisp/epa-mail.el (epa-mail-decrypt, epa-mail-verify)
(epa-mail-sign, epa-mail-encrypt): Ditto.
* lisp/epa.el (epa-verify-cleartext-in-region): Suppress warnings
about calling interactive-only functions, because these are
interactive-only thin wrappers around those functions.
Diffstat (limited to 'lisp/epa.el')
| -rw-r--r-- | lisp/epa.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/epa.el b/lisp/epa.el index 59c11ab5412..ad67c238dc2 100644 --- a/lisp/epa.el +++ b/lisp/epa.el @@ -995,7 +995,8 @@ See the reason described in the `epa-verify-region' documentation." nil t)) (unless cleartext-end (error "No cleartext tail")) - (epa-verify-region cleartext-start cleartext-end)))))) + (with-suppressed-warnings ((interactive-only epa-verify-region)) + (epa-verify-region cleartext-start cleartext-end))))))) ;;;###autoload (defun epa-sign-region (start end signers mode) |