hiro/ement.el
1
0
Fork 0
mirror of https://github.com/vale981/ement.el synced 2025-03-05 09:21:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Tidy

Browse source
This commit is contained in:
Adam Porter 2020-11-30 21:12:55 -06:00
parent 180f3337d5
commit f17c1da97c
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
ement.el
View file

@ -163,11 +163,10 @@ If SESSION has a `next-batch' token, it's used."
:params params :params params
:else (lambda (plz-error) :else (lambda (plz-error)
(setf (map-elt ement-syncs session) nil) (setf (map-elt ement-syncs session) nil)
(pcase-let (((cl-struct plz-error curl-error) plz-error)) (pcase (plz-error-curl-error plz-error)
(pcase curl-error (`(28 . ,_) ; Timeout: sync again if enabled.
(28 ; Timeout: sync again if enabled. (ement--auto-sync session))
(ement--auto-sync session)) (_ (ement-api-error plz-error))))
(_ (ement-api-error plz-error)))))
:json-read-fn (lambda () :json-read-fn (lambda ()
"Print a message, then call `json-read'." "Print a message, then call `json-read'."
(require 'files) (require 'files)