Browse Source

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_{&alpha;}" but "a<sub>foo</sub>": \alpha is not
>  subscripted but foo is.  I was expecting both to be subscripted,
>  since they are in {}.

This is a bug, fixed now.
Carsten Dominik 16 years ago
parent
commit
13f619d07a
2 changed files with 6 additions and 1 deletions
  1. 5 0
      lisp/ChangeLog
  2. 1 1
      lisp/org-exp.el

+ 5 - 0
lisp/ChangeLog

@@ -1,3 +1,8 @@
+2009-03-11  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-exp.el (org-create-multibrace-regexp): Do not add
+	backslashes to the class.
+
 2009-03-10  Carsten Dominik  <carsten.dominik@gmail.com>
 2009-03-10  Carsten Dominik  <carsten.dominik@gmail.com>
 
 
 	* org-colview.el (org-columns-map): Better functions for moving up
 	* org-colview.el (org-columns-map): Better functions for moving up

+ 1 - 1
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
 delimiters.  It will also define a single group which contains the
 match except for the outermost delimiters.  The maximum depth of
 match except for the outermost delimiters.  The maximum depth of
 stacked delimiters is N.  Escaping delimiters is not possible."
 stacked delimiters is N.  Escaping delimiters is not possible."
-  (let* ((nothing (concat "[^" "\\" left "\\" right "]*?"))
+  (let* ((nothing (concat "[^" left right "]*?"))
 	 (or "\\|")
 	 (or "\\|")
 	 (re nothing)
 	 (re nothing)
 	 (next (concat "\\(?:" nothing left nothing right "\\)+" nothing)))
 	 (next (concat "\\(?:" nothing left nothing right "\\)+" nothing)))