comparison src/coding.c @ 90359:041f75914d0c

(produce_composition): Compare charbuf[i] instead of args[i] against 0. (Fterminal_coding_system): Use EQ to compare Lisp objects.

90358:47abdf8178fc

      len -= 4;
      charbuf += 4;
      for (i = 0; i < len; i++)
	{
	  args[i] = make_number (charbuf[i]);
	  if (args[i] < 0)
	    return;
	}
      components = (method == COMPOSITION_WITH_ALTCHARS
		    ? Fstring (len, args) : Fvector (len, args));
    }

{
  Lisp_Object 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);
}

DEFUN ("set-keyboard-coding-system-internal",
       Fset_keyboard_coding_system_internal,
       Sset_keyboard_coding_system_internal, 1, 1, 0,

90359:041f75914d0c

      len -= 4;
      charbuf += 4;
      for (i = 0; i < len; i++)
	{
	  args[i] = make_number (charbuf[i]);
	  if (charbuf[i] < 0)
	    return;
	}
      components = (method == COMPOSITION_WITH_ALTCHARS
		    ? Fstring (len, args) : Fvector (len, args));
    }

{
  Lisp_Object coding_system;

  coding_system = CODING_ID_NAME (terminal_coding.id);
  /* For backward compatibility, return nil if it is `undecided'. */
  return (! EQ (coding_system, Qundecided) ? coding_system : Qnil);
}

DEFUN ("set-keyboard-coding-system-internal",
       Fset_keyboard_coding_system_internal,
       Sset_keyboard_coding_system_internal, 1, 1, 0,