From 2fcfcbd9b0cc9650ce01bab3b055bcedebb25c4d Mon Sep 17 00:00:00 2001 From: Lars Tveito Date: Thu, 29 Nov 2018 23:46:40 +0100 Subject: [PATCH] Fix #7 --- try.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/try.el b/try.el index 5b81ead..27ea2cd 100644 --- a/try.el +++ b/try.el @@ -36,9 +36,6 @@ (require 'package) (require 'url) -(defvar try-tmp-dir (make-temp-file "try" t) - "A temporary directory for storing packages.") - (defun try-raw-link-p (url) "Returns non-nil if this looks like an URL to a .el file." (string-match-p "[^:]*://\\([^?\r\n]+\\).*\.el?$" url)) @@ -87,11 +84,12 @@ to a raw .el file. Packages are stored in `try-tmp-dir' and raw (package-symbol (intern url-or-package))) (cond ((try-raw-link-p url-or-package) (try-raw-link url-or-package)) ((try-package-exists-p package-symbol) - (let ((package-user-dir try-tmp-dir) - (package-alist nil)) + (let* ((tmp-dir (make-temp-file (concat url-or-package "-") t)) + (package-user-dir tmp-dir) + (package-alist nil)) (if (version< emacs-version "25.1") (package-install package-symbol) - (package-install package-symbol 'dont-select)) + (package-install package-symbol 'dont-select)) (message "Trying %s!" url-or-package))) (t (message (concat "Couldn't find a sensible way to try this. " "Try running `package-refresh-contents'!"))))))