File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -630,7 +630,7 @@ appropriate sectioning and @node commands."
630
630
(unless (eobp )
631
631
(let* ((number (match-string 1 ))
632
632
(word (match-string 2 ))
633
- (node (substitute ?_ ? word :test 'char-equal ))
633
+ (node (apply # 'string ( append ( substitute ?_ ? word :test 'char-equal ) nil ) ))
634
634
(eol (save-excursion (end-of-line ) (point-marker ))))
635
635
; ; some node names appear twice. make them unique.
636
636
(while (member* node d2t-node-list :test 'string= )
@@ -754,7 +754,7 @@ These lines makes a itemized list."
754
754
(while (re-search-forward " ^#start" (point-max ) " to_end" )
755
755
(replace-match " @itemize @bullet" t ))
756
756
(goto-char (point-min ))
757
- (while (re-search-forward " ^#end" (point-max ) " to_end" )
757
+ (while (re-search-forward " ^#end$ " (point-max ) " to_end" )
758
758
(replace-match " @end itemize" t ))
759
759
(goto-char (point-min ))
760
760
(while (re-search-forward " ^#b " (point-max ) " to_end" )
You can’t perform that action at this time.
0 commit comments