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

Fix bounding problem with cl-subseq on pkgfile.

Browse source 
Previously cl-subseq didn't complain about bounding indices. It has become more strict so we need to make sure not to try to take a subsequence past the end of the length of pkgfile-info.

Fixes #2606
This commit is contained in:
Donald Curtis 2015-03-18 22:07:52 -07:00
parent b7f62ac156
commit aa6427ca25
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
package-build.el
View file

@ -749,7 +749,7 @@ Optionally PRETTY-PRINT the data."
(if (eq 'define-package (car package-def))
(let* ((pkgfile-info (cdr package-def))
(descr (nth 2 pkgfile-info))
(rest-plist (cl-subseq pkgfile-info 4))
(rest-plist (cl-subseq pkgfile-info (min 4 (length pkgfile-info))))
(extras (let (alist)
(while rest-plist
(unless (memq (car rest-plist) '(:kind :archive))