From 674c2f78aa6834274ae290b3022380dbd6850ec0 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 28 Oct 2001 09:11:45 +0000 Subject: [PATCH] (texinfo-format-ifnotinfo): New function. (ifnothtml): New alias. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/texinfmt.el | 11 ++++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f6dc581ccfc..246fb54383a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-10-28 Masayuki Ataka + + * textmodes/texinfmt.el (texinfo-format-ifnotinfo): New function. + (ifnothtml): New alias. + 2001-10-27 Stefan Monnier * mail/sendmail.el (mail-mode): Fix ordering in adaptive-fill-regexp. diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 01f49921b4c..1de77246b28 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -2129,7 +2129,7 @@ This command is executed when texinfmt sees @item inside @multitable." (setq fill-column existing-fill-column))) -;;; @ifinfo, @iftex, @tex, @ifhtml, @html, @ifnottex +;;; @ifinfo, @iftex, @tex, @ifhtml, @html, @ifnottex, @ifnotinfo, @ifnothtml (put 'ifinfo 'texinfo-format 'texinfo-discard-line) (put 'ifinfo 'texinfo-end 'texinfo-discard-command) @@ -2158,9 +2158,18 @@ This command is executed when texinfmt sees @item inside @multitable." (progn (re-search-forward "@end html[ \t]*\n") (point)))) +(put 'ifnotinfo 'texinfo-format 'texinfo-format-ifnotinfo) +(defun texinfo-format-ifnotinfo () + (delete-region texinfo-command-start + (progn (re-search-forward "@end ifnotinfo[ \t]*\n") + (point)))) + (put 'ifnottex 'texinfo-format 'texinfo-discard-line) (put 'ifnottex 'texinfo-end 'texinfo-discard-command) +(put 'ifnothtml 'texinfo-format 'texinfo-discard-line) +(put 'ifnothtml 'texinfo-end 'texinfo-discard-command) + ;;; @titlepage -- 2.39.2