Merge branch 'bugfix'

2022-06-23 21:21:19 +08:00 · 2022-06-23 21:21:19 +08:00 · dbcc2e04f9
parent 7c61a3a801 0dc27a8837
commit dbcc2e04f9
1 changed files with 8 additions and 1 deletions
--- a/lisp/oc-basic.el
+++ b/lisp/oc-basic.el
@ -189,7 +189,14 @@ Return a hash table with citation references as keys and fields alist as values.
                                (cons 'year
                                      (cond
                                       ((consp date)
-                                        (caar date))
+                                         (let ((year (caar date)))
+                                           (cond
+                                             ((numberp year) (number-to-string year))
+                                             ((stringp year) year)
+                                             (t
+                                               (error
+                                                 "First element of CSL-JSON date-parts should be a number or string, got %s: %S"
+                                                 (type-of year) year)))))
                                       ((stringp date)
                                        (replace-regexp-in-string
                                          (rx