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