[Feature request]: Silence "[error] request--callback: peculiar error" when aborting without setting custom variables

[daanturo]

Currently when using request-abort, an error will be echoed:

[error] request--callback: peculiar error

This cannot be disabled without setting request-message-level (If I understand correctly).

Reproduce

(progn
  (let* ((req
          (request
           "http://httpbin.org/post"
           :type "POST"
           :data '(("key" . "value"))
           :error 'ignore
           :parser 'json-read
           :success (cl-function 'ignore))))
    ;; I tried let-binding here, but callbacks are asynchronous so they aren't
    ;; affected
    (dlet ((request-message-level -1))
      (request-abort req))
    ""))

Observed

[error] request--callback: peculiar error appears in the echo area and *Message*.

Expected

Silent

Is it possible to abort the running request, without informing the user? My package depends of request, so setq-ing an user option without their consent is not polite. Maybe adding more optional arguments to request-abort to silence errors?

[dickmao]

Here's one conspicuously bad way of doing it:

(request-abort
 (let ((req (request "http://httpbin.org/post"
          :type "POST"
          :data '(("key" . "value"))
          :error (lambda (&rest _args) (message "got here"))
          :parser #'json-read
          :success #'ignore)))
   (prog1 req
     (add-function
      :around
      (process-sentinel (get-buffer-process
             (request-response--buffer req)))
      (lambda (f &rest args)
    (let ((request-message-level -1))
      (apply f args)))))))

[daanturo]

Here's one conspicuously bad way of doing it:

(request-abort
 (let ((req (request "http://httpbin.org/post"
        :type "POST"
        :data '(("key" . "value"))
        :error (lambda (&rest _args) (message "got here"))
        :parser #'json-read
        :success #'ignore)))
   (prog1 req
     (add-function
      :around
      (process-sentinel (get-buffer-process
           (request-response--buffer req)))
      (lambda (f &rest args)
  (let ((request-message-level -1))
    (apply f args)))))))

Thank you that works for me.

But I really hope that there would be an official support, like https://github.com/tkf/emacs-request/commit/506500e5e5e0eb4ed5e94812ea6376d1f9933863.