(texinfo-if-set, texinfo-if-clear): Act appropriately when flat neither

set nor cleared.
 (texinfo-format-region): Change `texinfo-[start end]-of-header' to
`tex-[start end]-of-header'.

diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 9a1acee8c686b50f911e978e56d519e0b1491fb5..4ada1087795bf6008df319330727b97629637d0e 100644 (file)
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -24,7 +24,7 @@
 
 ;;; Emacs lisp functions to convert Texinfo files to Info files.
 
-(defvar texinfmt-version "2.31 of 10 November 1993")
+(defvar texinfmt-version "2.32 of 19 November 1993")
 \f
 ;;; Variable definitions
 
@@ -2825,7 +2825,9 @@ The command  `@value{foo}'  expands to the value."
                               (point))))
      ((eq (get (car (read-from-string arg)) 'texinfo-whether-setp)
           nil)
-      (error  "@ifset flag `%s' is not defined by @set or @clear." arg)))))
+      ;; In this case flag is neither set nor cleared.  
+      ;; Act as if set, i.e. do nothing.
+      ()))))
 
 (put 'ifclear 'texinfo-end 'texinfo-discard-command)
 (put 'ifclear 'texinfo-format 'texinfo-if-clear)
@@ -2845,7 +2847,9 @@ The command  `@value{foo}'  expands to the value."
       ())
      ((eq (get (car (read-from-string arg)) 'texinfo-whether-setp)
           nil)
-      (error  "@ifclear flag `%s' is not defined by @clear or @set." arg)))))
+      ;; In this case flag is neither set nor cleared.  
+      ;; Act as if clear, i.e. do nothing.
+      ()))))
 
 \f
 ;;; Process included files:  `@include' command