From: Po Lu <luangruo@yahoo.com>
Date: Sun, 24 Mar 2024 03:05:31 +0000 (+0800)
Subject: ; * lisp/emacs-lisp/cl-preloaded.el (user-ptr): Fix typo.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45942872f463788f5ee143a9abbbcae4213f66ae;p=emacs.git

; * lisp/emacs-lisp/cl-preloaded.el (user-ptr): Fix typo.

Author:
(cherry picked from commit 30b1b0d7cd8e4d46a601e9737350cda970f6bab0)
---

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)