[elpa] externals/xelb 407cce8: Fix startup using non-posix shells

[Chris Feng]

branch: externals/xelb
commit 407cce8dd8b0e621449c6c3015c303539f53819b
Author: adisbladis <address@hidden>
Commit: adisbladis <address@hidden>

    Fix startup using non-posix shells
    
    * xcb.el (xcb:create-auth-info): Use lisp for string substitution instead 
of shell
---
 xcb.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/xcb.el b/xcb.el
index 7ed2d3e..a769d2f 100644
--- a/xcb.el
+++ b/xcb.el
@@ -147,7 +147,11 @@
 (defun xcb:create-auth-info ()
   "Create the default `auth-info'."
   (let ((xauth-output (shell-command-to-string
-                       "xauth list ${DISPLAY#localhost} 2>/dev/null"))
+                       (concat
+                        "xauth list "
+                        (replace-regexp-in-string "^localhost" ""
+                                                  (getenv "DISPLAY"))
+                        " 2>/dev/null")))
         (name "MIT-MAGIC-COOKIE-1") ;only support MIT-MAGIC-COOKIE-1 protocol.
         (data ""))
     (if (string= "" xauth-output)