diff options
| -rw-r--r-- | lisp/url/url-http.el | 2 | ||||
| -rw-r--r-- | 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.") | |||
| 150 | ;; These routines will allow us to implement persistent HTTP | 150 | ;; These routines will allow us to implement persistent HTTP |
| 151 | ;; connections. | 151 | ;; connections. |
| 152 | (defsubst url-http-debug (&rest args) | 152 | (defsubst url-http-debug (&rest args) |
| 153 | (if quit-flag | 153 | (if (eq quit-flag t) |
| 154 | (let ((proc (get-buffer-process (current-buffer)))) | 154 | (let ((proc (get-buffer-process (current-buffer)))) |
| 155 | ;; The user hit C-g, honor it! Some things can get in an | 155 | ;; The user hit C-g, honor it! Some things can get in an |
| 156 | ;; incredibly tight loop (chunked encoding) | 156 | ;; 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." | |||
| 61 | 61 | ||
| 62 | ;;;###autoload | 62 | ;;;###autoload |
| 63 | (defun url-debug (tag &rest args) | 63 | (defun url-debug (tag &rest args) |
| 64 | (if quit-flag | 64 | (if (eq quit-flag t) |
| 65 | (error "Interrupted!")) | 65 | (error "Interrupted!")) |
| 66 | (if (or (eq url-debug t) | 66 | (if (or (eq url-debug t) |
| 67 | (numberp url-debug) | 67 | (numberp url-debug) |