From aa6427ca25596e81906cdcd79a6616f557fdf3e5 Mon Sep 17 00:00:00 2001 From: Donald Curtis Date: Wed, 18 Mar 2015 22:07:52 -0700 Subject: [PATCH] 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 --- package-build.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/package-build.el b/package-build.el index 672a82c4..4b36184d 100644 --- a/package-build.el +++ b/package-build.el @@ -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))