Mercurial > emacs
comparison lisp/menu-bar.el @ 36072:a692c3e3a379
(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 | 880d8ce810cc |
| children | 56577cf3e384 |
comparison
equal
deleted
inserted
replaced
| 36071:25ad8ec698df | 36072:a692c3e3a379 |
|---|---|
| 1 ;;; menu-bar.el --- define a default menu bar. | 1 ;;; menu-bar.el --- define a default menu bar. |
| 2 | 2 |
| 3 ;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1993, 1994, 1995, 2000, 2001 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: RMS | 5 ;; Author: RMS |
| 6 ;; Maintainer: FSF | 6 ;; Maintainer: FSF |
| 7 ;; Keywords: internal, mouse | 7 ;; Keywords: internal, mouse |
| 8 | 8 |
| 990 (interactive) | 990 (interactive) |
| 991 (switch-to-buffer last-command-event)) | 991 (switch-to-buffer last-command-event)) |
| 992 | 992 |
| 993 (defun menu-bar-select-frame () | 993 (defun menu-bar-select-frame () |
| 994 (interactive) | 994 (interactive) |
| 995 (make-frame-visible last-command-event) | 995 (let (frame) |
| 996 (raise-frame last-command-event) | 996 (dolist (f (frame-list)) |
| 997 (select-frame last-command-event)) | 997 (when (equal last-command-event (frame-parameter f 'name)) |
| 998 (setq frame f))) | |
| 999 (make-frame-visible frame) | |
| 1000 (raise-frame frame) | |
| 1001 (select-frame frame))) | |
| 998 | 1002 |
| 999 (defun menu-bar-update-buffers-1 (elt) | 1003 (defun menu-bar-update-buffers-1 (elt) |
| 1000 (cons (format | 1004 (cons (format |
| 1001 (format "%%%ds %%s%%s %%s" menu-bar-update-buffers-maxbuf) | 1005 (format "%%%ds %%s%%s %%s" menu-bar-update-buffers-maxbuf) |
| 1002 (cdr elt) | 1006 (cdr elt) |
| 1120 (cons 'keymap | 1124 (cons 'keymap |
| 1121 (cons "Select Frame" | 1125 (cons "Select Frame" |
| 1122 (mapcar | 1126 (mapcar |
| 1123 (lambda (frame) | 1127 (lambda (frame) |
| 1124 (nconc | 1128 (nconc |
| 1125 (list frame | 1129 (list (frame-parameter frame 'name) |
| 1126 (frame-parameter frame 'name) | 1130 (frame-parameter frame 'name) |
| 1127 (cons nil nil)) | 1131 (cons nil nil)) |
| 1128 'menu-bar-select-frame)) | 1132 'menu-bar-select-frame)) |
| 1129 frames))))) | 1133 frames))))) |
| 1130 ;; Put it underneath the Buffers menu. | 1134 ;; Put it underneath the Buffers menu. |