diff --git a/lisp/org.el b/lisp/org.el index 04bb2e9..a366f95 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -20030,8 +20030,12 @@ With prefix arg UNCOMPILED, load the uncompiled versions." (defun org-quote-csv-field (s) "Quote field for inclusion in CSV material." (if (string-match "[\",]" s) - (concat "\"" (mapconcat 'identity (split-string s "\"") "\"\"") "\"") - s)) + (setq s (concat "\"" (mapconcat 'identity (split-string s "\"") "\"\"") "\""))) + (if (string-match "\\\\\\([a-zA-Z]+[0-9]*\\)\\({}\\)?" s) + (setq s (replace-match + (org-entity-get-representation + (match-string 1 s) 'ascii) t t s 0))) + s) (defun org-force-self-insert (N) "Needed to enforce self-insert under remapping."