comparison src/abbrev.c @ 5470:0af042a0c116

Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Mon, 07 Feb 2011 21:22:17 +0100
parents 6506fcb40fcf 94bbd4792049
children 56144c8593a8
comparison
equal deleted inserted replaced
5469:2a8a04f73c15 5470:0af042a0c116
520 /* GCPRO1 (closure); */ 520 /* GCPRO1 (closure); */
521 /* map_obarray (table, record_symbol, symbols); */ 521 /* map_obarray (table, record_symbol, symbols); */
522 map_obarray (table, record_symbol, &symbols); 522 map_obarray (table, record_symbol, &symbols);
523 /* map_obarray (table, record_symbol, &closure); */ 523 /* map_obarray (table, record_symbol, &closure); */
524 symbols = XCDR (symbols); 524 symbols = XCDR (symbols);
525 symbols = list_sort (symbols, NULL, Qstring_lessp, Qidentity); 525 symbols = list_sort (symbols, check_string_lessp_nokey, Qnil, Qnil);
526 526
527 if (!NILP (readable)) 527 if (!NILP (readable))
528 { 528 {
529 buffer_insert_ascstring (buf, "("); 529 buffer_insert_ascstring (buf, "(");
530 Fprin1 (name, stream); 530 Fprin1 (name, stream);