Mercurial > hg > xemacs-beta

diff src/bytecode.c @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 3d6bfa290dbd
children e45d5e7c476e
line wrap: on
line diff
--- a/src/bytecode.c	Mon Aug 13 09:58:32 2007 +0200
+++ b/src/bytecode.c	Mon Aug 13 09:59:05 2007 +0200
@@ -972,12 +972,16 @@
 	  break;
 
 	case Bchar_syntax:
+#if 0
 	  CHECK_CHAR_COERCE_INT (TOP);
 	  TOP = make_char (syntax_code_spec
 			   [(int) SYNTAX
 			    (XCHAR_TABLE
 			     (current_buffer->mirror_syntax_table),
 			     XCHAR (TOP))]);
+#endif
+	  /*v1 = POP;*/
+	  TOP = Fchar_syntax(TOP, Qnil);
 	  break;
 
 	case Bbuffer_substring: