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)
This commit is contained in:
parent
dd3b98121c
commit
2c623e4feb
1 changed files with 2 additions and 1 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue