From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 10 Oct 1994 21:47:33 +0000 (+0000)
Subject: (menu-bar-file-menu): Don't include the frame
X-Git-Tag: emacs-19.34~6432
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca1a9692de2d09a25792e6bb478db813131b5c7f;p=emacs.git

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