emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/exwm c1b6a29 3/6: Shrink Emacs frames with X request


From: Chris Feng
Subject: [elpa] externals/exwm c1b6a29 3/6: Shrink Emacs frames with X request
Date: Mon, 16 Jul 2018 12:04:47 -0400 (EDT)

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

    Shrink Emacs frames with X request
    
    * exwm-manage.el (exwm-manage--on-ConfigureRequest): There's a problem
    in shrinking Emacs frames with `set-frame-width' and
    `set-frame-height'.  Use `exwm--set-geometry' instead.
---
 exwm-manage.el | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

diff --git a/exwm-manage.el b/exwm-manage.el
index ba5bc83..a0a9e05 100644
--- a/exwm-manage.el
+++ b/exwm-manage.el
@@ -597,18 +597,14 @@ border-width: %d; sibling: #x%x; stack-mode: %d"
         (if buffer
             (with-current-buffer buffer
               (exwm--log "ConfigureWindow (resize floating X window)")
-              (when (and (/= 0 (logand value-mask xcb:ConfigWindow:Width))
-                         (>= (abs width-delta) exwm-manage--width-delta-min))
-                (set-frame-width exwm--floating-frame
-                                 (+ (frame-pixel-width exwm--floating-frame)
-                                    width-delta)
-                                 nil t))
-              (when (and (/= 0 (logand value-mask xcb:ConfigWindow:Height))
-                         (>= (abs height-delta) exwm-manage--height-delta-min))
-                (set-frame-height exwm--floating-frame
+              (exwm--set-geometry (frame-parameter exwm--floating-frame
+                                                   'exwm-outer-id)
+                                  nil
+                                  nil
+                                  (+ (frame-pixel-width exwm--floating-frame)
+                                     width-delta)
                                   (+ (frame-pixel-height exwm--floating-frame)
-                                     height-delta)
-                                  nil t)))
+                                     height-delta)))
           (exwm--log "ConfigureWindow (preserve geometry)")
           ;; Configure the unmanaged window.
           ;; But Emacs frames should be excluded.  Generally we don't



reply via email to

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