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