[elpa] master 9f361d8 2/3: packages/excorporate: Update HTTP debugging steps

[Thomas Fitzsimmons]

branch: master
commit 9f361d8bf61afda19a0cadf790e06e29d6ba2d81
Author: Thomas Fitzsimmons <address@hidden>
Commit: Thomas Fitzsimmons <address@hidden>

    packages/excorporate: Update HTTP debugging steps
    
    * packages/excorporate/excorporate.texi (Troubleshooting): Update
    HTTP debugging instructions.
    * packages/excorporate/excorporate.info: Rebuild.
---
 packages/excorporate/excorporate.info | 35 +++++++++++++++++------------------
 packages/excorporate/excorporate.texi | 30 +++++++++++++++---------------
 2 files changed, 32 insertions(+), 33 deletions(-)

diff --git a/packages/excorporate/excorporate.info 
b/packages/excorporate/excorporate.info
index f1acc6b..77fd4a5 100644
--- a/packages/excorporate/excorporate.info
+++ b/packages/excorporate/excorporate.info
@@ -177,23 +177,22 @@ message about having created a service.
 
 When this works, it will show a bunch of WSDL (XML) in *Messages*.
 
-Debug the above URL retrievals with (setq url-debug t), and with this
-patch:
-
-     diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
-     index d49e527..0f1c8ae 100644
-     --- a/lisp/url/url-http.el
-     +++ b/lisp/url/url-http.el
-     @ -869,6 +869,7 @ url-http-parse-headers
-            (url-handle-content-transfer-encoding))
-          (url-http-debug "Finished parsing HTTP headers: %S" success)
-          (widen)
-     +    (url-http-debug "Response: %s" (buffer-string))
-          (goto-char (point-min))
-          success))
-
-
-(Beware that HTTP responses are out-of-order with this patch.)
+Debug the above URL retrievals with 'M-:' in an 'emacs -Q' run:
+
+     (progn
+       (setq url-debug 1)
+       (url-retrieve-synchronously URL-STRING)
+       (dolist (p (seq-filter
+                   (lambda (b) (string-match " *http*" (buffer-name b)))
+                   (buffer-list)))
+         (message "HTTP result buffer: \"%s\"\n%s"
+                  (buffer-name p)
+                  (with-current-buffer p (buffer-string))))
+       "check *Messages*")
+
+Beware that HTTP responses can be out-of-order, and that if you set
+'url-debug' to a number or 't', Emacs may hang for a while if it
+attempts to print a very large data structure.
 
 Once you're sure the above steps are working, try 'M-x excorporate'.
 
@@ -232,6 +231,6 @@ Node: Installation2222
 Node: Configuration2485
 Node: Usage3505
 Node: Troubleshooting4923
-Node: Reporting Bugs7758
+Node: Reporting Bugs7796
 
 End Tag Table
diff --git a/packages/excorporate/excorporate.texi 
b/packages/excorporate/excorporate.texi
index 4235708..f3451b4 100644
--- a/packages/excorporate/excorporate.texi
+++ b/packages/excorporate/excorporate.texi
@@ -201,26 +201,26 @@ message about having created a service.
 When this works, it will show a bunch of WSDL (XML) in *Messages*.
 
 @noindent
-Debug the above URL retrievals with (setq url-debug t), and with this
-patch:
+Debug the above URL retrievals with @code{M-:} in an @code{emacs -Q}
+run:
 
 @example
-diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
-index d49e527..0f1c8ae 100644
---- a/lisp/url/url-http.el
-+++ b/lisp/url/url-http.el
-@@ -869,6 +869,7 @@ url-http-parse-headers
-       (url-handle-content-transfer-encoding))
-     (url-http-debug "Finished parsing HTTP headers: %S" success)
-     (widen)
-+    (url-http-debug "Response: %s" (buffer-string))
-     (goto-char (point-min))
-     success))
-
+(progn
+  (setq url-debug 1)
+  (url-retrieve-synchronously URL-STRING)
+  (dolist (p (seq-filter
+              (lambda (b) (string-match " *http*" (buffer-name b)))
+              (buffer-list)))
+    (message "HTTP result buffer: \"%s\"\n%s"
+             (buffer-name p)
+             (with-current-buffer p (buffer-string))))
+  "check *Messages*")
 @end example
 
 @noindent
-(Beware that HTTP responses are out-of-order with this patch.)
+Beware that HTTP responses can be out-of-order, and that if you set
+@code{url-debug} to a number or @code{t}, Emacs may hang for a while if
+it attempts to print a very large data structure.
 
 @noindent
 Once you're sure the above steps are working, try @code{M-x