From 8fda4824261d84d6bd59af465b46cc804c9df4e7 Mon Sep 17 00:00:00 2001 From: Donald Ephraim Curtis Date: Sat, 21 Jan 2012 23:44:24 -0600 Subject: [PATCH] force pkg name to be lowercase --- package-build.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/package-build.el b/package-build.el index 3b820a66..78739912 100644 --- a/package-build.el +++ b/package-build.el @@ -275,6 +275,7 @@ (setq pkg-info (vector file-name nil "No description available." version))) (aset pkg-info 3 version) + (aset pkg-info 0 (downcase (aref pkg-info 0))) (print pkg-info) (if (file-exists-p pkgdst) (delete-file pkgdst t)) @@ -303,6 +304,7 @@ (vector file-name nil "No description available." version))) (aset pkg-info 3 version) + (aset pkg-info 0 (downcase (aref pkg-info 0))) (print pkg-info) (package-build-pkg-file (expand-file-name pkg-file