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

Rename pathpfx variable for clarity

Browse source
This commit is contained in:
Steve Purcell 2012-05-01 14:19:10 +01:00
parent afb0db688d
commit c5f641f8fb
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
package-build.el
View file

@ -549,7 +549,7 @@ of the same-named package which is to be kept."
file-name file-name
version version
cfg)) cfg))
(pkg-pathpfx (pkg-path-prefix
(file-name-as-directory (pb/common-path-prefix files)))) (file-name-as-directory (pb/common-path-prefix files))))
(when (file-exists-p pkg-dir) (when (file-exists-p pkg-dir)
@ -558,7 +558,7 @@ of the same-named package which is to be kept."
(mapc (lambda (fn) (mapc (lambda (fn)
(pb/copy-file (expand-file-name fn pkg-cwd) (pb/copy-file (expand-file-name fn pkg-cwd)
(expand-file-name (expand-file-name
(pb/remove-prefix pkg-pathpfx fn) (pb/remove-prefix pkg-path-prefix fn)
pkg-dir))) pkg-dir)))
files) files)
@ -577,7 +577,7 @@ of the same-named package which is to be kept."
(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 pkg-dir
(mapcar (lambda (fn) (pb/remove-prefix pkg-pathpfx fn)) files)) (mapcar (lambda (fn) (pb/remove-prefix pkg-path-prefix fn)) files))
(delete-directory pkg-dir t nil) (delete-directory pkg-dir t nil)
(pb/add-to-archive-contents pkg-info 'tar))) (pb/add-to-archive-contents pkg-info 'tar)))