error tweaks
parent
68087a1c87
commit
0c7ed6b36f
5
bbj.el
5
bbj.el
|
@ -107,7 +107,10 @@ for all JSON tourists."
|
||||||
(setq message (bbj-descend json 'error 'description))
|
(setq message (bbj-descend json 'error 'description))
|
||||||
(case (bbj-descend json 'error 'code)
|
(case (bbj-descend json 'error 'code)
|
||||||
;; haha epic handling
|
;; haha epic handling
|
||||||
((4 5 6 7) (error message))
|
(4 (user-error
|
||||||
|
(if bbj-logged-in message
|
||||||
|
"Not logged in. Call M-x bbj-login")))
|
||||||
|
((5 6 7) (user-error message))
|
||||||
(otherwise json)))))
|
(otherwise json)))))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue