branch: externals/xelb
commit 05e35bd9413f460e37dd43349f219d25a5a3cdfc
Author: Chris Feng <chris.w.f...@gmail.com>
Commit: Chris Feng <chris.w.f...@gmail.com>
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.
