diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/url/url-http.el | 9 | ||||
-rw-r--r-- | lisp/url/url-util.el | 2 |
2 files changed, 0 insertions, 11 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index cf1952066a5..662b6664b13 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -150,15 +150,6 @@ request.") ;; These routines will allow us to implement persistent HTTP ;; connections. (defsubst url-http-debug (&rest args) - (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) - (if proc - (progn - (set-process-sentinel proc nil) - (set-process-filter proc nil))) - (error "Transfer interrupted!"))) (apply 'url-debug 'http args)) (defun url-http-mark-connection-as-busy (host port proc) diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el index 72ff4f171cd..5b8350642ff 100644 --- a/lisp/url/url-util.el +++ b/lisp/url/url-util.el @@ -61,8 +61,6 @@ If a list, it is a list of the types of messages to be logged." ;;;###autoload (defun url-debug (tag &rest args) - (if (eq quit-flag t) - (error "Interrupted!")) (if (or (eq url-debug t) (numberp url-debug) (and (listp url-debug) (memq tag url-debug))) |