Mercurial > emacs

comparison lisp/menu-bar.el @ 105619:00238321fb14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-file-menu): Convert `separator-exit' to the `menu-item' format.
author Juri Linkov <juri@jurta.org>
date Thu, 15 Oct 2009 22:23:11 +0000
parents 5dc7f749a684
children 6b8dce5c4461
comparison
equal deleted inserted replaced
105618:c9d8852e2d94 105619:00238321fb14
66 (define-key menu-bar-file-menu [exit-emacs] 66 (define-key menu-bar-file-menu [exit-emacs]
67 `(menu-item ,(purecopy "Quit") save-buffers-kill-terminal 67 `(menu-item ,(purecopy "Quit") save-buffers-kill-terminal
68 :help ,(purecopy "Save unsaved buffers, then exit"))) 68 :help ,(purecopy "Save unsaved buffers, then exit")))
69 69
70 (define-key menu-bar-file-menu [separator-exit] 70 (define-key menu-bar-file-menu [separator-exit]
71 (purecopy '("--"))) 71 `(menu-item ,(purecopy "--")))
72 72
73 ;; Don't use delete-frame as event name because that is a special 73 ;; Don't use delete-frame as event name because that is a special
74 ;; event. 74 ;; event.
75 (define-key menu-bar-file-menu [delete-this-frame] 75 (define-key menu-bar-file-menu [delete-this-frame]
76 `(menu-item ,(purecopy "Delete Frame") delete-frame 76 `(menu-item ,(purecopy "Delete Frame") delete-frame