Browse Source

Merge branch 'maint'

Nicolas Goaziou 11 years ago
parent
commit
644e602343
1 changed files with 4 additions and 5 deletions
  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