full scree emacs

gistfile1.el

;; =======================================
;; Full Screen
(defun toggle-fullscreen (&optional f)
  (interactive)
  (let ((current-value (frame-parameter nil 'fullscreen)))
    (set-frame-parameter nil 'fullscreen
                         (if (equal 'fullboth current-value)
                             (if (boundp 'old-fullscreen) old-fullscreen nil)
                           (progn (setq old-fullscreen current-value)
                                  'fullboth)))))
(global-set-key [(ctrl f2)] 'toggle-fullscreen)
(add-hook 'after-make-frame-functions 'toggle-fullscreen)
;; =======================================