[no subject]

  ;;; After cycling between windows, warp the cursor to the window with
  ;;; input focus.
  ;;;

  (setq warp-to-window-enabled t)

  (define-cycle-command 'cycle-windows-and-warp
    (lambda ()
      ((get 'cycle-windows 'command-fun))
      (warp-cursor-to-window (input-focus))))

  (setq warp-to-window-offset '(1 . -5))

  (bind-keys global-keymap "A-Tab" 'cycle-windows-and-warp)

Derek

-- 
Derek Upham
sand blarg net