# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 816073565 0
# Node ID 6360f55430714171f43256d571e1b2c22533fe35
# Parent  86470b3615713406514fae61271530b52246a253
(delete-frame): Don't use delete-frame as event name.

diff -r 86470b361571 -r 6360f5543071 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Sat Nov 11 05:33:37 1995 +0000
+++ b/lisp/menu-bar.el	Sat Nov 11 07:06:05 1995 +0000
@@ -100,7 +100,9 @@
 
 (if (fboundp 'delete-frame)
     (progn
-      (define-key menu-bar-files-menu [delete-frame]
+      ;; Don't use delete-frame as event name
+      ;; because that is a special event.
+      (define-key menu-bar-files-menu [delete-this-frame]
 	'("Delete Frame" . delete-frame))
       (define-key menu-bar-files-menu [make-frame-on-display]
 	'("Open New Display..." . make-frame-on-display))