]>
Commit | Line | Data |
---|---|---|
1e4a197e RD |
1 | (require 'sawmill-defaults) |
2 | ||
3 | ;;; Define two hooks to reset focus behavior while mapping test window | |
4 | ||
5 | (define (xrced-match-window-before w) | |
6 | (setq prop (aref (get-x-text-property w 'WM_CLASS) 0)) | |
7 | (cond ((equal prop "_XRCED_T_W") | |
8 | (setq transients-get-focus-b transients-get-focus) | |
9 | (setq transients-get-focus nil) | |
10 | (setq focus-windows-when-mapped-b focus-windows-when-mapped) | |
11 | (setq focus-windows-when-mapped nil) | |
12 | ) | |
13 | ) | |
14 | ) | |
15 | (define (xrced-match-window-after w) | |
16 | (setq prop (aref (get-x-text-property w 'WM_CLASS) 0)) | |
17 | (cond ((equal prop "_XRCED_T_W") | |
18 | (setq transients-get-focus-b transients-get-focus-b) | |
19 | (setq focus-windows-when-mapped focus-windows-when-mapped-b) | |
20 | ) | |
21 | ) | |
22 | ) | |
23 | (add-hook 'map-notify-hook xrced-match-window-before) | |
24 | (add-hook 'map-notify-hook xrced-match-window-after 't) |