Use xcb:connect' instead of xcb:connect-to-socket'

* exwm.el (exwm-init):
* exwm-systemtray.el (exwm-systemtray--init):
Use `xcb:connect' instead of `xcb:connect-to-socket'.
This commit is contained in:
Chris Feng 2016-05-13 00:11:12 +08:00
parent 009854e766
commit 2dcb26ce9d
2 changed files with 2 additions and 2 deletions

View file

@ -306,7 +306,7 @@ You shall use the default value if using auto-hide minibuffer.")
(setq exwm-systemtray-height (max exwm-systemtray--icon-min-size (setq exwm-systemtray-height (max exwm-systemtray--icon-min-size
(line-pixel-height)))) (line-pixel-height))))
;; Create a new connection. ;; Create a new connection.
(setq exwm-systemtray--connection (xcb:connect-to-socket)) (setq exwm-systemtray--connection (xcb:connect))
(set-process-query-on-exit-flag (slot-value exwm-systemtray--connection (set-process-query-on-exit-flag (slot-value exwm-systemtray--connection
'process) 'process)
nil) nil)

View file

@ -481,7 +481,7 @@
(exwm--log "Not running under X environment") (exwm--log "Not running under X environment")
(unless exwm--connection (unless exwm--connection
(exwm-enable 'undo) ;never initialize again (exwm-enable 'undo) ;never initialize again
(setq exwm--connection (xcb:connect-to-socket)) (setq exwm--connection (xcb:connect))
(set-process-query-on-exit-flag (slot-value exwm--connection 'process) (set-process-query-on-exit-flag (slot-value exwm--connection 'process)
nil) ;prevent query message on exit nil) ;prevent query message on exit
(setq exwm--root (setq exwm--root