texinfmt crashes Emacs

[Katsumi Yamaoka]

Hi,

I noticed the recent change in texinfmt.el crashes Emacs when
formatting a Japanese Info.  The Lisp program that reproduces
the crash is:

(load-file "infohack.el")
(let (enable-local-variables) (infohack-texi-format "gnus-ja.texi"))

Where infohack.el, gnus-ja.texi and the other requirements are in:

http://cvs.m17n.org/viewcvs/root/gnus-doc-ja.tar.gz?view=tar
or
http://www.jpl.org/gnus-doc-ja/ngnus-0.6-doc-ja.tar.gz

The backtrace is below.

In GNU Emacs 22.1.50.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2007-07-05 on pastis
Windowing system distributor `The X.Org Foundation', version 11.0.10300000
configured using `configure  '--verbose' '--with-x-toolkit=lucid'\
 '--with-gpm' '--without-xim''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: C
  value of $LC_CTYPE: ja_JP.eucjp
  value of $LC_MESSAGES: C
  value of $LC_MONETARY: C
  value of $LC_NUMERIC: C
  value of $LC_TIME: C
  value of $LANG: C
  locale-coding-system: japanese-iso-8bit
  default-enable-multibyte-characters: t

GNU gdb Red Hat Linux (6.6-15.fc7rh)
[...]
(gdb) r
Starting program: emacs-22.1.50/src/emacs -geometry 80x40+0+0
[Thread debugging using libthread_db enabled]
[New Thread 1074018784 (LWP 10474)]
[Switching to Thread 1074018784 (LWP 10474)]
Breakpoint 3 at 0x80c9fd6: file xterm.c, line 7861.
[Detaching after fork from child process 10478. (Try `set detach-on-fork off'.)]

Breakpoint 1, abort () at emacs.c:431
431       kill (getpid (), SIGABRT);
(gdb) bt
#0  abort () at emacs.c:431
#1  0x0817f516 in Fbyte_code (bytestr=148564811, vector=148412564, maxdepth=40)
    at bytecode.c:1666
#2  0x0815578a in funcall_lambda (fun=150202988, nargs=0, 
    arg_vector=0xbff48d24) at eval.c:3184
#3  0x08155b91 in Ffuncall (nargs=1, args=0xbff48d20) at eval.c:3054
#4  0x081807ea in Fbyte_code (bytestr=148563795, vector=148584420, maxdepth=24)
    at bytecode.c:679
#5  0x0815578a in funcall_lambda (fun=146959484, nargs=0, 
    arg_vector=0xbff48e44) at eval.c:3184
#6  0x08155b91 in Ffuncall (nargs=1, args=0xbff48e40) at eval.c:3054
#7  0x081807ea in Fbyte_code (bytestr=148563603, vector=148583948, maxdepth=40)
    at bytecode.c:679
#8  0x0815578a in funcall_lambda (fun=148584140, nargs=0, 
    arg_vector=0xbff48f74) at eval.c:3184
#9  0x08155b91 in Ffuncall (nargs=1, args=0xbff48f70) at eval.c:3054
#10 0x081807ea in Fbyte_code (bytestr=148556115, vector=148418740, maxdepth=32)
    at bytecode.c:679
#11 0x0815578a in funcall_lambda (fun=148418948, nargs=2, 
    arg_vector=0xbff49094) at eval.c:3184
#12 0x08155b91 in Ffuncall (nargs=3, args=0xbff49090) at eval.c:3054
#13 0x081807ea in Fbyte_code (bytestr=148563571, vector=148560180, maxdepth=24)
    at bytecode.c:679
#14 0x0815578a in funcall_lambda (fun=148419124, nargs=0, 
    arg_vector=0xbff49150) at eval.c:3184
#15 0x08155986 in apply_lambda (fun=148419124, args=137480393, eval_flag=1)
    at eval.c:3108
#16 0x08155062 in Feval (form=150149413) at eval.c:2370
#17 0x081555ef in Fprogn (args=148311987) at eval.c:447
#18 0x08155417 in Feval (form=150152069) at eval.c:2275
#19 0x081577ff in internal_lisp_condition_case (var=137811049, 
    bodyform=150152069, handlers=150148957) at eval.c:1426
#20 0x0815788b in Fcondition_case (args=150152061) at eval.c:1367
#21 0x08155417 in Feval (form=150152053) at eval.c:2275
#22 0x081555ef in Fprogn (args=148311987) at eval.c:447
#23 0x08157abd in Flet (args=150152045) at eval.c:1064
#24 0x08155417 in Feval (form=150151957) at eval.c:2275
#25 0x081555ef in Fprogn (args=148311987) at eval.c:447
#26 0x08155864 in funcall_lambda (fun=150149000, nargs=1, 
    arg_vector=0xbff49580) at eval.c:3177
#27 0x08155986 in apply_lambda (fun=150149005, args=148510629, eval_flag=1)
    at eval.c:3108
#28 0x08155062 in Feval (form=148510637) at eval.c:2370
#29 0x081555ef in Fprogn (args=148311987) at eval.c:447
#30 0x08157abd in Flet (args=148510645) at eval.c:1064
#31 0x08155417 in Feval (form=148510661) at eval.c:2275
#32 0x08155ce1 in Ffuncall (nargs=2, args=0xbff49790) at eval.c:2997
#33 0x081807ea in Fbyte_code (bytestr=136626563, vector=136626580, maxdepth=64)
    at bytecode.c:679
#34 0x0815578a in funcall_lambda (fun=136626524, nargs=1, 
    arg_vector=0xbff498c4) at eval.c:3184
#35 0x08155b91 in Ffuncall (nargs=2, args=0xbff498c0) at eval.c:3054
#36 0x081807ea in Fbyte_code (bytestr=136627059, vector=136627076, maxdepth=32)
    at bytecode.c:679
#37 0x0815578a in funcall_lambda (fun=136627020, nargs=1, 
    arg_vector=0xbff499e4) at eval.c:3184
#38 0x08155b91 in Ffuncall (nargs=2, args=0xbff499e0) at eval.c:3054
#39 0x081807ea in Fbyte_code (bytestr=136625307, vector=136625324, maxdepth=16)
    at bytecode.c:679
#40 0x0815578a in funcall_lambda (fun=136625276, nargs=0, 
    arg_vector=0xbff49b04) at eval.c:3184
#41 0x08155b91 in Ffuncall (nargs=1, args=0xbff49b00) at eval.c:3054
#42 0x08157539 in apply1 (fn=138345049, arg=137480393) at eval.c:2738
#43 0x08152d96 in Fcall_interactively (function=138345049, 
    record_flag=137480393, keys=137521708) at callint.c:406
#44 0x080f2333 in Fcommand_execute (cmd=138345049, record_flag=137480393, 
    keys=137480393, special=137480393) at keyboard.c:10119
#45 0x080fdf1b in command_loop_1 () at keyboard.c:1873
#46 0x081547d2 in internal_condition_case (bfun=0x80fdba0 <command_loop_1>, 
    handlers=137525849, hfun=0x80f84b0 <cmd_error>) at eval.c:1481
#47 0x080f78f3 in command_loop_2 () at keyboard.c:1329
#48 0x0815488a in internal_catch (tag=137519033, 
    func=0x80f78d0 <command_loop_2>, arg=137480393) at eval.c:1222
#49 0x080f82ec in command_loop () at keyboard.c:1308
#50 0x080f868b in recursive_edit_1 () at keyboard.c:1006
#51 0x080f8776 in Frecursive_edit () at keyboard.c:1067
#52 0x080ee535 in main (argc=3, argv=0xbff4a3a4) at emacs.c:1768

Lisp Backtrace:
"texinfo-copy-next-section-title" (0x83361a1)
"texinfo-check-for-node-name" (0x57bd)
"texinfo-update-the-node" (0x8dae613)
"texinfo-update-node" (0x8)
"texinfo-every-node-update" (0x831c8c9)
"progn" (0x8f3239d)
"condition-case" (0x8f3237d)
"let" (0x8f3236d)
"infohack-texi-format" (0x841a3db)
"let" (0x8da17b5)
"eval" (0x8da17c5)
"eval-last-sexp-1" (0x831c8f9)
"eval-last-sexp" (0x831c8f9)
"eval-print-last-sexp" (0x831c8c9)
"call-interactively" (0x83efa59)
(gdb) q
The program is running.  Exit anyway? (y or n) 

Regards,