Mercurial > hg > xemacs-beta
comparison src/fileio.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 | c096d8051f89 |
children | 3889ef128488 0af042a0c116 |
comparison
equal
deleted
inserted
replaced
5349:239193591765 | 5350:94bbd4792049 |
---|---|
129 Lisp_Object Qexcl; | 129 Lisp_Object Qexcl; |
130 | 130 |
131 Lisp_Object Qauto_save_hook; | 131 Lisp_Object Qauto_save_hook; |
132 Lisp_Object Qauto_save_error; | 132 Lisp_Object Qauto_save_error; |
133 Lisp_Object Qauto_saving; | 133 Lisp_Object Qauto_saving; |
134 | |
135 Lisp_Object Qcar_less_than_car; | |
136 | 134 |
137 Lisp_Object Qcompute_buffer_file_truename; | 135 Lisp_Object Qcompute_buffer_file_truename; |
138 | 136 |
139 Lisp_Object QSin_expand_file_name; | 137 Lisp_Object QSin_expand_file_name; |
140 | 138 |
3675 start = make_int (BUF_BEGV (current_buffer)); | 3673 start = make_int (BUF_BEGV (current_buffer)); |
3676 end = make_int (BUF_ZV (current_buffer)); | 3674 end = make_int (BUF_ZV (current_buffer)); |
3677 annotations = Qnil; | 3675 annotations = Qnil; |
3678 } | 3676 } |
3679 Flength (res); /* Check basic validity of return value */ | 3677 Flength (res); /* Check basic validity of return value */ |
3680 annotations = list_merge (annotations, res, NULL, Qlss, Qcar); | 3678 annotations = list_merge (annotations, res, check_lss_key_car, Qnil, |
3679 Qnil); | |
3681 p = Fcdr (p); | 3680 p = Fcdr (p); |
3682 } | 3681 } |
3683 | 3682 |
3684 /* Now do the same for annotation functions implied by the file-format */ | 3683 /* Now do the same for annotation functions implied by the file-format */ |
3685 if (UNBOUNDP (XSYMBOL_FUNCTION (Qformat_annotate_function))) | 3684 if (UNBOUNDP (XSYMBOL_FUNCTION (Qformat_annotate_function))) |
3706 start = make_int (BUF_BEGV (current_buffer)); | 3705 start = make_int (BUF_BEGV (current_buffer)); |
3707 end = make_int (BUF_ZV (current_buffer)); | 3706 end = make_int (BUF_ZV (current_buffer)); |
3708 annotations = Qnil; | 3707 annotations = Qnil; |
3709 } | 3708 } |
3710 Flength (res); | 3709 Flength (res); |
3711 annotations = list_merge (annotations, res, NULL, Qlss, Qcar); | 3710 annotations = list_merge (annotations, res, check_lss_key_car, Qnil, |
3711 Qnil); | |
3712 p = Fcdr (p); | 3712 p = Fcdr (p); |
3713 } | 3713 } |
3714 | 3714 |
3715 UNGCPRO; | 3715 UNGCPRO; |
3716 return annotations; | 3716 return annotations; |
4379 DEFSYMBOL (Qfile_newer_than_file_p); | 4379 DEFSYMBOL (Qfile_newer_than_file_p); |
4380 DEFSYMBOL (Qinsert_file_contents); | 4380 DEFSYMBOL (Qinsert_file_contents); |
4381 DEFSYMBOL (Qwrite_region); | 4381 DEFSYMBOL (Qwrite_region); |
4382 DEFSYMBOL (Qverify_visited_file_modtime); | 4382 DEFSYMBOL (Qverify_visited_file_modtime); |
4383 DEFSYMBOL (Qset_visited_file_modtime); | 4383 DEFSYMBOL (Qset_visited_file_modtime); |
4384 DEFSYMBOL (Qcar_less_than_car); /* Vomitous! */ | |
4385 DEFSYMBOL (Qexcl); | 4384 DEFSYMBOL (Qexcl); |
4386 | 4385 |
4387 DEFSYMBOL (Qauto_save_hook); | 4386 DEFSYMBOL (Qauto_save_hook); |
4388 DEFSYMBOL (Qauto_save_error); | 4387 DEFSYMBOL (Qauto_save_error); |
4389 DEFSYMBOL (Qauto_saving); | 4388 DEFSYMBOL (Qauto_saving); |