Fix a bug with a mismatch with single file packages.

With single file packages, the filename must match the package name.
This commit is contained in:
Donald Ephraim Curtis 2012-01-28 20:09:44 -06:00
parent 5ca0041048
commit b76c0107c8

View file

@ -321,7 +321,7 @@
(vector (vector
file-name nil "No description available." version))) file-name nil "No description available." version)))
(aset pkg-info 3 version) (aset pkg-info 3 version)
(aset pkg-info 0 (downcase (aref pkg-info 0))) (aset pkg-info 0 (downcase file-name))
(print pkg-info) (print pkg-info)
(if (file-exists-p pkgdst) (if (file-exists-p pkgdst)
(delete-file pkgdst t)) (delete-file pkgdst t))