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

Diff of /emacs/src/fns.c

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

revision 1.337 by rms, Sat May 17 12:45:52 2003 UTC revision 1.338 by rms, Sat May 17 15:49:42 2003 UTC
# Line 2697  map_char_table (c_function, function, ta Line 2697  map_char_table (c_function, function, ta
2697          {          {
2698            int c1, c2, c;            int c1, c2, c;
2699    
           if (NILP (elt))  
             elt = XCHAR_TABLE (subtable)->defalt;  
           if (NILP  (elt))  
             elt = Faref (table, make_number (i));  
2700            c1 = depth >= 1 ? XFASTINT (indices[1]) : 0;            c1 = depth >= 1 ? XFASTINT (indices[1]) : 0;
2701            c2 = depth >= 2 ? XFASTINT (indices[2]) : 0;            c2 = depth >= 2 ? XFASTINT (indices[2]) : 0;
2702            c = MAKE_CHAR (charset, c1, c2);            c = MAKE_CHAR (charset, c1, c2);
2703    
2704              if (NILP (elt))
2705                elt = XCHAR_TABLE (subtable)->defalt;
2706              if (NILP  (elt))
2707                elt = Faref (table, make_number (c));
2708    
2709            if (c_function)            if (c_function)
2710              (*c_function) (arg, make_number (c), elt);              (*c_function) (arg, make_number (c), elt);
2711            else            else

Legend:
Removed from v.1.337  
changed lines
  Added in v.1.338

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