[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 85bc107 2/2: pinentry.el: Add debugging support
From: |
Daiki Ueno |
Subject: |
[Emacs-diffs] master 85bc107 2/2: pinentry.el: Add debugging support |
Date: |
Wed, 19 Aug 2015 02:40:58 +0000 |
branch: master
commit 85bc107458601e305445d7ec6f5b209c01f5db0c
Author: Daiki Ueno <address@hidden>
Commit: Daiki Ueno <address@hidden>
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.
---
lisp/net/pinentry.el | 9 +++++++++
1 files changed, 9 insertions(+), 0 deletions(-)
diff --git a/lisp/net/pinentry.el b/lisp/net/pinentry.el
index d7161bb..eaa9fa4 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)