From 25cacfa7f0dab73ab4c42b904ef2d8f7c180f482 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 27 Oct 2001 14:57:00 +0000 Subject: [PATCH] No change. Error by bob, not eliz, logging change for wrong file. --- lisp/textmodes/texinfmt.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 01f49921b4c..1de77246b28 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -2129,7 +2129,7 @@ This command is executed when texinfmt sees @item inside @multitable." (setq fill-column existing-fill-column))) -;;; @ifinfo, @iftex, @tex, @ifhtml, @html, @ifnottex +;;; @ifinfo, @iftex, @tex, @ifhtml, @html, @ifnottex, @ifnotinfo, @ifnothtml (put 'ifinfo 'texinfo-format 'texinfo-discard-line) (put 'ifinfo 'texinfo-end 'texinfo-discard-command) @@ -2158,9 +2158,18 @@ This command is executed when texinfmt sees @item inside @multitable." (progn (re-search-forward "@end html[ \t]*\n") (point)))) +(put 'ifnotinfo 'texinfo-format 'texinfo-format-ifnotinfo) +(defun texinfo-format-ifnotinfo () + (delete-region texinfo-command-start + (progn (re-search-forward "@end ifnotinfo[ \t]*\n") + (point)))) + (put 'ifnottex 'texinfo-format 'texinfo-discard-line) (put 'ifnottex 'texinfo-end 'texinfo-discard-command) +(put 'ifnothtml 'texinfo-format 'texinfo-discard-line) +(put 'ifnothtml 'texinfo-end 'texinfo-discard-command) + ;;; @titlepage -- 2.39.5