look for files whose names contain the full system-name

Fixes #2.
tarsius · Mar 7, 2015 · 40eba65 · 40eba65
1 parent e932738
commit 40eba65
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/keychain-environment.el b/keychain-environment.el
@@ -62,7 +62,7 @@ and GPG_AGENT in Emacs' `process-environment' according to
 information retrieved from files created by the keychain
 script."
   (interactive)
-  (let* ((host     (car (split-string system-name "\\." t)))
+  (let* ((host     (system-name))
          (ssh-file (expand-file-name (concat host "-sh")     keychain-directory))
          (gpg-file (expand-file-name (concat host "-sh-gpg") keychain-directory))
          (ssh-data (and (file-exists-p ssh-file) (keychain--read-file ssh-file)))