From: Noam Postavsky <npostavs@gmail.com>
Date: Sun, 15 Jul 2018 00:04:25 +0000 (-0400)
Subject: ; Trace gpg stderr config output during epg-tests (Bug#23561)
X-Git-Tag: emacs-27.0.90~4670
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d42d1d351fbdd236a11ae86f7d0796337e629b3;p=emacs.git

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

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")))