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

Tidy up attempt to use copy-seq to keep function side-effect free

Browse source
This commit is contained in:
Steve Purcell 2012-02-09 21:01:39 +00:00
parent c013231a48
commit 589ea72384
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

@ -261,11 +261,11 @@ The file is written to `package-build-working-dir'."
(defun package-build-merge-package-info (pkg-info name version) (defun package-build-merge-package-info (pkg-info name version)
"Return a version of PKG-INFO updated with NAME and VERSION. "Return a version of PKG-INFO updated with NAME and VERSION.
If PKG-INFO is nil, an empty one is created." If PKG-INFO is nil, an empty one is created."
(let ((merged (let ((merged (or (copy-seq pkg-info)
(or pkg-info (vector name nil "No description available." version)))) (vector name nil "No description available." version))))
(aset merged 3 version) (aset merged 3 version)
(aset merged 0 (downcase name)) (aset merged 0 (downcase name))
(copy-seq merged))) merged))
(defun package-build-archive (file-name) (defun package-build-archive (file-name)
"Build a package archive for package FILE-NAME." "Build a package archive for package FILE-NAME."