From acb93e31f5a88e2461b1fa283bd341b4f66d599b Mon Sep 17 00:00:00 2001 From: "Robert J. Chassell" Date: Tue, 23 Nov 1993 05:50:17 +0000 Subject: [PATCH] (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'. --- lisp/textmodes/texinfmt.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 9a1acee8c6..4ada108779 100644 --- 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") ;;; 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. + ())))) ;;; Process included files: `@include' command -- 2.39.2