From: yamaoka <yamaoka>
Date: Fri, 24 Jan 2003 02:15:07 +0000 (+0000)
Subject: * infohack.el (infohack-texi-format): Remove the last change of 2003-01-17
X-Git-Tag: t-gnus-6_15_14-00~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5ba12792c1d7266820a70394a6cba418d4c4499e;p=elisp%2Fgnus.git-

* 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 e37e85f..9260347 100644
--- 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.13 revision 00.
diff --git a/texi/infohack.el b/texi/infohack.el
index 1cf6e8d..24851c9 100644
--- 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)