Mercurial > emacs

changeset 45603:97212b1039e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x_encode_text): Return stringp non-NULL if coding_system is Qcompound_text_with_extensions.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 31 May 2002 17:43:08 +0000
parents 09ecca30779f
children a750da04d437
files src/xfns.c
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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;
 }