(produce_composition): Compare charbuf[i] instead of

args[i] against 0.
(Fterminal_coding_system): Use EQ to compare Lisp objects.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/coding.c b/src/coding.c
index 05d2a06843b..3bec805fe10 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -6040,7 +6040,7 @@ produce_composition (coding, charbuf, pos)
       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 @@ DEFUN ("terminal-coding-system",
 
   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",