From 1abba58332b573e5bd9839afde775255475dffad Mon Sep 17 00:00:00 2001 From: Fidel Ramos Date: Fri, 26 Jul 2013 14:17:34 +0200 Subject: [PATCH] Restrict fullscreen feature to X-based systems. Recent Emacs in OSX already comes with fullscreen support. --- core/prelude-core.el | 16 ++++++++++------ core/prelude-global-keybindings.el | 3 --- 2 files changed, 10 insertions(+), 9 deletions(-) diff --git a/core/prelude-core.el b/core/prelude-core.el index b14c55f..026ca2c 100644 --- a/core/prelude-core.el +++ b/core/prelude-core.el @@ -514,13 +514,17 @@ With numeric prefix arg DEC, decrement the integer by DEC amount." (interactive "p") (prelude-increment-integer-at-point (- (or dec 1)))) -(defun prelude-fullscreen () - "Makes Emacs window fullscreen. +;;; Emacs in OSX already has fullscreen support +(when (eq window-system 'x) + (defun prelude-fullscreen () + "Makes Emacs window fullscreen. -This follows freedesktop standards." - (interactive) - (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 - '(2 "_NET_WM_STATE_FULLSCREEN" 0))) +This follows freedesktop standards, should work in X servers." + (interactive) + (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 + '(2 "_NET_WM_STATE_FULLSCREEN" 0))) + (global-set-key (kbd "") 'prelude-fullscreen) +) (provide 'prelude-core) ;;; prelude-core.el ends here diff --git a/core/prelude-global-keybindings.el b/core/prelude-global-keybindings.el index db959f4..2cbff9b 100644 --- a/core/prelude-global-keybindings.el +++ b/core/prelude-global-keybindings.el @@ -96,9 +96,6 @@ ;; replace buffer-menu with ibuffer (global-set-key (kbd "C-x C-b") 'ibuffer) -;; make window fullscreen -(global-set-key (kbd "") 'prelude-fullscreen) - ;; toggle menu-bar visibility (global-set-key (kbd "") 'menu-bar-mode)