mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/registry.el (registry-collect-prune-candidates): Skip invalid entries

Browse source
This commit is contained in:
Ted Zlatanov 2017-12-22 08:49:21 -05:00
parent e92f5537a8
commit b5a5790d20
No known key found for this signature in database
GPG key ID: 11F23D0A4E4B9DEE
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/registry.el
View file

@ -358,11 +358,12 @@ return LIMIT such candidates. If SORTFUNC is provided, sort
entries first and return candidates from beginning of list."
(let* ((precious (oref db precious))
(precious-p (lambda (entry-key)
(cdr (memq (car entry-key) precious))))
(cdr (memq (car-safe entry-key) precious))))
(data (oref db data))
(candidates (cl-loop for k being the hash-keys of data
using (hash-values v)
when (cl-notany precious-p v)
when (and (listp v)
(cl-notany precious-p v))
collect (cons k v))))
;; We want the full entries for sorting, but should only return a
;; list of entry keys.