branch: elpa-admin
commit d0cae445c805d3ba512e05683a88e7d482d60ddb
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@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
