diff options
| author | Dave Love <fx@gnu.org> | 2001-02-13 19:18:01 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2001-02-13 19:18:01 +0000 |
| commit | dfe5e27fc10ac88383f5080f7b792d85f56ff6c8 (patch) | |
| tree | f1d94b0cdd91b17d695becb9b68aba09ec49cbe3 | |
| parent | 0a41199524577dadaf29652a6edb5bcd07b3560c (diff) | |
| download | emacs-dfe5e27fc10ac88383f5080f7b792d85f56ff6c8.tar.gz | |
(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 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)) |