Emacs 22.1 hung after delete-process

[Maguire, Andrew (GE Infra, Energy)]

Using delete-process to kill a subprocess causes Emacs to hang
irretrievably if the sub-process does not immediately exit.

E.g. Using perl.exe (5.8.6) and controlling the HUP signal:

(setq perl-process
      (start-process "perl" "*perl*"
                     "perl.exe"
                     "-e"
                     "$|=1; print 'starting... '; $SIG{'HUP'} = sub { print 
'killed!'; die; }; sleep(20);"))

(delete-process perl-process)

Windows may popup a process killed dialog, select "End now".
Emacs is now completely hung :-(

I have only tried this on Windows. Emacs 21.2 does not have this problem.
kill-process and quit-process are fine and do not hang Emacs.

Thanks,
Andrew

Ps. Sorry if this email is repeated, I got a bounced return.

In GNU Emacs 22.1.1 (i386-mingw-nt5.1.2600)
 of 2007-06-02 on RELEASE
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --cflags -Ic:/gnuwin32/include'

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: ENU
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t

Major mode: C/l

Minor modes in effect:
  shell-dirtrack-mode: t
  show-paren-mode: t
  encoded-kbd-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: identity
  abbrev-mode: t

Recent input:
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <help-echo> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <help-echo> <mouse-1> 
<mouse-1> <help-echo> <mouse-1> <mouse-1> <help-echo> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <help-echo> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<help-echo> <help-echo> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <help-echo> <down-mouse-1> <help-echo> 
<drag-mouse-1> <help-echo> <mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> C-s C-w <C-home> C-s C-s C-s C-s C-s C-s 
<down-mouse-1> <mouse-1> C-s C-w C-w C-w C-s C-s C-s 
C-s C-s C-s C-s C-s C-s C-s C-s C-s C-s C-s <down-mouse-1> 
<mouse-1> <prior> <prior> <prior> <prior> <prior> <next> 
<prior> <prior> <next> <next> <prior> <prior> <next> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> C-s e n d i f C-s C-s C-s C-s C-r C-r 
C-r C-r C-s C-s C-s C-s C-s C-s C-s <down> C-s C-s 
C-r C-r <down> C-s M-p C-s C-s C-s <down-mouse-1> <mouse-1> 
C-s C-w C-w C-w C-s C-s C-s C-s C-s C-s C-s C-s <prior> 
<prior> <prior> <prior> <next> <next> <next> <next> 
<next> C-s C-s C-s <help-echo> <down-mouse-1> <mouse-1> 
<double-down-mouse-1> <mouse-movement> <mouse-movement> 
<double-drag-mouse-1> <help-echo> <switch-frame> <help-echo> 
<down-mouse-1> <mouse-1> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <menu-bar> <help-menu> 
<report-emacs-bug>

Recent messages:
Quit
Mark saved where search started [4 times]
Region 60 in buffer A is empty [2 times]
Refining difference region 61 ...
Region 60 in buffer A is empty [2 times]
To drag modelines or buffers up and down, use the middle button.
Mark saved where search started
Mark set
Mark saved where search started [7 times]
Loading emacsbug...done