diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2002-10-29 07:53:08 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2002-10-29 07:53:08 +0000 |
| commit | 2b6a2afe1dbd4c4994106c284be3fa0cb976f215 (patch) | |
| tree | aceb24376234ad20285e5f850fff49b038c90e2e /lisp/textmodes/texinfmt.el | |
| parent | e1a68e89f4b5e39b8de31dd1d63753eb131f57d3 (diff) | |
| download | emacs-2b6a2afe1dbd4c4994106c284be3fa0cb976f215.tar.gz | |
(texinfo-format-ifplaintext): New function.
(ifplaintext, ifnotplaintext)
(afourpaper, afivepaper, afourlatex, afourwide)
(documentlanguage, documentencoding): New aliases.
Diffstat (limited to 'lisp/textmodes/texinfmt.el')
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 20 |
1 files changed, 19 insertions, 1 deletions
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 |