# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 781825653 0
# Node ID 66920882112044e9afa91b4cdbe51d7efdf59f31
# Parent  44ebc50db2c5065a74ada5cf81a316cc72fa95f1
(menu-bar-file-menu): Don't include the frame
commands in a non-frame version of Emacs.

diff -r 44ebc50db2c5 -r 669208821120 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Mon Oct 10 21:35:16 1994 +0000
+++ b/lisp/menu-bar.el	Mon Oct 10 21:47:33 1994 +0000
@@ -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]
-  '("--"))
+(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 [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]
   '("--"))