From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sat, 13 Apr 2019 00:36:45 +0000 (+0300)
Subject: Don't signal error from url debug functions
X-Git-Tag: emacs-27.0.90~3259^2~18
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8635e011edd1c50678074a49cbbf857b35823e9d;p=emacs.git

Don't signal error from url debug functions

* lisp/url/url-http.el (url-http-debug): Don't signal error.

* lisp/url/url-util.el (url-debug): Same (bug#34763).
---

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index cf1952066a5..662b6664b13 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -150,15 +150,6 @@ request.")
 ;; These routines will allow us to implement persistent HTTP
 ;; connections.
 (defsubst url-http-debug (&rest args)
-  (if (eq quit-flag t)
-      (let ((proc (get-buffer-process (current-buffer))))
-	;; The user hit C-g, honor it!  Some things can get in an
-	;; incredibly tight loop (chunked encoding)
-	(if proc
-	    (progn
-	      (set-process-sentinel proc nil)
-	      (set-process-filter proc nil)))
-	(error "Transfer interrupted!")))
   (apply 'url-debug 'http args))
 
 (defun url-http-mark-connection-as-busy (host port proc)
diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index 72ff4f171cd..5b8350642ff 100644
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -61,8 +61,6 @@ If a list, it is a list of the types of messages to be logged."
 
 ;;;###autoload
 (defun url-debug (tag &rest args)
-  (if (eq quit-flag t)
-      (error "Interrupted!"))
   (if (or (eq url-debug t)
 	  (numberp url-debug)
 	  (and (listp url-debug) (memq tag url-debug)))