# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1004194620 0
# Node ID fb22b0e18665ab1eaf14254e956ce3a14b8d4acf
# Parent  8bc9adef308002862e88a0b3124893e9912ca45e
No change.  Error by bob, not eliz, logging change for wrong file.

diff -r 8bc9adef3080 -r fb22b0e18665 lisp/textmodes/texinfmt.el
--- a/lisp/textmodes/texinfmt.el	Sat Oct 27 10:41:38 2001 +0000
+++ b/lisp/textmodes/texinfmt.el	Sat Oct 27 14:57:00 2001 +0000
@@ -2129,7 +2129,7 @@
     (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 @@
                  (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