浏览代码

Merge branch 'maint'

Nicolas Goaziou 11 年之前
父节点
当前提交
644e602343
共有 1 个文件被更改,包括 4 次插入5 次删除
  1. 4 5
      lisp/ox-texinfo.el

+ 4 - 5
lisp/ox-texinfo.el

@@ -472,12 +472,11 @@ guarantees the node name is unique."
 Trim string and collapse multiple whitespace characters as they
 Trim string and collapse multiple whitespace characters as they
 are not significant.  Also remove the following characters: @
 are not significant.  Also remove the following characters: @
 { } ( ) : . ,"
 { } ( ) : . ,"
-  (org-trim
+  (replace-regexp-in-string
+   "[:,.]" ""
    (replace-regexp-in-string
    (replace-regexp-in-string
-    "[:,.]" ""
-    (replace-regexp-in-string
-     "\\`(\\(.*)\\)" "[\\1"
-     (replace-regexp-in-string "[ \t]\\{2,\\}" " " title)))))
+    "\\`(\\(.*)\\)" "[\\1"
+    (org-trim (replace-regexp-in-string "[ \t]\\{2,\\}" " " title)))))
 
 
 ;;;; Content sanitizing
 ;;;; Content sanitizing