Re: Frame ordering

[David Reitter]

On Jun 11, 2010, at 1:13 PM, martin rudalics wrote:
> 
> I'd write a simple function to reorder frames, make it callable from
> Lisp, and test it from there first.

OK, that works. 
What next?
`handle-switch-frame' could be defined in Lisp anyway, calling the current 
Fhandle_switch_frame primitive.

That said, why did the same not work in do_switch_frame, and why did my other 
variant (that I posted) lead to hangs and crashes?



(global-set-key [switch-frame] 'my-handle-switch-frame)

(defun my-handle-switch-frame ( event)
  (interactive "e")
  (handle-switch-frame event)
  (set-latest-frame (selected-frame)))
  

DEFUN ("set-latest-frame", Fset_latest_frame, Sset_latest_frame, 1, 1, 0,
       doc: /* Make FRAME the last frame in the frame list. */)
     (frame)
     Lisp_Object frame;
{
  if (NILP (frame))
    frame = selected_frame;
  if (!FRAMEP (frame))
    return Qnil;
  Vframe_list = Fcons (frame, Fdelq (frame, Vframe_list));
  return Qnil;  /* don't return the new frame-list - see Fframe_list */
}