github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-12-25 19:25:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

Tidy up the fallback code for locating package info in .pkg, .pkg.in, and .el files

Browse source
This commit is contained in:
Steve Purcell 2012-02-02 20:30:15 +00:00
parent c8e29ccda9
commit 3924aa896d
1 changed files with 9 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
package-build.el
View file

@ -298,25 +298,17 @@ If PKG-INFO is nil, an empty one is created."
(t
(let* ((pkg-dir (concat file-name "-" version))
(pkg-file (concat file-name "-pkg.el"))
(pkg-info (package-build-get-pkg-file-info
(expand-file-name pkg-file pkg-cwd))))
(pkg-info
(package-build-merge-package-info
(let ((default-directory pkg-cwd))
(or (package-build-get-pkg-file-info pkg-file)
;; some packages (like magit) provide name-pkg.el.in
(package-build-get-pkg-file-info (concat pkg-file ".in"))
(package-build-get-package-info (concat file-name ".el"))))
file-name version)))
(copy-directory file-name pkg-dir)
(unless pkg-info
(setq pkg-info (package-build-get-package-info
(expand-file-name (concat file-name ".el")
pkg-cwd))))
;; some packages (like magit) provide name-pkg.el.in
(unless pkg-info
(setq pkg-info (package-build-get-pkg-file-info
(expand-file-name (concat pkg-file ".in")
pkg-cwd))))
(setq pkg-info
(package-build-merge-package-info pkg-info file-name version))
(print pkg-info)
(copy-directory file-name pkg-dir)
(package-build-pkg-file (expand-file-name
pkg-file