org-cite-capitalize: Fix when STR is a raw string pseudo-object

* lisp/oc.el (org-cite-capitalize): Assure that `upcase' is passed a
string.

Link: https://orgmode.org/list/alpine.DEB.2.22.394.2311290957360.107158@shell3.miskatonic.org
This commit is contained in:
Ihor Radchenko 2023-12-06 15:51:56 +01:00
parent 29d5b2573b
commit fdd9b6d330
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 1 additions and 1 deletions

View File

@ -1241,7 +1241,7 @@ and must return either a string, an object, or a secondary string."
((stringp str) (capitalize str))
((org-element-type-p str 'raw)
(org-export-raw-string
(upcase (org-element-contents str))))
(upcase (mapconcat #'identity (org-element-contents str) ""))))
(t (error "%S must be either a string or raw string object" str))))