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 @@ (define-key menu-bar-file-menu [rmail] '("Read Mail" . rmail)) (define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus)) -(define-key menu-bar-file-menu [separator-frames] - '("--")) - -(define-key menu-bar-file-menu [delete-frame] '("Delete Frame" . delete-frame)) -(define-key menu-bar-file-menu [make-frame] '("Make New Frame" . make-frame)) +(if (fboundp 'delete-frame) + (progn + (define-key menu-bar-file-menu [separator-frames] + '("--")) + + (define-key menu-bar-file-menu [delete-frame] + '("Delete Frame" . delete-frame)) + (define-key menu-bar-file-menu [make-frame] + '("Make New Frame" . make-frame)))) (define-key menu-bar-file-menu [separator-buffers] '("--")) |