* infohack.el (infohack-texi-format): Remove the last change of 2003-01-17

 in order to withdraw temporally.

diff --git a/ChangeLog b/ChangeLog
index bd27713..24e4f0f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * texi/infohack.el (infohack-texi-format): Remove the last change
+       of 2003-01-17 in order to withdraw temporally.
+
 2003-01-21  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/gnus-vers.el: T-gnus 6.15.14 (quimby) revision 00.

diff --git a/texi/infohack.el b/texi/infohack.el
index 1cf6e8d..24851c9 100644 (file)
--- a/texi/infohack.el
+++ b/texi/infohack.el
@@ -133,14 +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")))
+;;;      ;; 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)