(menu-bar-file-menu): Don't include the frame

commands in a non-frame version of Emacs.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 1a8cbfea12eb33f078f6361fe0ab7007e60e6874..45a880a84688890620404d02822f0bd4dad8c05f 100644 (file)
--- 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]
   '("--"))