setup/x2go-hack.el

   1 (defvar ssh-agent-auth-sock-link "~/.ssh/ssh_auth_sock")
   2
   3 (defun g0dil-x2go-fix-ssh-agent ()
   4   (let ((agent (getenv "SSH_AUTH_SOCK")))
   5     (if (string-match "^.*/\.x2go/.*/ssh-agent.PID" agent)
   6         (setenv "SSH_AUTH_SOCK" (expand-file-name ssh-agent-auth-sock-link)))))
   7
   8 (g0dil-x2go-fix-ssh-agent)