changeset 90359:041f75914d0c

(produce_composition): Compare charbuf[i] instead of args[i] against 0. (Fterminal_coding_system): Use EQ to compare Lisp objects.
author Kenichi Handa <handa@m17n.org>
date Thu, 09 Mar 2006 01:22:51 +0000
parents 47abdf8178fc
children 23b7c43b24ce
files src/coding.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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",