[Emacs] Pull frames-only functions to top level

dotfiles/emacs.d/README.org

@@ -1152,8 +1152,7 @@ programming mode.
 *** display-buffer-alist
 #+BEGIN_SRC emacs-lisp
 (defvar imalison:use-frames-only)
-(when imalison:use-frames-only
-  (setq pop-up-frames 'graphic-only)
+
 (defvar imalison:use-frames-only nil)
 
 (defun imalison:use-frames-only ()
@@ -1201,12 +1200,12 @@ programming mode.
       (apply 'other-frame args)
     (apply 'other-window args)))
 
+(when imalison:use-frames-only
+  (setq pop-up-frames 'graphic-only)
   (bind-key "C-c s" 'imalison:other-window-or-frame-next-command)
-
   (bind-key "C-x o" 'imalison:other-window)
   (bind-key "C-x 3" 'imalison:split-window-right)
   (bind-key "C-x O" (lambda () (interactive) (imalison:other-window -1)))
-
   (setq display-buffer-alist
         '((".*popup\*" . (display-buffer-pop-up-window))
           ;; XXX: This was a failed attempt to get magit-commit to properly use