mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Avoid errors in 'apropos-documentation' after 'eval-buffer'

Browse Source 
* 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:
Eli Zaretskii 2023-06-10 20:48:21 +03:00
parent dd3b98121c
commit 2c623e4feb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/apropos.el
View File

@ -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))