"Pop" uma janela em um quadro

Freqüentemente, minhas janelas são divididas automaticamente até que eu decida arbitrariamente que o quadro atual não tenha espaço suficiente para todas elas. Quando isso ocorre, excluo manualmente uma janela, crio um quadro e alterno para essa janela excluída. Como posso escrever uma função elisp que faz isso?

Eu tentei:

(defun pop-window-into-frame ()
  (interactive)
  (delete-window)
  (make-frame-command)
  (switch-to-prev-buffer))

Mas, por alguma razão, isso não faz o que eu acho que deveria.

Tente isso:

(defun my-turn-current-window-into-frame ()
  (interactive)
  (let ((buffer (current-buffer)))
    (unless (one-window-p)
      (delete-window))
    (display-buffer-pop-up-frame buffer nil)))

;; Inspired from `mouse-tear-off-window'.
(defun tear-off-window ()
  "Create a new frame displaying buffer of selected window.
    If window is not the only one in frame, then delete it.
    Otherwise, this command effectively clones the frame and window."
  (interactive)
  (let ((owin  (selected-window))
        (buf   (window-buffer))
        (fr    (make-frame)))
    (select-frame fr)
    (switch-to-buffer buf)
    (save-window-excursion 
      (select-window owin)
      (unless (one-window-p) (delete-window owin)))))

Este comando, assim como o seguinte, que não faz nada se a janela selecionada estiver sozinha em seu quadro, está disponível na biblioteca frame-cmds.el.

(defun tear-off-window-if-not-alone ()
  "Move selected window to a new frame, unless it is alone in its frame.
If it is alone, do nothing.  Otherwise, delete it and create a new
frame showing the same buffer."
  (interactive)
  (if (one-window-p 'NOMINI)
      (message "Sole window in frame")
    (tear-off-window)))