Mercurial > emacs

changeset 10134:c681703f7ce3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fbyte_code): Call Ffollowing_char and Fprevious_char as functions. Don't mask char-syntax arg to just 8 bits.
author Richard M. Stallman <rms@gnu.org>
date Fri, 09 Dec 1994 14:15:06 +0000
parents 3f9bc256eb13
children 8796f9a59a70
files src/bytecode.c
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/bytecode.c	Fri Dec 09 06:24:22 1994 +0000
+++ b/src/bytecode.c	Fri Dec 09 14:15:06 1994 +0000
@@ -861,12 +861,12 @@
 	  break;
 
 	case Bfollowing_char:
-	  XSETFASTINT (v1, PT == ZV ? 0 : FETCH_CHAR (point));
+	  v1 = Ffollowing_char ();
 	  PUSH (v1);
 	  break;
 
 	case Bpreceding_char:
-	  XSETFASTINT (v1, point <= BEGV ? 0 : FETCH_CHAR (point - 1));
+	  v1 = Fprevious_char ();
 	  PUSH (v1);
 	  break;
 
@@ -937,7 +937,7 @@
 	case Bchar_syntax:
 	  CHECK_NUMBER (TOP, 0);
 	  XSETFASTINT (TOP,
-		       syntax_code_spec[(int) SYNTAX (0xFF & XINT (TOP))]);
+		       syntax_code_spec[(int) SYNTAX (XINT (TOP))]);
 	  break;
 
 	case Bbuffer_substring: