🚀 go-pugleaf

	In article <9104081703.AA21554@avenger.think.com>, rad@THINK.COM (Bob Doolittle) writes:
	> The first thing that I noticed is the "auto-raise-screen" feature.
	> Is there some good reason that this was built into Epoch?
	
	This feature is very useful to those of us who switch screens using
	keystrokes instead of the mouse, e.g. through ^Z-4-b or ^Z-4-f.
	
However you switch screens, your window manager will see an "Enter" event
when the mouse enters the X window.  It can then perform the auto-raise,
should you so desire.  It should be left up to the window manager.  Having
each client specify it in non-standard and incompatable ways only leads to
confusion, I'm afraid.

P.S.  If you *do* like auto-raise, the function cursor-to-screen should
deiconify the window (if necessary) when it warps the cursor, otherwise you
get strange behavior (cursors warping to empty space).  Here is a modified
cursor-to-screen for those of you who like this feature.

(defun cursor-to-screen (scr)
  (interactive)
  (when auto-raise-screen
    (if (not (nth 6 (epoch::screen-information)))
	(epoch::iconify-screen scr))
    (raise-screen scr))
  (epoch::warp-mouse (/ (epoch::screen-width scr) 2) 0 scr))