From 0a1ac1c9f0ba3bf3836d7b463de63e349a53ce62 Mon Sep 17 00:00:00 2001 From: Tadashi MATSUO Date: Sat, 12 Jun 2010 23:17:12 +0900 Subject: [PATCH] Add codes for debugging functions for OAuth. * twittering-mode.el: Add codes for debugging functions for OAuth. (twittering-oauth-get-token-alist-url): add codes for debug. (twittering-oauth-get-token-alist-native): likewise. (twittering-oauth-get-token-alist-curl): likewise. --- ChangeLog | 6 ++++++ twittering-mode.el | 9 ++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 7f3d5e4a..d5fc392a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -18,6 +18,12 @@ (twittering-write-and-encrypt): new function. (twittering-verify-credentials): support master password. + * twittering-mode.el: Add codes for debugging functions for + OAuth. + (twittering-oauth-get-token-alist-url): add codes for debug. + (twittering-oauth-get-token-alist-native): likewise. + (twittering-oauth-get-token-alist-curl): likewise. + 2010-06-09 Yuto Hayamizu * twittering-mode.el (twittering-oauth-get-access-token): reject diff --git a/twittering-mode.el b/twittering-mode.el index 9bc29a4f..f481fc6e 100644 --- a/twittering-mode.el +++ b/twittering-mode.el @@ -1105,7 +1105,8 @@ function." ))))) (while (eq result 'queried) (sit-for 0.1)) - (kill-buffer buffer) + (unless twittering-debug-mode + (kill-buffer buffer)) result)))) (defun twittering-oauth-get-token-alist-native (url auth-str) @@ -1153,6 +1154,9 @@ function." (let* ((proc (car args)) (buffer (process-buffer proc))) (when buffer + (when twittering-debug-mode + (with-current-buffer (twittering-debug-buffer) + (insert-buffer-substring buffer))) (setq result (twittering-oauth-get-response-alist buffer)))))) (process-send-string proc request-str) @@ -1228,6 +1232,9 @@ function." (let* ((proc (car args)) (buffer (process-buffer proc))) (when buffer + (when twittering-debug-mode + (with-current-buffer (twittering-debug-buffer) + (insert-buffer-substring buffer))) (setq result (twittering-oauth-get-response-alist buffer)))))) (while (eq result 'queried)