Mercurial > hg > xemacs-beta
comparison src/abbrev.c @ 5350:94bbd4792049
Have #'sort*, #'merge use the same test approach as functions from cl-seq.el
2011-02-05 Aidan Kehoe <kehoea@parhasard.net>
* fns.c:
* fns.c (check_lss_key, check_lss_key_car): New.
* fns.c (check_string_lessp_key check_string_lessp_key_car): New.
* fns.c (get_merge_predicate): New.
* fns.c (list_merge):
* fns.c (array_merge):
* fns.c (list_array_merge_into_list):
* fns.c (list_list_merge_into_array):
* fns.c (list_array_merge_into_array):
* fns.c (Fmerge):
* fns.c (list_sort):
* fns.c (array_sort):
* fns.c (FsortX):
* fns.c (syms_of_fns):
* lisp.h:
Move #'sort, #'merge to using the same test approach as is used in
the functions that take TEST, TEST-NOT and KEY arguments. This
allows us to avoid the Ffuncall() overhead when the most common
PREDICATE arguments are supplied, in particular #'< and
#'string-lessp.
* fontcolor-msw.c (sort_font_list_function):
* fontcolor-msw.c (mswindows_enumerate_fonts):
* dired.c:
* dired.c (Fdirectory_files):
* fileio.c:
* fileio.c (build_annotations):
* fileio.c (syms_of_fileio):
* keymap.c:
* keymap.c (keymap_submaps):
* keymap.c (map_keymap_sort_predicate):
* keymap.c (describe_map_sort_predicate):
* keymap.c (describe_map):
Change the various C predicates passed to list_sort () and
list_merge () to fit the new calling convention, returning
non-zero if the first argument is less than the second, zero
otherwise.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sat, 05 Feb 2011 12:04:34 +0000 |
parents | 31be2a3d121d |
children | 0af042a0c116 |
comparison
equal
deleted
inserted
replaced
5349:239193591765 | 5350:94bbd4792049 |
---|---|
522 /* GCPRO1 (closure); */ | 522 /* GCPRO1 (closure); */ |
523 /* map_obarray (table, record_symbol, symbols); */ | 523 /* map_obarray (table, record_symbol, symbols); */ |
524 map_obarray (table, record_symbol, &symbols); | 524 map_obarray (table, record_symbol, &symbols); |
525 /* map_obarray (table, record_symbol, &closure); */ | 525 /* map_obarray (table, record_symbol, &closure); */ |
526 symbols = XCDR (symbols); | 526 symbols = XCDR (symbols); |
527 symbols = list_sort (symbols, NULL, Qstring_lessp, Qidentity); | 527 symbols = list_sort (symbols, check_string_lessp_nokey, Qnil, Qnil); |
528 | 528 |
529 if (!NILP (readable)) | 529 if (!NILP (readable)) |
530 { | 530 { |
531 buffer_insert_ascstring (buf, "("); | 531 buffer_insert_ascstring (buf, "("); |
532 Fprin1 (name, stream); | 532 Fprin1 (name, stream); |