Mercurial > emacs

changeset 397:a17df2fec87b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Fri, 16 Aug 1991 05:24:51 +0000
parents d0eb77a4d8f7
children a60eafebd43f
files src/abbrev.c
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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;