# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 682320291 0
# Node ID a17df2fec87bf730ddcea7f03ccc09db15ff7b67
# Parent  d0eb77a4d8f776dc63184ec430018da2c8a895ae
*** empty log message ***

diff -r d0eb77a4d8f7 -r a17df2fec87b src/abbrev.c
--- a/src/abbrev.c	Fri Aug 16 04:13:50 1991 +0000
+++ b/src/abbrev.c	Fri Aug 16 05:24:51 1991 +0000
@@ -308,10 +308,16 @@
   else if (uccount)
     {
       /* Abbrev included some caps.  Cap first initial of expansion */
-      idx = point;
+      int old_zv = ZV;
+      int old_pt = point;
+
+      /* Don't let Fcapitalize_word operate on text after point.  */
+      ZV = point;
       SET_PT (wordstart);
       Fcapitalize_word (make_number (1));
-      SET_PT (idx);
+
+      SET_PT (old_pt);
+      ZV = old_zv;
     }
 
   hook = XSYMBOL (sym)->function;