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

Rename :cvs-module to :module

Browse source
This commit is contained in:
Sebastian Wiesner 2012-09-15 13:55:15 +02:00
parent 9590a38d35
commit 9592064902
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
README.md
View file

@ -111,6 +111,7 @@ the following form,
:fetcher [git|github|bzr|hg|darcs|svn|cvs|wiki] :fetcher [git|github|bzr|hg|darcs|svn|cvs|wiki]
[:url "<repo url>"] [:url "<repo url>"]
[:repo "github-user/repo-name"] [:repo "github-user/repo-name"]
[:module "cvs-module"]
[:files ("<file1>", ...)]) [:files ("<file1>", ...)])
``` ```
@ -121,7 +122,7 @@ a lisp symbol that has the same name as the package being specified.
specifies the URL of the version control repository. *required for specifies the URL of the version control repository. *required for
the `git`, `bzr`, `hg`, `darcs`, `svn` and `cvs` fetchers* the `git`, `bzr`, `hg`, `darcs`, `svn` and `cvs` fetchers*
- `:cvs-module` - `:module`
specifies the module of a CVS repository to check out. Defaults to to specifies the module of a CVS repository to check out. Defaults to to
`package-name`. Only used with `:fetcher cvs`, and otherwise ignored. `package-name`. Only used with `:fetcher cvs`, and otherwise ignored.

2
package-build.el
View file

@ -258,7 +258,7 @@ Return a cons cell whose `car' is the root and whose `cdr' is the repository."
"Check package NAME with config CONFIG out of csv into DIR." "Check package NAME with config CONFIG out of csv into DIR."
(with-current-buffer (get-buffer-create "*package-build-checkout*") (with-current-buffer (get-buffer-create "*package-build-checkout*")
(let ((root (pb/trim (plist-get config :url) ?/)) (let ((root (pb/trim (plist-get config :url) ?/))
(repo (or (plist-get config :cvs-module) (symbol-name name))) (repo (or (plist-get config :module) (symbol-name name)))
(bound (goto-char (point-max)))) (bound (goto-char (point-max))))
(cond (cond
((and (file-exists-p (expand-file-name "CVS" dir)) ((and (file-exists-p (expand-file-name "CVS" dir))