TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Clean toggle-fullscreen function

Browse source
This commit is contained in:
syl20bnr 2014-07-10 23:52:39 -04:00
parent 4332b9bd5e
commit b3f47cbf7c
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
my-funcs.el
View file

@ -422,9 +422,11 @@ kill internal buffers too."
) )
(defun toggle-fullscreen () (defun toggle-fullscreen ()
"Toggle full screen" "Toggle full screen on X11"
(interactive) (interactive)
(set-frame-parameter nil 'fullscreen (when (or (eq window-system 'x) (eq window-system 'mac))
(when (not (frame-parameter nil 'fullscreen)) 'fullboth))) (set-frame-parameter
nil 'fullscreen
(when (not (frame-parameter nil 'fullscreen)) 'fullboth))))
(provide 'my-funcs) (provide 'my-funcs)