Mercurial > emacs

changeset 36072:a692c3e3a379

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Dave Love <fx@gnu.org>
date Tue, 13 Feb 2001 19:18:01 +0000
parents 25ad8ec698df
children 1e82db65f969
files lisp/menu-bar.el
diffstat 1 files changed, 9 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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))