Re: How about introducing a new frame parameter: topmost

[brianjiang]

> > If this parameter is true, the frame is shown as a TOPMOST window.
>              
> The tricky part is to coerce the window manager into agreeing
> with Emacs.  
>              
>              
>         Stefan

It is quit easy to implement it in Windows, simply calling WIN API SetWindowPos.

Currently, I actually implement it by defining a DEFUN w32-set-frame-topmost as follows. 

But I don't know whether we can implement the same thing in X-window system and MAC

system.

 

 

DEFUN("w32-set-frame-topmost", Fw32_set_frame_topmost,
      Sw32_set_frame_topmost, 0, 2, 0,
      doc: /* update later */)
     (frame, notopmost)
     Lisp_Object frame, notopmost;
{
  FRAME_PTR f = check_x_frame (frame);

 

  HWND hWndInsertAfter;

 

  if (NILP(notopmost))
    {
      hWndInsertAfter = HWND_TOPMOST;
    }
  else
    {
      hWndInsertAfter = HWND_NOTOPMOST;
    }
 
  SetWindowPos(FRAME_W32_WINDOW(f), hWndInsertAfter, 0, 0, 0, 0,
               SWP_NOMOVE|SWP_NOSIZE);
 
  return Qnil;
}