maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor fixes for emacsclient

Browse source
This commit is contained in:
Chris Feng 2015-08-13 07:54:19 +08:00
parent 04e4269617
commit 35560a49d6
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
exwm-input.el
View file

@ -175,8 +175,8 @@ It's updated in several occasions, and only used by `exwm-input--set-focus'.")
;; Resize
(exwm-floating--start-moveresize event))
(t
(select-window (get-buffer-window (exwm--id->buffer event)
'visible))
;; Click to focus
(select-window (get-buffer-window (exwm--id->buffer event) t))
;; The event should be replayed
(setq mode xcb:Allow:ReplayPointer))))
(xcb:+request exwm--connection

6
exwm.el
View file

@ -590,6 +590,7 @@
(if (not (eq 'x (framep (or frame (selected-frame)))))
(exwm--log "Not running under X environment")
(unless exwm--connection
(exwm-enable 'undo) ;never initialize again
(setq exwm--connection (xcb:connect-to-socket))
(set-process-query-on-exit-flag (slot-value exwm--connection 'process)
nil) ;prevent query message on exit
@ -604,7 +605,6 @@
;; Other window manager is running
(progn (xcb:disconnect exwm--connection)
(setq exwm--connection nil)
(exwm-enable 'undo)
(exwm--log "Other window manager detected"))
;; Initialize ICCCM/EWMH support
;; (xcb:icccm:init exwm--connection)
@ -694,11 +694,11 @@
(defun exwm-enable (&optional undo)
"Enable/Disable EXWM"
(setq frame-resize-pixelwise t) ;mandatory; before init
(if (eq undo 'undo)
(progn (remove-hook 'window-setup-hook 'exwm-init)
(remove-hook 'after-make-frame-functions 'exwm-init))
(add-hook 'window-setup-hook 'exwm-init t) ;for Emacs
(setq frame-resize-pixelwise t) ;mandatory; before init
(add-hook 'window-setup-hook 'exwm-init t) ;for Emacs
(add-hook 'after-make-frame-functions 'exwm-init t))) ;for Emacs Client
(defun exwm--ido-buffer-window-other-frame (orig-fun buffer)