diff options
author | Dave Love <[email protected]> | 2001-02-13 19:18:01 +0000 |
---|---|---|
committer | Dave Love <[email protected]> | 2001-02-13 19:18:01 +0000 |
commit | dfe5e27fc10ac88383f5080f7b792d85f56ff6c8 (patch) | |
tree | f1d94b0cdd91b17d695becb9b68aba09ec49cbe3 | |
parent | 0a41199524577dadaf29652a6edb5bcd07b3560c (diff) |
(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.
-rw-r--r-- | lisp/menu-bar.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 65c9f7d76d..ab14632b71 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)) |