From b3f47cbf7cd2d5fb2fec229597e111780e9af2c5 Mon Sep 17 00:00:00 2001 From: syl20bnr Date: Thu, 10 Jul 2014 23:52:39 -0400 Subject: [PATCH] Clean toggle-fullscreen function --- my-funcs.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/my-funcs.el b/my-funcs.el index 2ee74c5b4..604d45008 100644 --- a/my-funcs.el +++ b/my-funcs.el @@ -422,9 +422,11 @@ kill internal buffers too." ) (defun toggle-fullscreen () - "Toggle full screen" + "Toggle full screen on X11" (interactive) - (set-frame-parameter nil 'fullscreen - (when (not (frame-parameter nil 'fullscreen)) 'fullboth))) + (when (or (eq window-system 'x) (eq window-system 'mac)) + (set-frame-parameter + nil 'fullscreen + (when (not (frame-parameter nil 'fullscreen)) 'fullboth)))) (provide 'my-funcs)