# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 982091881 0
# Node ID a692c3e3a3799a3c2a745d02566fdb5fca9f09f5
# Parent  25ad8ec698df9a520f80a3c3f2377fe3d09e812a
(menu-bar-select-frame): Adjust for
last-command-event being a frame name.
(menu-bar-update-buffers): Build frame menu (like the buffer menu)
using frame names.

diff -r 25ad8ec698df -r a692c3e3a379 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Tue Feb 13 16:29:20 2001 +0000
+++ b/lisp/menu-bar.el	Tue Feb 13 19:18:01 2001 +0000
@@ -1,6 +1,6 @@
 ;;; menu-bar.el --- define a default menu bar.
 
-;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1995, 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author: RMS
 ;; Maintainer: FSF
@@ -992,9 +992,13 @@
 
 (defun menu-bar-select-frame ()
   (interactive)
-  (make-frame-visible last-command-event)
-  (raise-frame last-command-event)
-  (select-frame last-command-event))
+  (let (frame)
+    (dolist (f (frame-list))
+      (when (equal last-command-event (frame-parameter f 'name))
+	(setq frame f)))
+  (make-frame-visible frame)
+  (raise-frame frame)
+  (select-frame frame)))
 
 (defun menu-bar-update-buffers-1 (elt)
   (cons (format
@@ -1122,7 +1126,7 @@
 				(mapcar
 				 (lambda (frame)
 				   (nconc
-				    (list frame
+				    (list (frame-parameter frame 'name)
 					  (frame-parameter frame 'name)
 					  (cons nil nil))
 					  'menu-bar-select-frame))