(menu-bar-file-menu): Convert `separator-exit'

to the `menu-item' format.

(menu-bar-file-menu): Convert `separator-exit'
to the `menu-item' format.
03fb33cf · Juri Linkov · edd6a733 · 03fb33cf · 03fb33cf
Commit 03fb33cf authored Oct 15, 2009 by Juri Linkov
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/menu-bar.el lisp/menu-bar.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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

--- 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.