# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1141867371 0
# Node ID 041f75914d0c7e407350f4f88ced9822910e6d35
# Parent  47abdf8178fcb6ef1acb38e7f16d0b43c4075e1c
(produce_composition): Compare charbuf[i] instead of
args[i] against 0.
(Fterminal_coding_system): Use EQ to compare Lisp objects.

diff -r 47abdf8178fc -r 041f75914d0c src/coding.c
--- a/src/coding.c	Wed Mar 08 11:58:12 2006 +0000
+++ b/src/coding.c	Thu Mar 09 01:22:51 2006 +0000
@@ -6040,7 +6040,7 @@
       for (i = 0; i < len; i++)
 	{
 	  args[i] = make_number (charbuf[i]);
-	  if (args[i] < 0)
+	  if (charbuf[i] < 0)
 	    return;
 	}
       components = (method == COMPOSITION_WITH_ALTCHARS
@@ -8247,7 +8247,7 @@
 
   coding_system = CODING_ID_NAME (terminal_coding.id);
   /* For backward compatibility, return nil if it is `undecided'. */
-  return (coding_system != Qundecided ? coding_system : Qnil);
+  return (! EQ (coding_system, Qundecided) ? coding_system : Qnil);
 }
 
 DEFUN ("set-keyboard-coding-system-internal",