From: Kenichi Handa <handa@m17n.org>
Date: Tue, 3 Sep 2002 04:06:33 +0000 (+0000)
Subject: (Fbyte_code): Convert a unibyte character to multibyte if necessary.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~388
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9281d0779766a39f743240e33dd46a1accf0f7fa;p=emacs.git

(Fbyte_code): Convert a unibyte character to multibyte if necessary.
---

diff --git a/src/bytecode.c b/src/bytecode.c
index 6c4e34ddaa7..df6eb266eb9 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1433,10 +1433,17 @@ If the third argument is incorrect, Emacs may crash.  */)
 	  break;
 
 	case Bchar_syntax:
-	  BEFORE_POTENTIAL_GC ();
-	  CHECK_NUMBER (TOP);
-	  AFTER_POTENTIAL_GC ();
-	  XSETFASTINT (TOP, syntax_code_spec[(int) SYNTAX (XINT (TOP))]);
+	  {
+	    int c;
+
+	    BEFORE_POTENTIAL_GC ();
+	    CHECK_CHARACTER (TOP);
+	    AFTER_POTENTIAL_GC ();
+	    c = XFASTINT (TOP);
+	    if (NILP (current_buffer->enable_multibyte_characters))
+	      MAKE_CHAR_MULTIBYTE (c);
+	    XSETFASTINT (TOP, syntax_code_spec[(int) SYNTAX (c)]);
+	  }	    
 	  break;
 
 	case Bbuffer_substring: