diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2018-07-16 07:10:14 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2018-07-16 07:12:07 -0400 |
| commit | 46d7c786324f98e73b7615fbc9515ce9a14fa5d4 (patch) | |
| tree | c70b99d869964613b0fab120f509de2f2025fc71 /lisp/epg-config.el | |
| parent | 4318d70677dedea12a3dcfb689bce71e409212f0 (diff) | |
| download | emacs-46d7c786324f98e73b7615fbc9515ce9a14fa5d4.tar.gz emacs-46d7c786324f98e73b7615fbc9515ce9a14fa5d4.tar.bz2 emacs-46d7c786324f98e73b7615fbc9515ce9a14fa5d4.zip | |
; Remove tracing for epg-tests (Bug#23561)
Diffstat (limited to 'lisp/epg-config.el')
| -rw-r--r-- | lisp/epg-config.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/epg-config.el b/lisp/epg-config.el index 39d264c05ad..fb866df3920 100644 --- a/lisp/epg-config.el +++ b/lisp/epg-config.el @@ -174,13 +174,10 @@ 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 (and (boundp 'trace-level) (> trace-level 0))) nil + (apply #'call-process program nil (list t nil) nil (append (if epg-gpg-home-directory (list "--homedir" epg-gpg-home-directory)) '("--with-colons" "--list-config"))) - (when (and (boundp 'trace-level) (> trace-level 0)) - (trace-values (concat "gpg output:\n" (buffer-string)))) (goto-char (point-min)) (while (re-search-forward "^cfg:\\([^:]+\\):\\(.*\\)" nil t) (setq type (intern (match-string 1)) |