diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2015-08-12T23·54+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2015-08-12T23·54+0800 |
| commit | 35560a49d6c03f96c1f62bfee72ee667cffadb9e (patch) | |
| tree | b4921d7a91147186028fc810209e489141878a13 | |
| parent | 04e426961736c67046fa3809fc14f1ac027dae77 (diff) | |
Minor fixes for emacsclient
| -rw-r--r-- | exwm-input.el | 4 | ||||
| -rw-r--r-- | exwm.el | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/exwm-input.el b/exwm-input.el index 454521f09483..b9a5f206e799 100644 --- a/exwm-input.el +++ b/exwm-input.el @@ -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 diff --git a/exwm.el b/exwm.el index 989bf88156b5..d33ab2619044 100644 --- a/exwm.el +++ b/exwm.el @@ -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) |