github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-11-24 11:09:51 +00:00
Code Issues Projects Releases Packages Wiki Activity

Print a warning when :files is redundant

Browse source 
If a :files spec is provided and expands to the same set of files as
package-build-default-files-spec, then print a warning.
This commit is contained in:
Steve Purcell 2014-02-21 10:01:54 +00:00
parent a04dd517e0
commit 686ee3a775
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
package-build.el
View file

@ -856,7 +856,11 @@ Returns the archive entry for the package."
(when (symbolp package-name) (when (symbolp package-name)
(setq package-name (symbol-name package-name))) (setq package-name (symbol-name package-name)))
(let ((files (package-build-expand-file-specs source-dir file-specs))) (let ((files (package-build-expand-file-specs source-dir file-specs)))
(cond (unless (equal file-specs package-build-default-files-spec)
(when (equal files (package-build-expand-file-specs
source-dir package-build-default-files-spec nil t))
(pb/message "Note: this :files spec is equivalent to the default.")))
(cond
((not version) ((not version)
(error "Unable to check out repository for %s" package-name)) (error "Unable to check out repository for %s" package-name))
((= 1 (length files)) ((= 1 (length files))