From 9486d87cfe7a68d43a44eecd660d2fbe8f0fcb73 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 13 Mar 2019 18:53:08 +0200
Subject: Avoid gratuitous errors in 'url-retrieve-synchronously'

* lisp/url/url-http.el (url-http-debug):
* lisp/url/url-util.el (url-debug): Don't signal an error if
quit-flag is non-nil, but not t.  This could happen because
some unrelated code is running inside while-no-input.
(Bug#34763)
---
 lisp/url/url-util.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp/url/url-util.el')

diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index cb80ec6cefb..72ff4f171cd 100644
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -61,7 +61,7 @@ If a list, it is a list of the types of messages to be logged."
 
 ;;;###autoload
 (defun url-debug (tag &rest args)
-  (if quit-flag
+  (if (eq quit-flag t)
       (error "Interrupted!"))
   (if (or (eq url-debug t)
 	  (numberp url-debug)
-- 
cgit v1.2.3