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

* Make comp ignore EIEIO classes (bug#70141)

Browse Source 
* lisp/emacs-lisp/comp-cstr.el (comp--all-classes): Ignore EIEIO classes.
This commit is contained in:
Andrea Corallo 2024-04-08 11:21:37 +02:00
parent 4d486bd378
commit c9d7721db6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/emacs-lisp/comp-cstr.el
View File

@ -89,7 +89,10 @@ Integer values are handled in the `range' slot.")
"Return all non built-in type names currently defined."
(let (res)
(mapatoms (lambda (x)
(when (cl-find-class x)
(when-let ((class (cl-find-class x))
;; Ignore EIEIO classes as they can be
;; redefined at runtime.
(gate (not (eq 'eieio--class (type-of class)))))
(push x res)))
obarray)
res))