Report the pkg-dir not writable

	* lisp/package-admin(package-admin-get-install-dir): Add pkg-dir
	to message asking to use local directory

diff --git a/lisp/package-admin.el b/lisp/package-admin.el
index 8b8112f..a69652e 100644 (file)
--- a/lisp/package-admin.el
+++ b/lisp/package-admin.el
@@ -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'.
              ;; 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)))
                  (progn
                    (cond ((equal type "site")
                           (setq pkg-dir (package-admin-find-top-directory 'site 'user-dir)))