I'm trying to write a function such that when you use it, all the
windows on the current frame will be deleted, and for each deleted
window, a new frame will be created, displaying the same buffer that
the just-deleted window had been displaying. When it is finished
running, the original frame/window should still be on top (/in
focus/active/however you say it).

This is what I have so far:

(defun windows-into-frames ()
"If the current frame has more than one window,
make each window display in its own
seperate frame."
(interactive)
(setq original-frame (selected-frame))
(while (not (one-window-p t))
(other-window 1)
(make-frame)
(delete-window)
(select-frame original-frame)))

Maybe you function encounter some error, because original-frame always
have many windows,
and should use selected-frame-set-input-focus finally.

(defun windows-into-frames ()
"If the current frame has more than one window,
make each window display in its own
seperate frame."
(interactive)
(let ((original-frame (selected-frame))
(original-window (selected-window)))
(dolist (win (window-list))
(when (not (eq win original-window))
(select-window win)
(make-frame)
(select-frame original-frame)))
(select-frame-set-input-focus original-frame)
(select-window original-window)))

On Mon, 28 Aug 2006 11:17:44 +0800, gmail.com> wrote:

;;; where does the value of 'selected-frame come from???
;;; maybe try (last (frames-on-display-list)) or maybe car??

"Ye Wenbin" 163.com> writes:

Ehud Karni wrote: