Clean toggle-fullscreen function

2014-07-10 23:52:39 -04:00 · 2014-07-10 23:52:39 -04:00 · b3f47cbf7c
parent 4332b9bd5e
commit b3f47cbf7c
1 changed files with 5 additions and 3 deletions
--- 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)