"Pop" une fenêtre dans un cadre

Souvent, mes fenêtres sont automatiquement divisées jusqu'à ce que je décide arbitrairement que le cadre actuel n'a pas assez de biens immobiliers pour toutes. Lorsque cela se produit, je supprime manuellement une fenêtre, crée un cadre et bascule vers cette fenêtre supprimée. Comment puis-je écrire une fonction elisp qui fait cela?

J'ai essayé:

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

Mais pour une raison quelconque, cela ne fait pas ce que je pense qu'il devrait.

Essayez plutôt ceci:

(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)))))

Cette commande, ainsi que la suivante, qui ne fait rien si la fenêtre sélectionnée est seule dans son cadre, sont disponibles dans la bibliothèque 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)))