diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2015-08-17T09·47+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2015-08-17T09·47+0800 |
| commit | 7120291197fb5ceb032671ba02345d181c77399d (patch) | |
| tree | 9315c2b8a78cb8e5bc687552fc9e74fa0799786d /exwm-manage.el | |
| parent | d998b42b89bc9e248b6d2250c56ddd17ec4b17cf (diff) | |
| parent | d1806e91888cc2d56e252299d07cb6af05a3e9d0 (diff) | |
Merge branch 'pipcet-robustness'
Diffstat (limited to 'exwm-manage.el')
| -rw-r--r-- | exwm-manage.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/exwm-manage.el b/exwm-manage.el index ffe21e23e7ad..3274d65c177a 100644 --- a/exwm-manage.el +++ b/exwm-manage.el @@ -260,10 +260,9 @@ corresponding buffer.") "Kill an X client." (interactive) (unless id (setq id (exwm--buffer->id (current-buffer)))) - (let ((pid (slot-value - (xcb:+request-unchecked+reply exwm--connection - (make-instance 'xcb:ewmh:get-_NET_WM_PID :window id)) - 'value))) + (let* ((response (xcb:+request-unchecked+reply exwm--connection + (make-instance 'xcb:ewmh:get-_NET_WM_PID :window id))) + (pid (and response (slot-value response 'value)))) (if pid (signal-process pid 'SIGKILL) (xcb:+request exwm--connection |