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/term | |
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/term')
-rw-r--r-- | lisp/term/ns-win.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index bc9cab375bf..fc15d2dff12 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -899,6 +899,20 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") (x-open-connection (system-name) nil t) + ;; Add GNUStep menu items Services, Hide and Quit. + (if (featurep 'gnustep) + (progn + (setq menu-bar-final-items '(buffer services hide-app quit)) + (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")) + (bindings--define-key global-map [menu-bar services] + (cons "Services" (make-sparse-keymap "Services"))))) + + (dolist (service (ns-list-services)) (if (eq (car service) 'undefined) (ns-define-service (cdr service)) |