From 2c623e4feb9e141715a4959655f894c335ca3668 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 10 Jun 2023 20:48:21 +0300 Subject: [PATCH] Avoid errors in 'apropos-documentation' after 'eval-buffer' * lisp/apropos.el (apropos--map-preloaded-atoms): Support the case where an element of 'load-history' has nil as its car. (Bug#63881) --- lisp/apropos.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/apropos.el b/lisp/apropos.el index 5d7fe6962a5..c9551b06529 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -900,7 +900,8 @@ Optional arg BUFFER (default: current buffer) is the buffer to check." ;; state of the `obarray' when we dumped, which we may also be able to ;; use in `bytecomp' to provide a clean initial environment?) (dolist (x load-history) - (when (string-match preloaded-regexp (car x)) + (when (let ((elt (car x))) + (and (stringp elt) (string-match preloaded-regexp elt))) (dolist (def (cdr x)) (cond ((symbolp def) (funcall f def)) -- 2.39.2