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

Stylistic fix for code chunk which was reassigning a var

Browse source
This commit is contained in:
Steve Purcell 2012-02-11 16:14:30 +00:00
parent 18fe834e0a
commit b9666e7867
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
package-build.el
View file

@ -201,9 +201,6 @@ the same arguments."
"Create a tar FILE containing the contents of DIR, or just FILES if non-nil. "Create a tar FILE containing the contents of DIR, or just FILES if non-nil.
The file is written to `package-build-working-dir'." 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
(setq files (mapcar (lambda (fn) (concat dir "/" fn)) files))
(setq files (list dir)))
(apply 'process-file (apply 'process-file
"tar" nil "tar" nil
(get-buffer-create "*package-build-checkout*") (get-buffer-create "*package-build-checkout*")
@ -212,7 +209,8 @@ The file is written to `package-build-working-dir'."
"--exclude=.svn" "--exclude=.svn"
"--exclude=.git*" "--exclude=.git*"
"--exclude=_darcs" "--exclude=_darcs"
files))) (or (mapcar (lambda (fn) (concat dir "/" fn)) files)
(list dir)))))
(defun pb/get-package-info (file-path) (defun pb/get-package-info (file-path)
"Get a vector of package info from the docstrings in FILE-PATH." "Get a vector of package info from the docstrings in FILE-PATH."