changeset 5118:eec34ce70181

(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'.
author Robert J. Chassell <bob@rattlesnake.com>
date Tue, 23 Nov 1993 05:50:17 +0000
parents 951396781a0e
children bf9e7676a73e
files lisp/textmodes/texinfmt.el
diffstat 1 files changed, 7 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/texinfmt.el	Tue Nov 23 03:33:33 1993 +0000
+++ b/lisp/textmodes/texinfmt.el	Tue Nov 23 05:50:17 1993 +0000
@@ -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")
 
 ;;; Variable definitions
 
@@ -2825,7 +2825,9 @@
                               (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 @@
       ())
      ((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.
+      ()))))
 
 
 ;;; Process included files:  `@include' command