about summary refs log tree commit diff
path: root/exwm-floating.el
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2016-07-21T04·41+0800
committerChris Feng <chris.w.feng@gmail.com>2016-07-21T04·41+0800
commit6571bb5761241be16c49f4b9af4314851b36eb18 (patch)
tree818ed75c0da826f0379d1145bd9147c549648706 /exwm-floating.el
parent3909f65bae17af118ea7b1acf714289b35ea1b3d (diff)
Minor cleanups
; Eliminate compile warnings.
; Rename frame parameter 'exwm--urgency' to 'exwm-urgency'.
; Simplify expressions.
Diffstat (limited to 'exwm-floating.el')
-rw-r--r--exwm-floating.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/exwm-floating.el b/exwm-floating.el
index 27a50169a1c7..7931c661c732 100644
--- a/exwm-floating.el
+++ b/exwm-floating.el
@@ -67,6 +67,7 @@
                                      xcb:Atom:_NET_WM_ACTION_CLOSE)))))
 
 (defvar exwm-workspace--current)
+(defvar exwm-workspace--struts)
 
 (declare-function exwm-layout--refresh "exwm-layout.el" ())
 (declare-function exwm-layout--show "exwm-layout.el" (id &optional window))
@@ -96,8 +97,7 @@
                      (height . ,window-min-height)
                      (unsplittable . t))))) ;and fix the size later
          (outer-id (string-to-number (frame-parameter frame 'outer-window-id)))
-         (container (with-current-buffer (exwm--id->buffer id)
-                      exwm--container))
+         (container (buffer-local-value 'exwm--container (exwm--id->buffer id)))
          (frame-container (xcb:generate-id exwm--connection))
          (window (frame-first-window frame)) ;and it's the only window
          (x (slot-value exwm--geometry 'x))
@@ -524,8 +524,8 @@
              ;; Unmanaged.
              (eq major-mode 'exwm-mode))
     (let ((edges (window-inside-absolute-pixel-edges (frame-selected-window)))
-          (id (with-current-buffer (window-buffer (frame-selected-window))
-                exwm--id)))
+          (id (buffer-local-value 'exwm--id
+                                  (window-buffer (frame-selected-window)))))
       (xcb:+request exwm--connection
           (make-instance 'xcb:SendEvent
                          :propagate 0 :destination id
@@ -570,7 +570,7 @@
       (setq container-or-id
             (if (bufferp buffer-or-id)
                 ;; Managed.
-                (with-current-buffer buffer-or-id exwm--container)
+                (buffer-local-value 'exwm--container buffer-or-id)
               ;; Unmanaged.
               buffer-or-id))
       (xcb:+request exwm--connection