Fix doom/help-search-loaded-files

Would throw a string type error because load-history doesn't only
contain sublists whose CARs are strings.
This commit is contained in:
Henrik Lissner 2020-05-19 17:33:57 -04:00
parent 265e80123a
commit 92b98bed11
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -660,8 +660,9 @@ Uses the symbol at point or the current selection, if available."
Uses the symbol at point or the current selection, if available."
(interactive
(list (doom--help-search-prompt "Search loaded files: ")))
(let ((paths (cl-loop for (file . _) in load-history
(doom--help-search
(cl-loop for (file . _) in (cl-remove-if-not #'stringp load-history :key #'car)
for filebase = (file-name-sans-extension file)
if (file-exists-p! (format "%s.el" filebase))
collect it)))
(doom--help-search paths query "Search loaded files: ")))
collect it)
query "Search loaded files: "))