bug#9456: 24.0.50; delete-windows-on doesn't work

[Kenichi Handa]

With the latest trunk, delete-windows-on doesn't delete a
window.  This is the testcase.

% emacs -Q
C-x 2
C-x b temp RET
ESC : (delete-windows-on (current-buffer)) RET

It should delete the current window (and thus make the
current frame having just one window), but the actual result
is that the current window still exists while showing
*scratch* buffer.

Emacs 23.3 doesn't have this bug.

---
Kenichi Handa
handa@m17n.org



In GNU Emacs 24.0.50.1 (i686-pc-linux-gnu, GTK+ Version 2.20.1)
 of 2011-08-25 on etlken
Windowing system distributor `The X.Org Foundation', version 11.0.10706000
configured using `configure  'CFLAGS=-g''

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.UTF-8
  value of $XMODIFIERS: @im=ibus
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: RMAIL

Minor modes in effect:
  shell-dirtrack-mode: t
  display-time-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
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t

Recent input:
o <tab> g <tab> . <tab> C-x C-f R E <tab> . <tab> <backspace> 
<tab> <return> C-s c v s C-a C-a C-s b z r C-a C-x 
C-v C-k B <tab> <M-backspace> b z <tab> <M-backspace> 
I N <tab> <tab> . B <tab> <return> C-v C-x o C-x s 
<return> C-x b <return> <escape> > M-v M-v C-v M-v 
M-v M-v C-x k C-g C-x s . / c o n f i g u r e <return> 
M-x c o m p i l e <return> <return> s r c / e m a c 
s SPC - Q <return> C-x b <return> C-x k <return> C-x 
b <return> <down-mouse-5> <mouse-5> <down-mouse-1> 
<mouse-1> C-x 1 r C-c C-y <return> C-c C-f C-c h a 
n d a @ m 1 7 n . o r g C-a C-n C-n C-n C-n C-n C-n 
C-n C-n C-a C-k C-k C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-p C-o C-o C-o M-k i m a SPC <return> s a 
i s i n ' SPC b a n ' SPC d e <return> t a m e s i 
t a m <backspace> <backspace> m a s i t a g a , SPC 
<return> c h a n t o <return> k i <backspace> <backspace> 
<backspace> <backspace> <backspace> C-x s C-z <help-echo> 
C-c C-z b g <return> . . / s t a <tab> e m <tab> <backspace> 
<backspace> s r <tab> e m <tab> a <backspace> <return> 
C-p C-n M-p SPC - Q <return> C-x b <return> C-x k <return> 
y e s <return> C-x b <return> C-x C-g <escape> x r 
e p o C-g <escape> x r e p o <tab> C-g <escape> x r 
e p o <tab> r t <tab> <return>

Recent messages:
(No files need saving)
Compilation finished
Mark set
No match
History item: 1
Auto-saving...done
Quit
Making completion list...
Quit
Making completion list...

Load-path shadows:
/usr/local/share/emacs/site-lisp/evi-mule hides 
/usr/local/share/emacs/site-lisp/lookup/evi-mule
/usr/local/share/emacs/site-lisp/evi hides 
/usr/local/share/emacs/site-lisp/lookup/evi
/usr/local/share/emacs/site-lisp/anthy/anthy hides 
/usr/local/share/emacs/site-lisp/egg/egg/anthy
/usr/local/share/emacs/site-lisp/egg/its/thai hides 
/usr/local/work/emacs/stable/lisp/language/thai
/usr/local/share/emacs/site-lisp/egg/its/greek hides 
/usr/local/work/emacs/stable/lisp/language/greek
/usr/local/work/emacs/stable/lisp/textmodes/table hides ~/emacslisp/table
/usr/local/work/emacs/stable/lisp/language/thai-word hides ~/emacslisp/thai-word
/usr/local/work/emacs/stable/lisp/progmodes/prolog hides ~/emacslisp/prolog
/usr/local/work/emacs/stable/lisp/emacs-lisp/syntax hides ~/emacslisp/syntax
/usr/local/work/emacs/stable/lisp/textmodes/tex-mode hides ~/emacslisp/tex-mode

Features:
(shadow emacsbug vc-bzr compile network-stream starttls tls
mailalias smtpmail auth-source eieio byte-opt bytecomp
byte-compile cconv macroexp assoc password-cache sendmail
sort dabbrev newcomment ja-dic mule-util kkc ja-dic-utl
quail supercite easy-mmode regi gnus-util mail-extr
pcmpl-unix ansi-color shell pcomplete comint regexp-opt ring
help-mode view help-fns thingatpt browse-url multi-isearch
qp rmailkwd rmailmm message format-spec rfc822 mml easymenu
mml-sec mm-decode mm-bodies mm-encode mailabbrev gmm-utils
mailheader mail-parse rfc2231 js2-mode-autoloads package
tabulated-list rmail-parse-url time rmail-sa rmailsum rmail
rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils
time-date japan-util tooltip ediff-hook vc-hooks
lisp-float-type mwheel x-win x-dnd tool-bar dnd fontset
image fringe lisp-mode register page menu-bar rfn-eshadow
timer select scroll-bar mouse jit-lock font-lock syntax
facemenu font-core frame cham georgian utf-8-lang misc-lang
vietnamese tibetan thai tai-viet lao korean japanese hebrew
greek romanian slovak czech european ethiopic indian
cyrillic chinese case-table epa-hook jka-cmpr-hook help
simple abbrev minibuffer loaddefs button faces cus-face
files text-properties overlay sha1 md5 base64 format env
code-pages mule custom widget hashtable-print-readable
backquote make-network-process dbusbind dynamic-setting
system-font-setting font-render-setting move-toolbar gtk
x-toolkit x multi-tty emacs)