diff options
author | Dmitry Gutov <dgutov@yandex.ru> | 2019-04-13 03:36:45 +0300 |
---|---|---|
committer | Dmitry Gutov <dgutov@yandex.ru> | 2019-04-13 03:36:45 +0300 |
commit | 8635e011edd1c50678074a49cbbf857b35823e9d (patch) | |
tree | 8447057f1593ce8b855b9fbeb4a46f4b7dd2a1a1 | |
parent | b41c1ca10fab4ed94e59aea8ad5eae334c2452bd (diff) | |
download | emacs-8635e011edd1c50678074a49cbbf857b35823e9d.tar.gz |
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).
-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))) |