Re: Make raise-frame work on Cygwin

[Katsumi Yamaoka]

Katsumi Yamaoka wrote:
>> (defadvice raise-frame (before make-it-work (&optional frame) activate)
>>   "Make it work on Cygwin."
>>   (when frame (make-frame-invisible frame)))

> Some program tries to raise the selected frame even if it is
> the sole one, so this should be turned into:

> (defadvice raise-frame (before make-it-work (&optional frame) activate)
>   "Make it work on Cygwin."
>   (when (and frame (not (eq frame (selected-frame))))
>     (make-frame-invisible frame)))

Sorry for the noises.  Here is the third time lucky:

(defadvice raise-frame (before make-it-work (&optional frame) activate)
  "Make it work on Cygwin."
  (when (and frame (cdr (frame-list)))
    (make-frame-invisible frame)))

This works with `select-frame-set-input-focus'.