# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1035877988 0
# Node ID 4cef5030d270f101a9f933c32675e1477627a246
# Parent  c9585243ef9faea2a7b00acc0e306004e7f8d331
(texinfo-format-ifplaintext): New function.
(ifplaintext, ifnotplaintext)
(afourpaper, afivepaper, afourlatex, afourwide)
(documentlanguage, documentencoding): New aliases.

diff -r c9585243ef9f -r 4cef5030d270 lisp/textmodes/texinfmt.el
--- a/lisp/textmodes/texinfmt.el	Tue Oct 29 07:52:32 2002 +0000
+++ b/lisp/textmodes/texinfmt.el	Tue Oct 29 07:53:08 2002 +0000
@@ -2129,7 +2129,8 @@
     (setq fill-column existing-fill-column)))
 
 
-;;; @ifinfo,  @iftex, @tex, @ifhtml, @html, @ifnottex, @ifnotinfo, @ifnothtml
+;;; @ifinfo,  @iftex, @tex, @ifhtml, @html, @ifplaintext
+;;  @ifnottex, @ifnotinfo, @ifnothtml, @ifnotplaintext
 
 (put 'ifinfo 'texinfo-format 'texinfo-discard-line)
 (put 'ifinfo 'texinfo-end 'texinfo-discard-command)
@@ -2146,6 +2147,12 @@
                  (progn (re-search-forward "@end ifhtml[ \t]*\n")
                         (point))))
 
+(put 'ifplaintext 'texinfo-format 'texinfo-format-ifplaintext)
+(defun texinfo-format-ifplaintext ()
+  (delete-region texinfo-command-start
+                 (progn (re-search-forward "@end ifplaintext[ \t]*\n")
+                        (point))))
+
 (put 'tex 'texinfo-format 'texinfo-format-tex)
 (defun texinfo-format-tex ()
   (delete-region texinfo-command-start
@@ -2164,6 +2171,9 @@
                  (progn (re-search-forward "@end ifnotinfo[ \t]*\n")
                         (point))))
 
+(put 'ifnotplaintext 'texinfo-format 'texinfo-discard-line)
+(put 'ifnotplaintext 'texinfo-end 'texinfo-discard-command)
+
 (put 'ifnottex 'texinfo-format 'texinfo-discard-line)
 (put 'ifnottex 'texinfo-end 'texinfo-discard-command)
 
@@ -4084,6 +4094,10 @@
 (put 'smallbreak 'texinfo-format 'texinfo-discard-line)
 (put 'medbreak 'texinfo-format 'texinfo-discard-line)
 (put 'bigbreak 'texinfo-format 'texinfo-discard-line)
+(put 'afourpaper 'texinfo-format 'texinfo-discard-line)
+(put 'afivepaper 'texinoo-format 'texinfo-discard-line)
+(put 'afourlatex 'texinoo-format 'texinfo-discard-line)
+(put 'afourwide  'texinoo-format 'texinfo-discard-line)
 
 
 ;;; These noop commands discard the rest of the line.
@@ -4126,6 +4140,10 @@
 (put 'summarycontents 'texinfo-format 'texinfo-discard-line-with-args)
 (put 'input 'texinfo-format 'texinfo-discard-line-with-args)
 
+(put 'documentlanguage 'texinfo-format 'texinfo-discard-line-with-args)
+(put 'documentencoding 'texinfo-format 'texinfo-discard-line-with-args)
+
+
 
 ;;; Some commands cannot be handled