Mercurial > emacs
comparison src/abbrev.c @ 397:a17df2fec87b
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Fri, 16 Aug 1991 05:24:51 +0000 |
parents | db0041ccc1e6 |
children | 8f18e7e89008 |
comparison
equal
deleted
inserted
replaced
396:d0eb77a4d8f7 | 397:a17df2fec87b |
---|---|
306 caped: ; | 306 caped: ; |
307 } | 307 } |
308 else if (uccount) | 308 else if (uccount) |
309 { | 309 { |
310 /* Abbrev included some caps. Cap first initial of expansion */ | 310 /* Abbrev included some caps. Cap first initial of expansion */ |
311 idx = point; | 311 int old_zv = ZV; |
312 int old_pt = point; | |
313 | |
314 /* Don't let Fcapitalize_word operate on text after point. */ | |
315 ZV = point; | |
312 SET_PT (wordstart); | 316 SET_PT (wordstart); |
313 Fcapitalize_word (make_number (1)); | 317 Fcapitalize_word (make_number (1)); |
314 SET_PT (idx); | 318 |
319 SET_PT (old_pt); | |
320 ZV = old_zv; | |
315 } | 321 } |
316 | 322 |
317 hook = XSYMBOL (sym)->function; | 323 hook = XSYMBOL (sym)->function; |
318 if (!NULL (hook)) | 324 if (!NULL (hook)) |
319 call0 (hook); | 325 call0 (hook); |