* infohack.el (infohack-texi-format): Insert one excessive newline after a

 @foo{bar} thing to prevent clinging of a line and a line (old texinfmt bug?)
 if it should be considered only one thing in a line.

diff --git a/ChangeLog b/ChangeLog
index 93d91f5..4c45d19 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2003-01-17  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * texi/infohack.el (infohack-texi-format): Insert one excessive
+       newline after a @foo{bar} thing to prevent clinging of a line and
+       a line (old texinfmt bug?) if it should be considered only one
+       thing in a line.
+
 2003-01-16  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/gnus-msg.el (gnus-summary-digest-mail-forward): Set article

diff --git a/texi/infohack.el b/texi/infohack.el
index 17b1f68..1cf6e8d 100644 (file)
--- a/texi/infohack.el
+++ b/texi/infohack.el
@@ -133,6 +133,14 @@
                          (delete-region (point) (save-excursion
                                                   (forward-line 1)
                                                   (point))))))))))
+         ;; Insert one excessive newline after a @foo{bar} thing to
+         ;; prevent clinging of a line and a line (old texinfmt bug?)
+         ;; if it should be considered only one thing in a line.
+         (goto-char (point-min))
+         (while (re-search-forward "^[\t ]*@[a-z]+{.+}[\t ]*\n[\t ]*\n"
+                                   nil t)
+           (if (not (looking-at "[\t ]*$\\|[\t ]*@[a-z]+[\t\n ]"))
+               (insert "\n")))
          (texinfo-mode)
          (texinfo-every-node-update)
          (set-buffer-modified-p nil)