# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1022866988 0
# Node ID 97212b1039e97938d4092bf6b73059a54a90f7a3
# Parent  09ecca30779fcb435b061f7cb5e3c2efb607a036
(x_encode_text): Return stringp non-NULL if coding_system
is Qcompound_text_with_extensions.

diff -r 09ecca30779f -r 97212b1039e9 src/xfns.c
--- a/src/xfns.c	Fri May 31 17:42:32 2002 +0000
+++ b/src/xfns.c	Fri May 31 17:43:08 2002 +0000
@@ -2387,6 +2387,7 @@
   int bufsize;
   unsigned char *buf;
   struct coding_system coding;
+  extern Lisp_Object Qcompound_text_with_extensions;
 
   charset_info = find_charset_in_text (str, chars, bytes, NULL, Qnil);
   if (charset_info == 0)
@@ -2418,7 +2419,9 @@
   buf = (unsigned char *) xmalloc (bufsize);
   encode_coding (&coding, str, buf, bytes, bufsize);
   *text_bytes = coding.produced;
-  *stringp = (charset_info == 1 || !EQ (coding_system, Qcompound_text));
+  *stringp = (charset_info == 1
+	      || (!EQ (coding_system, Qcompound_text)
+		  && !EQ (coding_system, Qcompound_text_with_extensions)));
   return buf;
 }