; Trace gpg stderr config output during epg-tests (Bug#23561)

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/epg-config.el b/lisp/epg-config.el
index e5fd12d9679..85434985d39 100644
--- a/lisp/epg-config.el
+++ b/lisp/epg-config.el
@@ -171,7 +171,8 @@ version requirement is met."
 (defun epg-config--make-gpg-configuration (program)
   (let (config groups type args)
     (with-temp-buffer
-      (apply #'call-process program nil (list t nil) nil
+      (apply #'call-process program nil
+             (list t (and (boundp 'trace-level) (> trace-level 0))) nil
              (append (if epg-gpg-home-directory
                          (list "--homedir" epg-gpg-home-directory))
                      '("--with-colons" "--list-config")))