diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-16 01:34:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-16 01:34:57 +0000 |
| commit | 4921da73d7e16c212222444cf3b1f13bb5b52c85 (patch) | |
| tree | 8084949509780820bb79154848f00430c3ef212b /lisp | |
| parent | 368f07ef2f0f786463cc40333b22d5bc89de5439 (diff) | |
| download | emacs-4921da73d7e16c212222444cf3b1f13bb5b52c85.tar.gz | |
(texinfo-no-refill-regexp): Recognize @ifhtml, @html.
(texinfo-format-ifhtml, texinfo-format-html): New functions.
(texinfo-format-enddots): New function.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 23 |
1 files changed, 20 insertions, 3 deletions
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index e287212dc24..6c770caec27 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -391,7 +391,7 @@ converted to Info is stored in a temporary buffer." ;;; Handle paragraph filling (defvar texinfo-no-refill-regexp - "^@\\(example\\|smallexample\\|lisp\\|smalllisp\\|display\\|format\\|flushleft\\|flushright\\|menu\\|titlepage\\|iftex\\|tex\\)" + "^@\\(example\\|smallexample\\|lisp\\|smalllisp\\|display\\|format\\|flushleft\\|flushright\\|menu\\|titlepage\\|iftex\\|ifhtml\\|tex\\|html\\)" "Regexp specifying environments in which paragraphs are not filled.") (defvar texinfo-part-of-para-regexp @@ -1054,7 +1054,7 @@ lower types.") (insert ?\n))) -;;; Space controling commands: @. and @: +;;; Space controlling commands: @. and @: (put '\. 'texinfo-format 'texinfo-format-\.) (defun texinfo-format-\. () (texinfo-discard-command) @@ -1494,7 +1494,7 @@ Used by @refill indenting command to avoid indenting within lists, etc.") (texinfo-do-itemize (nth 1 stacktop)))) -;;; @ifinfo, @iftex, @tex +;;; @ifinfo, @iftex, @tex, @ifhtml, @html (put 'ifinfo 'texinfo-format 'texinfo-discard-line) (put 'ifinfo 'texinfo-end 'texinfo-discard-command) @@ -1505,12 +1505,24 @@ Used by @refill indenting command to avoid indenting within lists, etc.") (progn (re-search-forward "@end iftex[ \t]*\n") (point)))) +(put 'ifhtml 'texinfo-format 'texinfo-format-ifhtml) +(defun texinfo-format-ifhtml () + (delete-region texinfo-command-start + (progn (re-search-forward "@end ifhtml[ \t]*\n") + (point)))) + (put 'tex 'texinfo-format 'texinfo-format-tex) (defun texinfo-format-tex () (delete-region texinfo-command-start (progn (re-search-forward "@end tex[ \t]*\n") (point)))) +(put 'html 'texinfo-format 'texinfo-format-html) +(defun texinfo-format-html () + (delete-region texinfo-command-start + (progn (re-search-forward "@end html[ \t]*\n") + (point)))) + ;;; @titlepage @@ -1825,6 +1837,11 @@ If used within a line, follow `@minus' with braces." (texinfo-parse-arg-discard) (insert "...")) +(put 'enddots 'texinfo-format 'texinfo-format-enddots) +(defun texinfo-format-enddots () + (texinfo-parse-arg-discard) + (insert "....")) + ;;; Refilling and indenting: @refill, @paragraphindent, @noindent |