Mercurial > emacs

changeset 40374:fb22b0e18665

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
No change. Error by bob, not eliz, logging change for wrong file.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 27 Oct 2001 14:57:00 +0000
parents 8bc9adef3080
children ba4a77420ff9
files lisp/textmodes/texinfmt.el
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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