X-Git-Url: http://g0dil.de/git?a=blobdiff_plain;f=setup%2Fx2go-hack.el;fp=setup%2Fx2go-hack.el;h=56ca33a681a8a2edff28fefe96e2f595f0f34f8a;hb=a95258bb6a7a2da895b116a83b3fac7bd33b1306;hp=0000000000000000000000000000000000000000;hpb=98380054b168815e3f2fbb62aea13a95c0c316fd;p=emacs-init.git

diff --git a/setup/x2go-hack.el b/setup/x2go-hack.el
new file mode 100644
index 0000000..56ca33a
--- /dev/null
+++ b/setup/x2go-hack.el
@@ -0,0 +1,8 @@
+(defvar ssh-agent-auth-sock-link "~/.ssh/ssh_auth_sock")
+
+(defun g0dil-x2go-fix-ssh-agent ()
+  (let ((agent (getenv "SSH_AUTH_SOCK")))
+    (if (string-match "^.*/\.x2go/.*/ssh-agent.PID" agent)
+        (setenv "SSH_AUTH_SOCK" (expand-file-name ssh-agent-auth-sock-link)))))
+
+(g0dil-x2go-fix-ssh-agent)