From dfe5e27fc10ac88383f5080f7b792d85f56ff6c8 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 13 Feb 2001 19:18:01 +0000 Subject: [PATCH] (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. --- lisp/menu-bar.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 65c9f7d76dc..ab14632b716 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -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 @@ key (or menu-item)")) (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 @@ key (or menu-item)")) (mapcar (lambda (frame) (nconc - (list frame + (list (frame-parameter frame 'name) (frame-parameter frame 'name) (cons nil nil)) 'menu-bar-select-frame)) -- 2.39.5