From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 9 Dec 1994 14:15:06 +0000 (+0000)
Subject: (Fbyte_code): Call Ffollowing_char and Fprevious_char
X-Git-Tag: emacs-19.34~5721
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af09cb431efd4a6cc448f28313ec33b7c2dc22f2;p=emacs.git

(Fbyte_code): Call Ffollowing_char and Fprevious_char
as functions.  Don't mask char-syntax arg to just 8 bits.
---

diff --git a/src/bytecode.c b/src/bytecode.c
index f201adebfc6..39e2ae4a434 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -861,12 +861,12 @@ If the third argument is incorrect, Emacs may crash.")
 	  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 @@ If the third argument is incorrect, Emacs may crash.")
 	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: