Mercurial > emacs
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) */ |