From 5ba12792c1d7266820a70394a6cba418d4c4499e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 24 Jan 2003 02:15:07 +0000 Subject: [PATCH] * infohack.el (infohack-texi-format): Remove the last change of 2003-01-17 in order to withdraw temporally. --- ChangeLog | 5 +++++ texi/infohack.el | 16 ++++++++-------- 2 files changed, 13 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index e37e85f..9260347 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-01-24 Katsumi Yamaoka + + * texi/infohack.el (infohack-texi-format): Remove the last change + of 2003-01-17 in order to withdraw temporally. + 2003-01-21 Katsumi Yamaoka * 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) -- 1.7.10.4