1 (defvar ssh-agent-auth-sock-link "~/.ssh/ssh_auth_sock")
3 (defun g0dil-set-ssh-agent()
4 (message "SSH_AUTH_SOCK set to %s" ssh-agent-auth-sock-link)
5 (setenv "SSH_AUTH_SOCK" (expand-file-name ssh-agent-auth-sock-link)))
7 (defun g0dil-x2go-fix-ssh-agent ()
8 (let ((agent (getenv "SSH_AUTH_SOCK")))
9 (if (and agent (string-match "^.*/\.x2go/.*/ssh-agent.PID" agent))
10 (g0dil-set-ssh-agent))))
12 (defun g0dil-fix-ssh-agent ()
13 (if (file-exists-p ssh-agent-auth-sock-link)
14 (g0dil-set-ssh-agent)))