subseq should be cl-subseq

This commit is contained in:
Steve Purcell 2015-03-14 19:44:03 +00:00
parent a9222d9225
commit fdc6654952

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 (subseq pkgfile-info 4))
(rest-plist (cl-subseq pkgfile-info 4))
(extras (let (alist)
(while rest-plist
(unless (memq (car rest-plist) '(:kind :archive))