From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 29 Oct 2002 07:53:08 +0000 (+0000)
Subject: (texinfo-format-ifplaintext): New function.
X-Git-Tag: ttn-vms-21-2-B4~12673
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b6a2afe1dbd4c4994106c284be3fa0cb976f215;p=emacs.git

(texinfo-format-ifplaintext): New function.
(ifplaintext, ifnotplaintext)
(afourpaper, afivepaper, afourlatex, afourwide)
(documentlanguage, documentencoding): New aliases.
---

diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 1de77246b28..eab3405c8c3 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -2129,7 +2129,8 @@ This command is executed when texinfmt sees @item inside @multitable."
     (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 @@ This command is executed when texinfmt sees @item inside @multitable."
                  (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 @@ This command is executed when texinfmt sees @item inside @multitable."
                  (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 @@ the @ifeq command."
 (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 @@ the @ifeq command."
 (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