"Pop" una ventana en un marco

A menudo, mis ventanas se dividen automáticamente hasta que decido arbitrariamente que el marco actual no tiene suficiente espacio para todos. Cuando esto ocurre, elimino manualmente una ventana, creo un marco y cambio a esa ventana eliminada. ¿Cómo puedo escribir una función elisp que haga esto?

Lo intenté:

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

Pero por alguna razón, esto no hace lo que creo que debería.

Intenta esto en su lugar:

(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, así como el siguiente, que no hace nada si la ventana seleccionada está sola en su marco, están disponibles en la 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)))