[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master d18d4a3: * admin/archive-contents.el: Unbreak elpa.gnu.org
From: |
Stefan Monnier |
Subject: |
[elpa] master d18d4a3: * admin/archive-contents.el: Unbreak elpa.gnu.org build |
Date: |
Wed, 26 Jun 2019 14:15:17 -0400 (EDT) |
branch: master
commit d18d4a380ff325e6411c8477e5df475e7182c6e9
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master d18d4a3: * admin/archive-contents.el: Unbreak elpa.gnu.org build,
Stefan Monnier <=