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