Report the pkg-dir not writable
authorNelson Ferreira <nelson.ferreira@ieee.org>
Fri, 10 Apr 2020 22:33:18 +0000 (18:33 -0400)
committerNelson Ferreira <nelson.ferreira@ieee.org>
Fri, 10 Apr 2020 22:33:18 +0000 (18:33 -0400)
* lisp/package-admin(package-admin-get-install-dir): Add pkg-dir
to message asking to use local directory

lisp/package-admin.el

index 8b8112f..a69652e 100644 (file)
@@ -314,8 +314,8 @@ all else fails.  As a side effect of installing packages under
              ;; Oh no!  Either we still haven't found a suitable
              ;; directory, or we can't write to the one we did find.
              ;; Drop back to the `user-packages-topdir'.
-             (if (y-or-n-p (format "Directory isn't writable, use %s instead? "
-                                   user-packages-topdir))
+             (if (y-or-n-p (format "Directory %s isn't writable, use %s instead? "
+                                   pkg-dir user-packages-topdir))
                  (progn
                    (cond ((equal type "site")
                           (setq pkg-dir (package-admin-find-top-directory 'site 'user-dir)))