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 a couple of function args for clarity

Browse source
This commit is contained in:
Steve Purcell 2012-01-31 14:02:42 +00:00
parent 905854725f
commit a7f748c14a
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
package-build.el
View file

@ -181,17 +181,18 @@ the same arguments."
(goto-char (point-min)) (goto-char (point-min))
(read (current-buffer))))) (read (current-buffer)))))
(defun package-build-get-config (file-name) (defun package-build-get-config (pkg-name)
"Get the configuration information for the given FILE-NAME." "Get the configuration information for the given PKG-NAME."
(package-read-from-file (format "epkgs/%s/.config" file-name))) (package-read-from-file (format "epkgs/%s/.config" pkg-name)))
(defun package-build-get-master (file-name) (defun package-build-get-master (pkg-name)
"Get the configuration information for the given FILE-NAME." "Get the configuration information for the given PKG-NAME."
(package-read-from-file (format "epkgs/%s/master" file-name))) (package-read-from-file (format "epkgs/%s/master" pkg-name)))
(defun package-build-create-tar (dir file &optional files) (defun package-build-create-tar (file dir &optional files)
"Create a tar in DIR with name FILE containing FILES." "Create a tar FILE containing the contents of DIR, or just FILES if non-nil.
The file is written to `package-build-working-dir'."
(let* ((default-directory package-build-working-dir)) (let* ((default-directory package-build-working-dir))
(if files (if files
(setq files (mapcar (lambda (fn) (concat dir "/" fn)) files)) (setq files (mapcar (lambda (fn) (concat dir "/" fn)) files))
@ -327,9 +328,9 @@ the same arguments."
(add-to-list 'files pkg-file)) (add-to-list 'files pkg-file))
(package-build-create-tar (package-build-create-tar
pkg-dir
(expand-file-name (expand-file-name
(concat file-name "-" version ".tar") package-build-archive-dir) (concat file-name "-" version ".tar") package-build-archive-dir)
pkg-dir
files) files)
(delete-directory pkg-dir t nil) (delete-directory pkg-dir t nil)