diff options
| author | Jan Djärv <jan.h.d@swipnet.se> | 2013-10-20 10:50:34 +0200 |
|---|---|---|
| committer | Jan Djärv <jan.h.d@swipnet.se> | 2013-10-20 10:50:34 +0200 |
| commit | aca5fcdc4c8f4d77d1408adec856356257cdaf19 (patch) | |
| tree | a7334b9f4dc2eff797a288c63974a761f477b735 /lisp/menu-bar.el | |
| parent | 914b7f980836564c0a53c3573f26790a087686f3 (diff) | |
| download | emacs-aca5fcdc4c8f4d77d1408adec856356257cdaf19.tar.gz | |
Fix GNUStep specific menu items.
* lisp/menu-bar.el: Move GNUStep specific menus...
* lisp/term/ns-win.el (ns-initialize-window-system): ... to here.
* src/nsterm.m (Qcocoa, Qgnustep): New variables.
(syms_of_nsterm): Defsym Qcocoa, Qgnustep. Fprovide appropriate one.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index da80db00910..7c648df36fd 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -44,17 +44,7 @@ ;; Force Help item to come last, after the major mode's own items. ;; The symbol used to be called `help', but that gets confused with the ;; help key. - (setq menu-bar-final-items '(help-menu)) - (if (eq system-type 'darwin) - (setq menu-bar-final-items '(buffer services help-menu)) - (setq menu-bar-final-items '(buffer services hide-app quit)) - ;; Add standard top-level items to GNUstep menu. - (bindings--define-key global-map [menu-bar quit] - '(menu-item "Quit" save-buffers-kill-emacs - :help "Save unsaved buffers, then exit")) - (bindings--define-key global-map [menu-bar hide-app] - '(menu-item "Hide" ns-do-hide-emacs - :help "Hide Emacs")))) + (setq menu-bar-final-items '(help-menu))) ;; This definition is just to show what this looks like. ;; It gets modified in place when menu-bar-update-buffers is called. |