diff options
| author | Richard M. Stallman | 1994-10-10 21:47:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-10-10 21:47:33 +0000 |
| commit | ca1a9692de2d09a25792e6bb478db813131b5c7f (patch) | |
| tree | b32fa3d7e367d0b23baa54804e574731490e2be9 | |
| parent | 1da3ef65ff3eafe0769d3ae42168648a75c66acd (diff) | |
| download | emacs-ca1a9692de2d09a25792e6bb478db813131b5c7f.tar.gz emacs-ca1a9692de2d09a25792e6bb478db813131b5c7f.zip | |
(menu-bar-file-menu): Don't include the frame
commands in a non-frame version of Emacs.
| -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 1a8cbfea12e..45a880a8468 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -57,11 +57,15 @@ | |||
| 57 | (define-key menu-bar-file-menu [rmail] '("Read Mail" . rmail)) | 57 | (define-key menu-bar-file-menu [rmail] '("Read Mail" . rmail)) |
| 58 | (define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus)) | 58 | (define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus)) |
| 59 | 59 | ||
| 60 | (define-key menu-bar-file-menu [separator-frames] | 60 | (if (fboundp 'delete-frame) |
| 61 | '("--")) | 61 | (progn |
| 62 | 62 | (define-key menu-bar-file-menu [separator-frames] | |
| 63 | (define-key menu-bar-file-menu [delete-frame] '("Delete Frame" . delete-frame)) | 63 | '("--")) |
| 64 | (define-key menu-bar-file-menu [make-frame] '("Make New Frame" . make-frame)) | 64 | |
| 65 | (define-key menu-bar-file-menu [delete-frame] | ||
| 66 | '("Delete Frame" . delete-frame)) | ||
| 67 | (define-key menu-bar-file-menu [make-frame] | ||
| 68 | '("Make New Frame" . make-frame)))) | ||
| 65 | 69 | ||
| 66 | (define-key menu-bar-file-menu [separator-buffers] | 70 | (define-key menu-bar-file-menu [separator-buffers] |
| 67 | '("--")) | 71 | '("--")) |