Add case-insensitive compare for package name.

This makes it so single-file packages will be compared with the recipe
name in a case-insensitive way.

Closes #1106
This commit is contained in:
Donald Curtis 2013-11-12 20:53:17 -08:00
parent 92e5037056
commit 8bc9315d36

View file

@ -817,8 +817,8 @@ and a cl struct in Emacs HEAD. This wrapper normalises the results."
file-name file-name
version version
cfg))) cfg)))
(unless (string-equal (concat file-name ".el") (unless (string-equal (downcase (concat file-name ".el"))
(file-name-nondirectory pkg-source)) (downcase (file-name-nondirectory pkg-source)))
(error "Single file %s does not match package name %s" (error "Single file %s does not match package name %s"
(file-name-nondirectory pkg-source) file-name)) (file-name-nondirectory pkg-source) file-name))
(when (file-exists-p pkg-target) (when (file-exists-p pkg-target)