comparison src/abbrev.c @ 88123:375f2633d815

New directory
author Kenichi Handa <handa@m17n.org>
date Mon, 08 Sep 2003 11:56:09 +0000
parents 695cf19ef79e
children 2f877ed80fa6
comparison
equal deleted inserted replaced
52428:27bc8b966642 88123:375f2633d815
354 expansion = SYMBOL_VALUE (sym); 354 expansion = SYMBOL_VALUE (sym);
355 if (STRINGP (expansion)) 355 if (STRINGP (expansion))
356 { 356 {
357 SET_PT (wordstart); 357 SET_PT (wordstart);
358 358
359 del_range_both (wordstart, wordstart_byte, wordend, wordend_byte, 1);
360
359 insert_from_string (expansion, 0, 0, SCHARS (expansion), 361 insert_from_string (expansion, 0, 0, SCHARS (expansion),
360 SBYTES (expansion), 1); 362 SBYTES (expansion), 1);
361 del_range_both (PT, PT_BYTE,
362 wordend + (PT - wordstart),
363 wordend_byte + (PT_BYTE - wordstart_byte),
364 1);
365
366 SET_PT (PT + whitecnt); 363 SET_PT (PT + whitecnt);
367 364
368 if (uccount && !lccount) 365 if (uccount && !lccount)
369 { 366 {
370 /* Abbrev was all caps */ 367 /* Abbrev was all caps */
691 defsubr (&Sexpand_abbrev); 688 defsubr (&Sexpand_abbrev);
692 defsubr (&Sunexpand_abbrev); 689 defsubr (&Sunexpand_abbrev);
693 defsubr (&Sinsert_abbrev_table_description); 690 defsubr (&Sinsert_abbrev_table_description);
694 defsubr (&Sdefine_abbrev_table); 691 defsubr (&Sdefine_abbrev_table);
695 } 692 }
696
697 /* arch-tag: b721db69-f633-44a8-a361-c275acbdad7d
698 (do not change this comment) */