[Emacs-diffs] Changes to emacs/src/chartab.c [emacs-unicode-2]

[Kenichi Handa]

Index: emacs/src/chartab.c
diff -c emacs/src/chartab.c:1.1.4.2 emacs/src/chartab.c:1.1.4.3
*** emacs/src/chartab.c:1.1.4.2 Wed Sep 10 06:52:45 2003
--- emacs/src/chartab.c Mon Oct  6 07:20:45 2003
***************
*** 642,649 ****
  }
  
  /* Look up the element in TABLE at index CH, and return it as an
!    integer.  If the element is nil, return CH itself.  (Actually we do
!    that for any non-integer.)  */
  
  int
  char_table_translate (table, ch)
--- 642,648 ----
  }
  
  /* Look up the element in TABLE at index CH, and return it as an
!    integer.  If the element is not a character, return CH itself.  */
  
  int
  char_table_translate (table, ch)
***************
*** 652,658 ****
  {
    Lisp_Object value;
    value = Faref (table, make_number (ch));
!   if (! INTEGERP (value))     /* fixme: use CHARACTERP? */
      return ch;
    return XINT (value);
  }
--- 651,657 ----
  {
    Lisp_Object value;
    value = Faref (table, make_number (ch));
!   if (! CHARACTERP (value))
      return ch;
    return XINT (value);
  }