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

diff --git a/lisp/epg-config.el b/lisp/epg-config.el
index e5fd12d9679db16ad8041de2d9ee60d895a4c220..85434985d395e95c3ca6ac83836029442c95bc62 100644 (file)
--- 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")))