mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Don't define user-ptr type when user-ptrp is not present

Browse source 
* lisp/emacs-lisp/cl-preloaded.el (user-ptr): Condition on
presence of predicate function.
This commit is contained in:
Po Lu 2024-03-24 11:02:34 +08:00
parent 2be41da38e
commit 7206a620af
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/cl-preloaded.el
View file

@ -356,8 +356,10 @@ The `slots' (and hence `index-table') are currently unused."
(cl--define-built-in-type tree-sitter-compiled-query atom)
(cl--define-built-in-type tree-sitter-node atom)
(cl--define-built-in-type tree-sitter-parser atom)
(cl--define-built-in-type user-ptr atom
nil :predicate user-ptrp) ;; FIXME: Shouldn't it be called `user-ptr-p'?
(declare-function user-ptrp "data.c")
(unless (fboundp 'user-ptrp)
(cl--define-built-in-type user-ptr atom nil
:predicate user-ptrp)) ;; FIXME: Shouldn't it be called `user-ptr-p'?
(cl--define-built-in-type font-object atom)
(cl--define-built-in-type font-entity atom)
(cl--define-built-in-type font-spec atom)