# HG changeset patch # User Robert J. Chassell # Date 754033817 0 # Node ID eec34ce70181a569359a4d28158779cf40bb688a # Parent 951396781a0eade14fe32c396f9221c63182a9fb (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 -r 951396781a0e -r eec34ce70181 lisp/textmodes/texinfmt.el --- 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