mirror of
https://github.com/correl/melpa.git
synced 2024-11-22 19:18:39 +00:00
Tidy up attempt to use copy-seq to keep function side-effect free
This commit is contained in:
parent
c013231a48
commit
589ea72384
1 changed files with 3 additions and 3 deletions
|
@ -261,11 +261,11 @@ The file is written to `package-build-working-dir'."
|
|||
(defun package-build-merge-package-info (pkg-info name version)
|
||||
"Return a version of PKG-INFO updated with NAME and VERSION.
|
||||
If PKG-INFO is nil, an empty one is created."
|
||||
(let ((merged
|
||||
(or pkg-info (vector name nil "No description available." version))))
|
||||
(let ((merged (or (copy-seq pkg-info)
|
||||
(vector name nil "No description available." version))))
|
||||
(aset merged 3 version)
|
||||
(aset merged 0 (downcase name))
|
||||
(copy-seq merged)))
|
||||
merged))
|
||||
|
||||
(defun package-build-archive (file-name)
|
||||
"Build a package archive for package FILE-NAME."
|
||||
|
|
Loading…
Reference in a new issue