From: Daiki Ueno <ueno@gnu.org>
Date: Wed, 19 Aug 2015 02:40:17 +0000 (+0900)
Subject: pinentry.el: Add debugging support
X-Git-Tag: emacs-25.0.90~1353
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85bc107458601e305445d7ec6f5b209c01f5db0c;p=emacs.git

pinentry.el: Add debugging support

* lisp/net/pinentry.el (pinentry-debug): New variable.
(pinentry-debug-buffer): New variable.
(pinentry--process-filter): Send input to the debug buffer, if
`pinentry-debug' is set.
---

diff --git a/lisp/net/pinentry.el b/lisp/net/pinentry.el
index d7161bbf44d..eaa9fa40b12 100644
--- a/lisp/net/pinentry.el
+++ b/lisp/net/pinentry.el
@@ -63,6 +63,8 @@
   :type 'integer
   :group 'pinentry)
 
+(defvar pinentry-debug nil)
+(defvar pinentry-debug-buffer nil)
 (defvar pinentry--server-process nil)
 (defvar pinentry--connection-process-list nil)
 
@@ -293,6 +295,13 @@ Assuan protocol."
         (setq pinentry--read-point (point-min))
         (make-local-variable 'pinentry--labels))))
   (with-current-buffer (process-buffer process)
+    (when pinentry-debug
+      (with-current-buffer
+          (or pinentry-debug-buffer
+              (setq pinentry-debug-buffer (generate-new-buffer
+                                           " *pinentry-debug*")))
+        (goto-char (point-max))
+        (insert input)))
     (save-excursion
       (goto-char (point-max))
       (insert input)