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).
This commit is contained in:
parent
b41c1ca10f
commit
8635e011ed
2 changed files with 0 additions and 11 deletions
|
@ -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)
|
||||
|
|
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue