Mercurial > emacs
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