| | 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) |
projects / wxWidgets.git / blame_incremental