/[emacs]/emacs/src/chartab.c
ViewVC logotype

Diff of /emacs/src/chartab.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.4.2 by schwab, Wed Sep 10 10:52:45 2003 UTC revision 1.1.4.3 by handa, Mon Oct 6 11:20:45 2003 UTC
# Line 642  This function is obsolete and has no eff Line 642  This function is obsolete and has no eff
642  }  }
643    
644  /* Look up the element in TABLE at index CH, and return it as an  /* Look up the element in TABLE at index CH, and return it as an
645     integer.  If the element is nil, return CH itself.  (Actually we do     integer.  If the element is not a character, return CH itself.  */
    that for any non-integer.)  */  
646    
647  int  int
648  char_table_translate (table, ch)  char_table_translate (table, ch)
# Line 652  char_table_translate (table, ch) Line 651  char_table_translate (table, ch)
651  {  {
652    Lisp_Object value;    Lisp_Object value;
653    value = Faref (table, make_number (ch));    value = Faref (table, make_number (ch));
654    if (! INTEGERP (value))       /* fixme: use CHARACTERP? */    if (! CHARACTERP (value))
655      return ch;      return ch;
656    return XINT (value);    return XINT (value);
657  }  }

Legend:
Removed from v.1.1.4.2  
changed lines
  Added in v.1.1.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26