Mercurial > hg > xemacs-beta
comparison src/editfns.c @ 5476:f2881cb841b4
Merged with trunk.
author | Mats Lidell <matsl@xemacs.org> |
---|---|
date | Tue, 26 Apr 2011 23:41:47 +0200 |
parents | 248176c74e6b 568ec109e73d |
children | 56144c8593a8 |
comparison
equal
deleted
inserted
replaced
5475:248176c74e6b | 5476:f2881cb841b4 |
---|---|
2256 return (!NILP (b->case_fold_search) | 2256 return (!NILP (b->case_fold_search) |
2257 ? CANONCASE (b, x1) == CANONCASE (b, x2) | 2257 ? CANONCASE (b, x1) == CANONCASE (b, x2) |
2258 : x1 == x2) | 2258 : x1 == x2) |
2259 ? Qt : Qnil; | 2259 ? Qt : Qnil; |
2260 } | 2260 } |
2261 | |
2262 DEFUN ("char=", Fchar_Equal, 2, 2, 0, /* | |
2263 Return t if two characters match, case is significant. | |
2264 Both arguments must be characters (i.e. NOT integers). | |
2265 */ | |
2266 (character1, character2)) | |
2267 { | |
2268 CHECK_CHAR_COERCE_INT (character1); | |
2269 CHECK_CHAR_COERCE_INT (character2); | |
2270 | |
2271 return EQ (character1, character2) ? Qt : Qnil; | |
2272 } | |
2273 | 2261 |
2274 #if 0 /* Undebugged FSFmacs code */ | 2262 #if 0 /* Undebugged FSFmacs code */ |
2275 /* Transpose the markers in two regions of the current buffer, and | 2263 /* Transpose the markers in two regions of the current buffer, and |
2276 adjust the ones between them if necessary (i.e.: if the regions | 2264 adjust the ones between them if necessary (i.e.: if the regions |
2277 differ in size). | 2265 differ in size). |
2393 DEFSYMBOL (Qregion_end); | 2381 DEFSYMBOL (Qregion_end); |
2394 DEFSYMBOL (Qformat); | 2382 DEFSYMBOL (Qformat); |
2395 DEFSYMBOL (Quser_files_and_directories); | 2383 DEFSYMBOL (Quser_files_and_directories); |
2396 | 2384 |
2397 DEFSUBR (Fchar_equal); | 2385 DEFSUBR (Fchar_equal); |
2398 DEFSUBR (Fchar_Equal); | |
2399 DEFSUBR (Fgoto_char); | 2386 DEFSUBR (Fgoto_char); |
2400 DEFSUBR (Fstring_to_char); | 2387 DEFSUBR (Fstring_to_char); |
2401 DEFSUBR (Fchar_to_string); | 2388 DEFSUBR (Fchar_to_string); |
2402 DEFSUBR (Fbuffer_substring); | 2389 DEFSUBR (Fbuffer_substring); |
2403 DEFSUBR (Fbuffer_substring_no_properties); | 2390 DEFSUBR (Fbuffer_substring_no_properties); |