procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(texinfo-format-ifplaintext): New function.

Browse source 
(ifplaintext, ifnotplaintext)
(afourpaper, afivepaper, afourlatex, afourwide)
(documentlanguage, documentencoding): New aliases.
This commit is contained in:
Juanma Barranquero 2002-10-29 07:53:08 +00:00
parent e1a68e89f4
commit 2b6a2afe1d
1 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/textmodes/texinfmt.el
View file

@ -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