(texinfo-format-region, texinfo-format-buffer-1):

Search back for the @include.

diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index fc079976c8b3ec5dc3fc25e937bf05ee808d7b23..83cf620826dd4b0bf4802b4ab76e0795e366bdcd 100644 (file)
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -202,7 +202,7 @@ converted to Info is stored in a temporary buffer."
       (setq texinfo-command-end (point))
       (let ((filename (concat input-directory
                               (texinfo-parse-line-arg))))
-        (beginning-of-line)
+        (re-search-backward "^@include")
         (delete-region (point) (save-excursion (forward-line 1) (point)))
         (message "Reading included file: %s" filename)
         (save-excursion
@@ -327,7 +327,7 @@ converted to Info is stored in a temporary buffer."
       (setq texinfo-command-end (point))
       (let ((filename (concat input-directory
                               (texinfo-parse-line-arg))))
-        (beginning-of-line)
+        (re-search-backward "^@include")
         (delete-region (point) (save-excursion (forward-line 1) (point)))
         (message "Reading included file: %s" filename)
         (save-excursion