bug#5405: select-frame losing current-buffer

[Uday S Reddy <u.s.reddy@cs.bham.ac.uk>]

The documentation of make-frame says that current-buffer continues to
selected in the new frame.  The documentation of select-frame doesn't
say anything about the matter, but one would normally expect that the
current-buffer should still remain the same.  However, the following
example shows that select-frame loses the current-buffer:

(defun testing ()
  (interactive)
  (let ((new-buffer (get-buffer-create " testing")))
    (set-buffer new-buffer)
    (select-frame (make-frame nil))
    (if (not (equal (current-buffer) new-buffer))
	(debug))))

I presume that the space at the beginning of the buffer name is
a partial cause of this misbehaviour.

Cheers,
Uday Reddy



In GNU Emacs 22.3.1 (i386-mingw-nt5.1.2600)
 of 2008-09-06 on SOFT-MJASON
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4)'

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: Mail

Minor modes in effect:
  savehist-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
  line-number-mode: t
  transient-mark-mode: t
  abbrev-mode: t

Recent input:
C-x b * s c SPC <return> <f1> C-x . <return> ( d e 
f u n SPC t e s t i n g SPC ( ) <return> TAB C-( ( 
i n t e r a c t i v e ) <return> TAB ( l e t SPC ( 
( n e w - b u f f e r SPC ( g e t - b u f f e r - c 
r e a t e SPC " SPC t e s t i n g " ) ) ) <return> 
TAB ( s e t - b u f f e r SPC n e w - b u f f e r ) 
<return> TAB ( l e t SPC ( ( n e w - f r a m e SPC 
C-a C-k TAB ( s e l e c t - f r a m e SPC ( m a k e 
- f r a m e SPC n i l ) ) <return> TAB ( i f SPC ( 
n o t SPC ( e u q <backspace> <backspace> q u a l SPC 
( c u r r e n t - b u f f e r ) SPC n e w - b u f f 
e r ) ) <return> TAB 9 d e <backspace> <backspace> 
<backspace> ( d e b u g ) ) ) ) <escape> C-x M-x t 
e s t i n g <return> q C-x b <return> C-x b * s c SPC 
<return> C-p C-p C-p C-p C-p C-p C-a C-SPC C-n C-n 
C-n C-n C-n C-n C-n <return> C-x C-x C-x C-k C-x m 
M-x r e p o r t - e m SPC SPC <return>

Recent messages:
There are unsaved changes, quit anyway? (y or n) 
Delete auto save file y:/tmpmail/#vm-bug-forwarding.msg#? (y or n) 
Mark set
Auto-saving...done
testing
Entering debugger...
Back to top level.
Mark set
Loading mail-utils...done
Loading emacsbug...done