Unsupported Texinfo command

[Masayuki Ataka]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.1.1 (i686-zack-freebsd, X toolkit, Xaw3d scroll bars)
 of 2001-10-23 on zack.math.sci.hiroshima-u.ac.jp
configured using `configure  i686-zack-freebsd --with-x'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ja_JP.EUC
  locale-coding-system: japanese-iso-8bit
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

M-x Texinfo-format-buffer does not full-support Texinfo 4.0.
@ifnotinfo ... @end ifnotinfo and @ifnothtml ... @end ifnothtml
in the texinfo document hung up texi -> info convertion.

Following patch will fix it.
In lisp/textmodes, 
 patch -p0 < texinfmt.patch
 
regards,
---
Masayuki Ataka (Japan)

Recent input:
x <escape> p <escape> p <return> C-v C-n C-n C-n C-n 
C-n C-x C-s C-x k <return> C-x C-f <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
t m SPC SPC C-g C-x b t e SPC SPC <return> C-n <escape> 
x s h e SPC <return> <up> <down> <escape> p C-c C-a 
C-k r m SPC t e x <tab> p <tab> <return> <escape> p 
<escape> p <return> C-x C-f t e SPC x i SPC p SPC <return> 
C-x k <return> <escape> x r e p a <backspace> o r SPC 
SPC SPC <return>

Recent messages:
Quit
History item: 1
Completing file name...
Partially completed
Completing file name...
Partially completed
History item: 1
History item: 2
Making completion list...
Loading emacsbug...done

--- texinfmt.el.org     Sat Oct 27 17:30:26 2001
+++ texinfmt.el Sat Oct 27 17:45:11 2001
@@ -2129,7 +2129,7 @@
     (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,8 +2158,17 @@
                  (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