From ca1a9692de2d09a25792e6bb478db813131b5c7f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 10 Oct 1994 21:47:33 +0000 Subject: [PATCH] (menu-bar-file-menu): Don't include the frame commands in a non-frame version of Emacs. --- lisp/menu-bar.el | 14 +++++++++----- 1 file 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] '("--")) -- 2.39.5