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

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

[elpa] externals/xelb 11005f2 10/42: Fix ch11ng/exwm#16 (cursor size not


From: Chris Feng
Subject: [elpa] externals/xelb 11005f2 10/42: Fix ch11ng/exwm#16 (cursor size not matching)
Date: Thu, 17 Sep 2015 23:16:40 +0000

branch: externals/xelb
commit 11005f2e0fa3ccc04c546ab99c67e64f73287820
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Fix ch11ng/exwm#16 (cursor size not matching)
---
 xcb-cursor.el |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/xcb-cursor.el b/xcb-cursor.el
index beb6964..5579fff 100644
--- a/xcb-cursor.el
+++ b/xcb-cursor.el
@@ -251,9 +251,8 @@
                   (with-temp-buffer
                     (set-buffer-multibyte nil)
                     (insert-file-contents path) (buffer-string))))
-          (best-size 0)
           xcb:lsb                       ;override global byte order
-          chunks
+          best-size chunks
           magic file-header file-header-toc chunk-header chunk)
       ;; Determine byte order
       (setq magic (substring data 0 4))
@@ -281,8 +280,9 @@
                   (when (= target subtype)
                     (setq best-size target)
                     (throw 'break nil))
-                  (when (> (abs (- target best-size))
-                           (abs (- target subtype)))
+                  (when (or (not best-size)
+                            (> (abs (- target best-size))
+                               (abs (- target subtype))))
                     (setq best-size subtype)))))))
         ;; Collect chunks fitting this size
         (setq chunk-header (make-instance 'xcb:cursor:-file-chunk-header))



reply via email to

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