From 8635e011edd1c50678074a49cbbf857b35823e9d Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sat, 13 Apr 2019 03:36:45 +0300 Subject: [PATCH] Don't signal error from url debug functions * lisp/url/url-http.el (url-http-debug): Don't signal error. * lisp/url/url-util.el (url-debug): Same (bug#34763). --- lisp/url/url-http.el | 9 --------- lisp/url/url-util.el | 2 -- 2 files changed, 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))) -- 2.39.2