]> git.eshelyaron.com Git - emacs.git/commitdiff
No change. Error by bob, not eliz, logging change for wrong file.
authorEli Zaretskii <eliz@gnu.org>
Sat, 27 Oct 2001 14:57:00 +0000 (14:57 +0000)
committerEli Zaretskii <eliz@gnu.org>
Sat, 27 Oct 2001 14:57:00 +0000 (14:57 +0000)
lisp/textmodes/texinfmt.el

index 01f49921b4ce05bedf872b535984fc7c73749b46..1de77246b28be0a718db8a01534016ed389a8660 100644 (file)
@@ -2129,7 +2129,7 @@ This command is executed when texinfmt sees @item inside @multitable."
     (setq fill-column existing-fill-column)))
 
 \f
-;;; @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)
+
 \f
 ;;; @titlepage