Mercurial > emacs

changeset 9422:669208821120

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-file-menu): Don't include the frame commands in a non-frame version of Emacs.
author Richard M. Stallman <rms@gnu.org>
date Mon, 10 Oct 1994 21:47:33 +0000
parents 44ebc50db2c5
children 9076245a9fed
files lisp/menu-bar.el
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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]
   '("--"))