* lisp/package-admin(package-admin-get-install-dir): Add pkg-dir
to message asking to use local directory
;; 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)))