Clean toggle-fullscreen function
This commit is contained in:
parent
4332b9bd5e
commit
b3f47cbf7c
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue