Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix GNUStep specific menu items.

Browse source 
* 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.
This commit is contained in:
Jan Djärv 2013-10-20 10:50:34 +02:00
parent 914b7f9808
commit aca5fcdc4c
5 changed files with 33 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2013-10-20 Jan Djärv <jan.h.d@swipnet.se>
* menu-bar.el: Move GNUStep specific menus...
* term/ns-win.el (ns-initialize-window-system): ... to here.
2013-10-19 Stefan Monnier <monnier@iro.umontreal.ca>
* simple.el (newline): Only run post-self-insert-hook when

12
lisp/menu-bar.el
View file

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

14
lisp/term/ns-win.el
View file

@ -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))

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
2013-10-20 Jan Djärv <jan.h.d@swipnet.se>
* nsterm.m (Qcocoa, Qgnustep): New variables.
(syms_of_nsterm): Defsym Qcocoa, Qgnustep. Fprovide appropriate one.
2013-10-18 Eli Zaretskii <eliz@gnu.org>
* keyboard.c (make_lispy_event): Remove GPM-specific code that

7
src/nsterm.m
View file

@ -173,6 +173,7 @@ Updated by Christian Limpach (chris@nice.ch)
extern Lisp_Object Qcursor_color, Qcursor_type, Qns, Qleft;
static Lisp_Object QUTF8_STRING;
static Lisp_Object Qcocoa, Qgnustep;
/* On OS X picks up the default NSGlobalDomain AppleAntiAliasingThreshold,
the maximum font size to NOT antialias. On GNUstep there is currently
@ -7501,11 +7502,17 @@ Nil means use fullscreen the old (< 10.7) way. The old way works better with
/* Tell Emacs about this window system. */
Fprovide (Qns, Qnil);
DEFSYM (Qcocoa, "cocoa");
DEFSYM (Qgnustep, "gnustep");
syms_of_nsfont ();
#ifdef NS_IMPL_COCOA
Fprovide (Qcocoa, Qnil);
#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1050
syms_of_macfont ();
#endif
#else
Fprovide (Qgnustep, Qnil);
#endif
}