From: Juri Linkov <juri@jurta.org>
Date: Thu, 15 Oct 2009 22:23:11 +0000 (+0000)
Subject: (menu-bar-file-menu): Convert `separator-exit'
X-Git-Tag: emacs-pretest-23.1.90~787
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03fb33cf7576802a484ce9c1bd339c66fa865606;p=emacs.git

(menu-bar-file-menu): Convert `separator-exit'
to the `menu-item' format.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bc7c881876a..eaec532355b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-10-15  Juri Linkov  <juri@jurta.org>
+
+	* menu-bar.el (menu-bar-file-menu): Convert `separator-exit'
+	to the `menu-item' format.
+
 2009-10-15  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-replace-environment-variables): Do not fail
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 5ba4b24f88a..0a4fb9381ae 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -68,7 +68,7 @@
 	      :help ,(purecopy "Save unsaved buffers, then exit")))
 
 (define-key menu-bar-file-menu [separator-exit]
-  (purecopy '("--")))
+  `(menu-item ,(purecopy "--")))
 
 ;; Don't use delete-frame as event name because that is a special
 ;; event.