mirror of
https://github.com/correl/melpa.git
synced 2024-11-21 11:08:37 +00:00
Fix bounding problem with cl-subseq on pkgfile.
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:
parent
b7f62ac156
commit
aa6427ca25
1 changed files with 1 additions and 1 deletions
|
@ -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))
|
||||
|
|
Loading…
Reference in a new issue