From 9486d87cfe7a68d43a44eecd660d2fbe8f0fcb73 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 13 Mar 2019 18:53:08 +0200 Subject: [PATCH] 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-http.el | 2 +- lisp/url/url-util.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 76faac13808..651a2cc94c6 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -150,7 +150,7 @@ request.") ;; These routines will allow us to implement persistent HTTP ;; connections. (defsubst url-http-debug (&rest args) - (if quit-flag + (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) 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) -- 2.39.5