changeset 9549:1de7e5bc1ff1

(texinfo-no-refill-regexp): Recognize @ifhtml, @html. (texinfo-format-ifhtml, texinfo-format-html): New functions. (texinfo-format-enddots): New function.

--- a/lisp/textmodes/texinfmt.el	Sun Oct 16 01:33:27 1994 +0000
+++ b/lisp/textmodes/texinfmt.el	Sun Oct 16 01:34:57 1994 +0000
@@ -391,7 +391,7 @@
 ;;; 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 @@
     (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 @@
     (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 @@
                  (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 @@
   (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