[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/exwm 35560a4 30/64: Minor fixes for emacsclient

From: Chris Feng
Subject: [elpa] externals/exwm 35560a4 30/64: Minor fixes for emacsclient
Date: Thu, 17 Sep 2015 23:18:00 +0000

branch: externals/exwm
commit 35560a49d6c03f96c1f62bfee72ee667cffadb9e
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Minor fixes for emacsclient
 exwm-input.el |    4 ++--
 exwm.el       |    6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/exwm-input.el b/exwm-input.el
index 454521f..b9a5f20 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -175,8 +175,8 @@ It's updated in several occasions, and only used by 
              ;; Resize
              (exwm-floating--start-moveresize event))
-             (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 989bf88..d33ab26 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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]