Mercurial > hg > xemacs-beta
comparison src/abbrev.c @ 771:943eaba38521
[xemacs-hg @ 2002-03-13 08:51:24 by ben]
The big ben-mule-21-5 check-in!
Various files were added and deleted. See CHANGES-ben-mule.
There are still some test suite failures. No crashes, though.
Many of the failures have to do with problems in the test suite itself
rather than in the actual code. I'll be addressing these in the next
day or so -- none of the test suite failures are at all critical.
Meanwhile I'll be trying to address the biggest issues -- i.e. build
or run failures, which will almost certainly happen on various platforms.
All comments should be sent to ben@xemacs.org -- use a Cc: if necessary
when sending to mailing lists. There will be pre- and post- tags,
something like
pre-ben-mule-21-5-merge-in, and
post-ben-mule-21-5-merge-in.
author | ben |
---|---|
date | Wed, 13 Mar 2002 08:54:06 +0000 |
parents | fdefd0186b75 |
children | e38acbeb1cae |
comparison
equal
deleted
inserted
replaced
770:336a418893b5 | 771:943eaba38521 |
---|---|
368 /* Abbrev was all caps */ | 368 /* Abbrev was all caps */ |
369 if (!abbrev_all_caps | 369 if (!abbrev_all_caps |
370 && scan_words (buf, point, -1) > scan_words (buf, abbrev_start, 1)) | 370 && scan_words (buf, point, -1) > scan_words (buf, abbrev_start, 1)) |
371 { | 371 { |
372 Fupcase_initials_region (make_int (abbrev_start), make_int (point), | 372 Fupcase_initials_region (make_int (abbrev_start), make_int (point), |
373 make_buffer (buf)); | 373 wrap_buffer (buf)); |
374 } | 374 } |
375 else | 375 else |
376 { | 376 { |
377 /* If expansion is one word, or if user says so, upcase it all. */ | 377 /* If expansion is one word, or if user says so, upcase it all. */ |
378 Fupcase_region (make_int (abbrev_start), make_int (point), | 378 Fupcase_region (make_int (abbrev_start), make_int (point), |
379 make_buffer (buf)); | 379 wrap_buffer (buf)); |
380 } | 380 } |
381 } | 381 } |
382 else if (uccount) | 382 else if (uccount) |
383 { | 383 { |
384 /* Abbrev included some caps. Cap first initial of expansion */ | 384 /* Abbrev included some caps. Cap first initial of expansion */ |
388 && !WORD_SYNTAX_P (XCHAR_TABLE (buf->mirror_syntax_table), | 388 && !WORD_SYNTAX_P (XCHAR_TABLE (buf->mirror_syntax_table), |
389 BUF_FETCH_CHAR (buf, pos))) | 389 BUF_FETCH_CHAR (buf, pos))) |
390 pos++; | 390 pos++; |
391 /* Change just that. */ | 391 /* Change just that. */ |
392 Fupcase_initials_region (make_int (pos), make_int (pos + 1), | 392 Fupcase_initials_region (make_int (pos), make_int (pos + 1), |
393 make_buffer (buf)); | 393 wrap_buffer (buf)); |
394 } | 394 } |
395 | 395 |
396 hook = symbol_function (abbrev_symbol); | 396 hook = symbol_function (abbrev_symbol); |
397 if (!NILP (hook) && !UNBOUNDP (hook)) | 397 if (!NILP (hook) && !UNBOUNDP (hook)) |
398 call0 (hook); | 398 call0 (hook); |