[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 9486d87: Avoid gratuitous errors in 'url-retrieve-s
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master 9486d87: Avoid gratuitous errors in 'url-retrieve-synchronously' |
Date: |
Wed, 13 Mar 2019 12:54:15 -0400 (EDT) |
branch: master
commit 9486d87cfe7a68d43a44eecd660d2fbe8f0fcb73
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>
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 76faac1..651a2cc 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 cb80ec6..72ff4f1 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 9486d87: Avoid gratuitous errors in 'url-retrieve-synchronously',
Eli Zaretskii <=