[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/pinentry 33aa267 13/18: pinentry.el: Add debugging supp
From: |
Stefan Monnier |
Subject: |
[elpa] externals/pinentry 33aa267 13/18: pinentry.el: Add debugging support |
Date: |
Sat, 28 Nov 2020 00:07:48 -0500 (EST) |
branch: externals/pinentry
commit 33aa2673a9c2c6700ba428fd63e4202c37fd3352
Author: Daiki Ueno <ueno@gnu.org>
Commit: Daiki Ueno <ueno@gnu.org>
pinentry.el: Add debugging support
* 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.
---
pinentry.el | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/pinentry.el b/pinentry.el
index d7161bb..eaa9fa4 100644
--- a/pinentry.el
+++ b/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)
- [elpa] externals/pinentry 075deb6 06/18: Improve documentation, (continued)
- [elpa] externals/pinentry 075deb6 06/18: Improve documentation, Stefan Monnier, 2020/11/28
- [elpa] externals/pinentry 398bb40 10/18: pinentry.el: Support external passphrase cache, Stefan Monnier, 2020/11/28
- [elpa] externals/pinentry b3a45a5 07/18: Move the content of README to pinentry.el, Stefan Monnier, 2020/11/28
- [elpa] externals/pinentry 99be264 08/18: pinentry.el: Popup window for multiline prompt, Stefan Monnier, 2020/11/28
- [elpa] externals/pinentry 3b6383e 14/18: Suppress redundant Pinentry startup messages, Stefan Monnier, 2020/11/28
- [elpa] externals/pinentry 3f3150b 15/18: Mention how to enable pinentry feature, Stefan Monnier, 2020/11/28
- [elpa] externals/pinentry 9e64733 09/18: ; pinentry.el: Update header comment and fix typos, Stefan Monnier, 2020/11/28
- [elpa] externals/pinentry 908344f 05/18: Add more documentation and fix mnemonic handling, Stefan Monnier, 2020/11/28
- [elpa] externals/pinentry ee7d272 11/18: Revert "pinentry.el: Support external passphrase cache", Stefan Monnier, 2020/11/28
- [elpa] externals/pinentry f6785ae 12/18: pinentry.el: Improve multiline prompt, Stefan Monnier, 2020/11/28
- [elpa] externals/pinentry 33aa267 13/18: pinentry.el: Add debugging support,
Stefan Monnier <=
- [elpa] externals/pinentry 075fa1d 16/18: Change the default socket location for pinentry, Stefan Monnier, 2020/11/28
- [elpa] externals/pinentry 379bbeb 17/18: Revert "Change the default socket location for pinentry", Stefan Monnier, 2020/11/28
- [elpa] externals/pinentry 0f42e75 18/18: Set file modes of pinentry socket for extra safety, Stefan Monnier, 2020/11/28