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);