bury buffer uses wrong frame

[Adrian Kubala <adrian@sixfingeredman.net>]

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.2.1 (i386-debian-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2002-03-22 on raven, modified by Debian
configured using `configure  i386-debian-linux-gnu --prefix=/usr --sharedstatedir=/var/lib --libexecdir=/usr/lib --localstatedir=/var/lib --infodir=/usr/share/info --mandir=/usr/share/man --with-pop=yes --with-x=yes --with-x-toolkit=athena --without-gif'
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: de_DE.ISO_8859-1
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

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

Bury-buffer doesn't bury the buffer in the selected frame. It seems to
use the first frame always, though I haven't tested it enough to
know. The following lisp code demonstrates the problem. XEmacs gives
the correct orderings, Emacs does not.

(find-file "1")
(find-file "2")
(find-file "3")
(setq frame1 (selected-frame))
;; order now "3 2 1 ..."

(new-frame)
(other-frame 1)
(setq frame2 (selected-frame))
(new-frame)
(other-frame 2)
(setq frame3 (selected-frame))
(message (concat "burying 3 in: " (prin1-to-string (selected-frame))))
(bury-buffer (get-buffer "3"))

;; print expected orderings followed by actual orderings for each frame

(message "global: 2 1 ... 3")
(message (prin1-to-string (buffer-list t)))

;; buffer did not get buried in 3
(message (concat (prin1-to-string frame3) ": 2 1 ... 3"))
(message (prin1-to-string (buffer-list frame3)))

(message (concat (prin1-to-string frame2) ": 3 2 1 ..."))
(message (prin1-to-string (buffer-list frame2)))

;; but in 1 instead!
(message (concat (prin1-to-string frame1) ": 3 2 1 ..."))
(message (prin1-to-string (buffer-list frame1)))

;; end code snippet

Recent input:
<help-echo> <f4> t m <tab> e m <tab> <return> M-x <up> 
e v a l <tab> c u <tab> <return> <switch-frame> <switch-frame> 
<menu-bar> <buffer> "*Messages*" <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <menu-bar> <options> <truncate-lines> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <down> <down> <down> <down> <down> <down> 
<down> <switch-frame> <switch-frame> <f11> <f10> <help-echo> 
<menu-bar> <buffer> "emacs-bug.el" <help-echo> <menu-bar> 
<buffer> "*Messages*" <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <menu-bar> <help-menu> <report-emacs-b
ug>

Recent messages:
#<frame 3 0x8981568\ >: 2 1 ... 3
(#<buffer 3> #<buffer 2> #<buffer 1> #<buffer emacs-bug.el> #<buffer  *Minibuf-1*> #<buffer *scratch*> #<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> #<buffer  *Echo Area 1*>)
#<frame 3 0x83d83c8\ >: 3 2 1 ...
(#<buffer 3> #<buffer 2> #<buffer 1> #<buffer emacs-bug.el> #<buffer  *Minibuf-1*> #<buffer *scratch*> #<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> #<buffer  *Echo Area 1*>)
#<frame 3 0x8464340\ >: 3 2 1 ...
(#<buffer 2> #<buffer 1> #<buffer emacs-bug.el> #<buffer  *Minibuf-1*> #<buffer *scratch*> #<buffer 3> #<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> #<buffer  *Echo Area 1*>)
Long Line Truncation enabled
Symbol's function definition is void: buffer-stack-down
Symbol's function definition is void: buffer-stack-up
Loading emacsbug...done