diff options
| -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 | '("--")) |