Re: Trying to write an emacs lisp function

[Ye Wenbin]

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, <jkarres@gmail.com> wrote:

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



--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/