Mercurial > emacs
changeset 48063:4cef5030d270
(texinfo-format-ifplaintext): New function.
(ifplaintext, ifnotplaintext)
(afourpaper, afivepaper, afourlatex, afourwide)
(documentlanguage, documentencoding): New aliases.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 29 Oct 2002 07:53:08 +0000 |
| parents | c9585243ef9f |
| children | dafe1c2349ff |
| files | lisp/textmodes/texinfmt.el |
| diffstat | 1 files changed, 19 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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