summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2020-02-23 23:02:44 +0000
committerjao <jao@gnu.org>2020-02-23 23:02:44 +0000
commiteeb709a2c0a40366f0f03f332f799f0f252d0cf3 (patch)
tree8bb9720305be73b81a5258335bfe3790fc907daf
parentb10b409f4babca6a28cdd88af3fa1149fe55c694 (diff)
downloadelibs-eeb709a2c0a40366f0f03f332f799f0f252d0cf3.tar.gz
elibs-eeb709a2c0a40366f0f03f332f799f0f252d0cf3.tar.bz2
signel: ignore-error is unreleased
-rw-r--r--net/signel.org12
1 files changed, 6 insertions, 6 deletions
diff --git a/net/signel.org b/net/signel.org
index 89c9b16..799a975 100644
--- a/net/signel.org
+++ b/net/signel.org
@@ -172,12 +172,12 @@ envelopes:
#+begin_src emacs-lisp
(defun signel--msg-contents (str)
- (cdr (assoc 'envelope (ignore-error 'json-parse-error
- (json-parse-string str
- :null-object nil
- :false-object nil
- :object-type 'alist
- :array-type 'list)))))
+ (alist-get 'envelope
+ (ignore-errors (json-parse-string str
+ :null-object nil
+ :false-object nil
+ :object-type 'alist
+ :array-type 'list))))
#+end_src
Here i am being old-school and opting to receive JSON dicitionaries as