[elpa] elpa-admin d0cae44 318/357: * admin/archive-contents.el: Unbreak elpa.gnu.org build

[Stefan Monnier]

branch: elpa-admin
commit d0cae445c805d3ba512e05683a88e7d482d60ddb
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * admin/archive-contents.el: Unbreak elpa.gnu.org build
    
    (archive--core-package-link-file): Only use file-name-quote when available.
---
 admin/archive-contents.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index a252110..914c68f 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -775,8 +775,9 @@ If WITH-CORE is non-nil, it means we manage :core packages 
as well."
             (expand-file-name dest package-root))
            (absolute-core-file-name
             (expand-file-name source emacs-repo-root))
-           (directory
-           (file-name-quote (file-name-directory absolute-package-file-name))))
+           (directory (file-name-directory absolute-package-file-name)))
+      (when (fboundp 'file-name-quote)  ;Not yet available on elpa.gnu.org
+        (setq directory (file-name-quote directory)))
       (unless (file-directory-p directory)
         (make-directory directory t))
       (condition-case nil