diff options
| author | Kyle Meyer | 2022-12-25 11:36:36 -0500 |
|---|---|---|
| committer | Kyle Meyer | 2022-12-25 11:36:36 -0500 |
| commit | b1e68a33d89de34b432d6f39464f31a565604f3f (patch) | |
| tree | 72976b930b00bc0efaf3b747974711a29bb5da85 /lisp/org/oc-basic.el | |
| parent | dad73e4de194f6f652c22fcd542d8796926d4ec6 (diff) | |
| download | emacs-b1e68a33d89de34b432d6f39464f31a565604f3f.tar.gz emacs-b1e68a33d89de34b432d6f39464f31a565604f3f.zip | |
Update to Org 9.6-61-g63e073f
Diffstat (limited to 'lisp/org/oc-basic.el')
| -rw-r--r-- | lisp/org/oc-basic.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/org/oc-basic.el b/lisp/org/oc-basic.el index 3ef7a37e3b3..01e314bfdba 100644 --- a/lisp/org/oc-basic.el +++ b/lisp/org/oc-basic.el | |||
| @@ -162,17 +162,17 @@ Return a hash table with citation references as keys and fields alist as values. | |||
| 162 | (puthash (cdr (assq 'id item)) | 162 | (puthash (cdr (assq 'id item)) |
| 163 | (mapcar (pcase-lambda (`(,field . ,value)) | 163 | (mapcar (pcase-lambda (`(,field . ,value)) |
| 164 | (pcase field | 164 | (pcase field |
| 165 | ('author | 165 | ((or 'author 'editors) |
| 166 | ;; Author is an array of objects, each | 166 | ;; Author and editors are arrays of |
| 167 | ;; of them designing a person. These | 167 | ;; objects, each of them designing a |
| 168 | ;; objects may contain multiple | 168 | ;; person. These objects may contain |
| 169 | ;; properties, but for this basic | 169 | ;; multiple properties, but for this |
| 170 | ;; processor, we'll focus on `given' and | 170 | ;; basic processor, we'll focus on |
| 171 | ;; `family'. | 171 | ;; `given' and `family'. |
| 172 | ;; | 172 | ;; |
| 173 | ;; For compatibility with BibTeX, add | 173 | ;; For compatibility with BibTeX, add |
| 174 | ;; "and" between authors. | 174 | ;; "and" between authors and editors. |
| 175 | (cons 'author | 175 | (cons field |
| 176 | (mapconcat | 176 | (mapconcat |
| 177 | (lambda (alist) | 177 | (lambda (alist) |
| 178 | (concat (alist-get 'family alist) | 178 | (concat (alist-get 'family alist) |