[elpa] externals/xelb 05e35bd 2/2: Improve performance of `xcb:create-auth-info'

[Chris Feng]

branch: externals/xelb
commit 05e35bd9413f460e37dd43349f219d25a5a3cdfc
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Improve performance of `xcb:create-auth-info'
    
    * xcb.el (xcb:create-auth-info): Improve performance.
---
 xcb.el |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/xcb.el b/xcb.el
index 6cf9222..a03dbb4 100644
--- a/xcb.el
+++ b/xcb.el
@@ -170,11 +170,12 @@ equal.  Otherwise a negative value would be returned."
       (setq xauth-output (split-string xauth-output))
       (if (string= name (car (last xauth-output 2)))
           ;; The auth data is a 128-bit hex string.
-          (setq data
+          (setq data (car (last xauth-output))
+                data
                 (concat
                  (cl-loop for i in (number-sequence 0 30 2)
                           collect (string-to-number
-                                   (substring (car (last xauth-output))
+                                   (substring data
                                               i (+ i 2))
                                    16))))
         ;; No xauth entry available.