Commit 2b6a2afe authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(texinfo-format-ifplaintext): New function.

(ifplaintext, ifnotplaintext)
(afourpaper, afivepaper, afourlatex, afourwide)
(documentlanguage, documentencoding): New aliases.
parent e1a68e89
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment