🚀 go-pugleaf

I'm using epoch with twm.  In my .twmrc file I have WarpCursor
set.  So, when a window is mapped, the cursor is automatically warped
to that window.

Nonetheless, from epoch, I'd like to map a screen without this
automatic warping.   Could anyone suggest a means?

I tried to do this by first mapping a screen (called `scr'), then
returning the cursor to the original screen (called `curr-scr') ---

   (let ((curr-scr (current-screen)))
        (on-map-do scr
             (function (lambda (s) (cursor-to-screen curr-scr)))))
   (map-screen scr)

but the cursor ends up in scr, not in the original screen, curr-scr.

    Thanks,

    Dan Friedan
    friedan@physics.rutgers.edu