procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
set nor cleared.
 (texinfo-format-region): Change `texinfo-[start end]-of-header' to
`tex-[start end]-of-header'.
This commit is contained in:
Robert J. Chassell 1993-11-23 05:50:17 +00:00
parent 5e88a39e2c
commit acb93e31f5
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/textmodes/texinfmt.el
View file

@ -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