comparison src/abbrev.c @ 9054:ddb22c22a80d

(Fexpand_abbrev): Instead of Fcapitalize_region, just upcase the first initial.

9053:4887fc1a2dda

#include <stdio.h>
#include "lisp.h"
#include "commands.h"
#include "buffer.h"
#include "window.h"

/* An abbrev table is an obarray.
 Each defined abbrev is represented by a symbol in that obarray
 whose print name is the abbreviation.
 The symbol's value is a string which is the expansion.

    caped: ;
    }
  else if (uccount)
    {
      /* Abbrev included some caps.  Cap first initial of expansion */
      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 (old_pt);
      ZV = old_zv;
    }

  hook = XSYMBOL (sym)->function;
  if (!NILP (hook))
    call0 (hook);

9054:ddb22c22a80d

#include <stdio.h>
#include "lisp.h"
#include "commands.h"
#include "buffer.h"
#include "window.h"
#include "syntax.h"

/* An abbrev table is an obarray.
 Each defined abbrev is represented by a symbol in that obarray
 whose print name is the abbreviation.
 The symbol's value is a string which is the expansion.

    caped: ;
    }
  else if (uccount)
    {
      /* Abbrev included some caps.  Cap first initial of expansion */
      int pos = wordstart;

      /* Find the initial.  */
      while (pos < point
	     && SYNTAX (*BUF_CHAR_ADDRESS (current_buffer, pos)) != Sword)
	pos++;

      /* Change just that.  */
      Fupcase_initials_region (make_number (pos), make_number (pos + 1));
    }

  hook = XSYMBOL (sym)->function;
  if (!NILP (hook))
    call0 (hook);