diff options
| author | Po Lu <luangruo@yahoo.com> | 2024-03-24 11:05:31 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2024-03-24 11:05:31 +0800 |
| commit | 30b1b0d7cd8e4d46a601e9737350cda970f6bab0 (patch) | |
| tree | a966543cd118995bdf45fa76b0426130fd446b7c | |
| parent | 7206a620af2de7281d9c9299582241a10e79e1a3 (diff) | |
| download | emacs-30b1b0d7cd8e4d46a601e9737350cda970f6bab0.tar.gz | |
; * lisp/emacs-lisp/cl-preloaded.el (user-ptr): Fix typo.
Author:
| -rw-r--r-- | lisp/emacs-lisp/cl-preloaded.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el index f27933ed054..35a8d79a1cd 100644 --- a/lisp/emacs-lisp/cl-preloaded.el +++ b/lisp/emacs-lisp/cl-preloaded.el @@ -357,9 +357,11 @@ The `slots' (and hence `index-table') are currently unused." (cl--define-built-in-type tree-sitter-node atom) (cl--define-built-in-type tree-sitter-parser atom) (declare-function user-ptrp "data.c") -(unless (fboundp 'user-ptrp) +(when (fboundp 'user-ptrp) (cl--define-built-in-type user-ptr atom nil - :predicate user-ptrp)) ;; FIXME: Shouldn't it be called `user-ptr-p'? + ;; FIXME: Shouldn't it be called + ;; `user-ptr-p'? + :predicate user-ptrp)) (cl--define-built-in-type font-object atom) (cl--define-built-in-type font-entity atom) (cl--define-built-in-type font-spec atom) |