mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-15 05:39:58 +00:00
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:
parent
29d5b2573b
commit
fdd9b6d330
|
@ -1241,7 +1241,7 @@ and must return either a string, an object, or a secondary string."
|
||||||
((stringp str) (capitalize str))
|
((stringp str) (capitalize str))
|
||||||
((org-element-type-p str 'raw)
|
((org-element-type-p str 'raw)
|
||||||
(org-export-raw-string
|
(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))))
|
(t (error "%S must be either a string or raw string object" str))))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue