瀏覽代碼

ox-texinfo: Fix corner case when fixing a node name

* lisp/ox-texinfo.el (org-texinfo--sanitize-node): Handle
  " (not)allowed" case.
Nicolas Goaziou 10 年之前
父節點
當前提交
e112f3c0df
共有 1 個文件被更改,包括 4 次插入5 次删除
  1. 4 5
      lisp/ox-texinfo.el

+ 4 - 5
lisp/ox-texinfo.el

@@ -487,12 +487,11 @@ guarantees the node name is unique."
 Trim string and collapse multiple whitespace characters as they
 are not significant.  Also remove the following characters: @
 { } ( ) : . ,"
-  (org-trim
+  (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