From 13f619d07a4c82ab58eea0b1dac6a204f8849a54 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 11 Mar 2009 10:12:21 +0100 Subject: [PATCH] HTML Export: Allow Greek letters in subscripts Hsiu-Khuern Tang writes: > If I export the file > > -------------------------------------------------- > #+OPTIONS: ^:{} > > * test > > a_{\alpha} > > a_{foo} > -------------------------------------------------- > > as HTML, I get "a_{α}" but "afoo": \alpha is not > subscripted but foo is. I was expecting both to be subscripted, > since they are in {}. This is a bug, fixed now. --- lisp/ChangeLog | 5 +++++ lisp/org-exp.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 79c5ce920..8eabac9d2 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-03-11 Carsten Dominik + + * org-exp.el (org-create-multibrace-regexp): Do not add + backslashes to the class. + 2009-03-10 Carsten Dominik * org-colview.el (org-columns-map): Better functions for moving up diff --git a/lisp/org-exp.el b/lisp/org-exp.el index ca15bf53d..92af68671 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -4689,7 +4689,7 @@ The regexp returned will match the entire expression including the delimiters. It will also define a single group which contains the match except for the outermost delimiters. The maximum depth of stacked delimiters is N. Escaping delimiters is not possible." - (let* ((nothing (concat "[^" "\\" left "\\" right "]*?")) + (let* ((nothing (concat "[^" left right "]*?")) (or "\\|") (re nothing) (next (concat "\\(?:" nothing left nothing right "\\)+" nothing)))