Просмотр исходного кода

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 17 лет назад
Родитель
Сommit
13f619d07a
2 измененных файлов с 6 добавлено и 1 удалено
  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)))