From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 29 Sep 1994 18:51:54 +0000 (+0000)
Subject: (texinfo-format-region, texinfo-format-buffer-1):
X-Git-Tag: emacs-19.34~6676
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=214b69d9e9fc507b465aeb2529cd6ad68fa78c54;p=emacs.git

(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 fc079976c8b..83cf620826d 100644
--- 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