mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-19 10:22:27 +00:00
Code Issues Releases Activity

(internal_self_insert): Simplify handling of c2;

Browse Source 
avoid testing enable-multibyte-characters.
(internal_self_insert): Use make_multibyte_string.
This commit is contained in:
Richard M. Stallman 1998-01-09 23:04:20 +00:00
parent 87b089add4
commit 216b9443d5
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/cmds.c
View File

@ -372,11 +372,10 @@ internal_self_insert (c, noautofill)
we fill columns with spaces, if C is wider than C2, we delete
C2 and several characters following C2. */
/* A code at `point'. Since this is checked only against
NEWLINE and TAB, we don't need a character code but only the
first byte of multi-byte form. */
unsigned char c2 = FETCH_BYTE (PT_BYTE);
/* A column the cursor should be placed at after this insertion.
/* This is the character after point. */
int c2 = FETCH_CHAR (PT_BYTE);
/* Column the cursor should be placed at after this insertion.
The correct value should be calculated only when necessary. */
int target_clm = 0;
@ -391,9 +390,8 @@ internal_self_insert (c, noautofill)
&& ! (c2 == '\t'
&& XINT (current_buffer->tab_width) > 0
&& XFASTINT (current_buffer->tab_width) < 20
&& ((NILP (current_buffer->enable_multibyte_characters)
? (target_clm = current_column () + 1)
: (target_clm = current_column () + WIDTH_BY_CHAR_HEAD (str[0]))),
&& (target_clm = (current_column ()
+ XINT (Fchar_width (make_number (c2)))),
target_clm % XFASTINT (current_buffer->tab_width)))))
{
int pos = PT;
@ -453,7 +451,7 @@ internal_self_insert (c, noautofill)
if (chars_to_delete)
{
string = make_string (str, len);
string = make_multibyte_string (str, 1, len);
if (spaces_to_insert)
{
tem = Fmake_string (make_number (spaces_to_insert),