From 025a96d46f208ed0d9168ecb987a455a3bb4278d Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 29 Jun 2010 11:47:42 +0200 Subject: [PATCH] Fix bug due to new entity constant structure * lisp/org.el (org-compute-latex-and-specials-regexp): Deal with string elements by discarding them. --- lisp/org.el | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 328c2ff30..9bbe090ad 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5189,13 +5189,17 @@ will be prompted for." (if org-export-with-TeX-macros (list (concat "\\\\" (regexp-opt - (append (mapcar 'car (append org-entities-user - org-entities)) - (if (boundp 'org-latex-entities) - (mapcar (lambda (x) - (or (car-safe x) x)) - org-latex-entities) - nil)) + (append + + (delq nil + (mapcar 'car-safe + (append org-entities-user + org-entities))) + (if (boundp 'org-latex-entities) + (mapcar (lambda (x) + (or (car-safe x) x)) + org-latex-entities) + nil)) 'words))) ; FIXME )) ;; (list "\\\\\\(?:[a-zA-Z]+\\)")))