From: Po Lu <luangruo@yahoo.com>
Date: Sat, 30 Sep 2023 00:30:59 +0000 (+0800)
Subject: Fix last change
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=64c58011b7a626dabbb2bc302cd25769f039e3ed;p=emacs.git

Fix last change

* src/search.c (Fre__describe_compiled): Correct typos and
pointer signedness missmatch.
---

diff --git a/src/search.c b/src/search.c
index 014fd97d423..e9b29bb7179 100644
--- a/src/search.c
+++ b/src/search.c
@@ -3391,13 +3391,13 @@ If RAW is non-nil, just return the actual bytecode.  */)
                        !NILP (BVAR (current_buffer,
                                     enable_multibyte_characters)));
   if (!NILP (raw))
-    return make_unibyte_string (cache_entry->buf.buffer,
+    return make_unibyte_string ((char *) cache_entry->buf.buffer,
                                 cache_entry->buf.used);
   else
     {                           /* FIXME: Why ENABLE_CHECKING?  */
-#if !ENABLE_CHECKING
+#if !defined ENABLE_CHECKING
       error ("Not available: rebuild with --enable-checking");
-#elsif HAVE_OPEN_MEMSTREAM
+#elif HAVE_OPEN_MEMSTREAM
       char *buffer = NULL;
       size_t size = 0;
       FILE* f = open_memstream (&buffer, &size);
@@ -3410,10 +3410,10 @@ If RAW is non-nil, just return the actual bytecode.  */)
       Lisp_Object description = make_unibyte_string (buffer, size);
       free (buffer);
       return description;
-#else
+#else /* ENABLE_CHECKING && !HAVE_OPEN_MEMSTREAM */
       print_compiled_pattern (stderr, &cache_entry->buf);
       return build_string ("Description was sent to standard error");
-#endif
+#endif /* !ENABLE_CHECKING */
     }
 }