🚀 go-pugleaf

I thought I should add my contribution to auto-raise issue. I have
redefined the select-screen function to read the auto-raise variable
as nil, t, 0, or 1. A value of t will auto-raise the screen and the
minibuffer. A value of 1 will only auto-raise the minibuffer. Since I
use twm and gwm as my window managers I leave window auto-raising to
them. If I want auto-raising I can turn it on and off at the window
manager level, while still retaining auto-raise control for the
minibuffer. This I can have some epoch windows auto-raise and some
not, all in the same epoch session. 

Here is the new select-screen, throw it in your .emacs <- epoch
startup.

Anthony
--
(defun select-screen (&optional scr)
  (interactive)
  (epoch::select-screen scr)
  (and auto-raise-screen
       (or (eq t auto-raise-screen) (eq 0 auto-raise-screen))
       (epoch::raise-screen 0))
  (and auto-raise-screen
       (or (eq t auto-raise-screen) (eq 1 auto-raise-screen))
       (raise-screen))
  (run-hooks '*select-screen-hook*))
--
Anthony Mutiso (anthony@cs.ualberta.ca)                Life-motto: Logic Rules.