Mercurial > emacs
comparison lisp/term/x-win.el @ 83639:b9b616870be8
(x-menu-bar-open): Use accelerate-menu.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 02 Jul 2007 02:39:53 +0000 |
| parents | 9c01792a3ce8 |
| children | fd5b4a865d1d |
comparison
equal
deleted
inserted
replaced
| 83638:38ddb24da427 | 83639:b9b616870be8 |
|---|---|
| 2409 (yank))) | 2409 (yank))) |
| 2410 | 2410 |
| 2411 (defun x-menu-bar-open (&optional frame) | 2411 (defun x-menu-bar-open (&optional frame) |
| 2412 "Open the menu bar if `menu-bar-mode' is on. otherwise call `tmm-menubar'." | 2412 "Open the menu bar if `menu-bar-mode' is on. otherwise call `tmm-menubar'." |
| 2413 (interactive "i") | 2413 (interactive "i") |
| 2414 (if menu-bar-mode (menu-bar-open frame) | 2414 (if menu-bar-mode (accelerate-menu frame) |
| 2415 (tmm-menubar))) | 2415 (tmm-menubar))) |
| 2416 | 2416 |
| 2417 | 2417 |
| 2418 ;;; Window system initialization. | 2418 ;;; Window system initialization. |
| 2419 | 2419 |