diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-01-01 02:39:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-01-01 02:39:04 +0000 |
| commit | 8458ede666107dad36e242a386cd2f17f9343eef (patch) | |
| tree | c3d715dafb9da63db40cfe753fe22a5bc35f7e78 /src/keyboard.c | |
| parent | 3f236a406617391c66addb76a2129fa087d70182 (diff) | |
| download | emacs-8458ede666107dad36e242a386cd2f17f9343eef.tar.gz | |
(command_loop_1): Use PT_BYTE when calling FETCH_BYTE.
Instead of Fforward_point, just add.
Diffstat (limited to 'src/keyboard.c')
| -rw-r--r-- | src/keyboard.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index b060ce6a648..248b85e97e2 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -1283,8 +1283,8 @@ command_loop_1 () { struct Lisp_Char_Table *dp = window_display_table (XWINDOW (selected_window)); - lose = FETCH_BYTE (PT); - SET_PT (forward_point (1)); + lose = FETCH_BYTE (PT_BYTE); + SET_PT (PT + 1); if ((dp ? (VECTORP (DISP_CHAR_VECTOR (dp, lose)) ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1 @@ -1293,7 +1293,7 @@ command_loop_1 () : (lose >= 0x20 && lose < 0x7f)) /* To extract the case of continuation on wide-column characters. */ - && (WIDTH_BY_CHAR_HEAD (FETCH_BYTE (PT)) == 1) + && (WIDTH_BY_CHAR_HEAD (FETCH_BYTE (PT_BYTE)) == 1) && (XFASTINT (XWINDOW (selected_window)->last_modified) >= MODIFF) && (XFASTINT (XWINDOW (selected_window)->last_overlay_modified) @@ -1312,8 +1312,8 @@ command_loop_1 () { struct Lisp_Char_Table *dp = window_display_table (XWINDOW (selected_window)); - SET_PT (forward_point (-1)); - lose = FETCH_BYTE (PT); + SET_PT (PT - 1); + lose = FETCH_BYTE (PT_BYTE); if ((dp ? (VECTORP (DISP_CHAR_VECTOR (dp, lose)) ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1 @@ -1370,7 +1370,7 @@ command_loop_1 () nonundocount = 0; if (!lose - && (PT == ZV || FETCH_BYTE (PT) == '\n')) + && (PT == ZV || FETCH_BYTE (PT_BYTE) == '\n')) { struct Lisp_Char_Table *dp = window_display_table (XWINDOW (selected_window)); |