diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2019-03-13 18:53:08 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2019-03-13 18:53:08 +0200 |
| commit | 9486d87cfe7a68d43a44eecd660d2fbe8f0fcb73 (patch) | |
| tree | f5e108292d9d8304eeb0047e71eb2d0333d32086 /lisp/url/url-util.el | |
| parent | 8b3008261d4c3f7ed7508c0f7205d9fc3640df46 (diff) | |
| download | emacs-9486d87cfe7a68d43a44eecd660d2fbe8f0fcb73.tar.gz | |
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)
Diffstat (limited to 'lisp/url/url-util.el')
| -rw-r--r-- | lisp/url/url-util.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |