# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 780864714 0
# Node ID 0facf5c89fff15cb739afba36718c55c6e53eedb
# Parent  5c7bf32471850c3807381af6f544e5fceb0c6003
(texinfo-format-region, texinfo-format-buffer-1):
Search back for the @include.

diff -r 5c7bf3247185 -r 0facf5c89fff lisp/textmodes/texinfmt.el
--- a/lisp/textmodes/texinfmt.el	Thu Sep 29 12:42:45 1994 +0000
+++ b/lisp/textmodes/texinfmt.el	Thu Sep 29 18:51:54 1994 +0000
@@ -202,7 +202,7 @@
       (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 @@
       (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