Skip to content

Commit 486eb01

Browse files
committed
Fix some bugs in doc2texi.el
1 parent bc22278 commit 486eb01

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

doc2texi.el

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -630,7 +630,7 @@ appropriate sectioning and @node commands."
630630
(unless (eobp)
631631
(let* ((number (match-string 1))
632632
(word (match-string 2))
633-
(node (substitute ?_ ? word :test 'char-equal))
633+
(node (apply #'string (append (substitute ?_ ? word :test 'char-equal) nil)))
634634
(eol (save-excursion (end-of-line) (point-marker))))
635635
;; some node names appear twice. make them unique.
636636
(while (member* node d2t-node-list :test 'string=)
@@ -754,7 +754,7 @@ These lines makes a itemized list."
754754
(while (re-search-forward "^#start" (point-max) "to_end")
755755
(replace-match "@itemize @bullet" t))
756756
(goto-char (point-min))
757-
(while (re-search-forward "^#end" (point-max) "to_end")
757+
(while (re-search-forward "^#end$" (point-max) "to_end")
758758
(replace-match "@end itemize" t))
759759
(goto-char (point-min))
760760
(while (re-search-forward "^#b " (point-max) "to_end")

0 commit comments

Comments
 (0)