Mercurial > emacs

changeset 20539:4eae32c75642

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command_loop_1): Use PT_BYTE when calling FETCH_BYTE. Instead of Fforward_point, just add.
author Richard M. Stallman <rms@gnu.org>
date Thu, 01 Jan 1998 02:39:04 +0000
parents b964f3facafa
children 64b4e34d34c2
files src/keyboard.c
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/keyboard.c	Thu Jan 01 02:37:16 1998 +0000
+++ b/src/keyboard.c	Thu Jan 01 02:39:04 1998 +0000
@@ -1283,8 +1283,8 @@
 		{
                   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 @@
 		       : (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 @@
 		{
                   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 @@
 		    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));