From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Fri, 24 May 2019 15:51:16 +0000 (+0200)
Subject: some more ops
X-Git-Tag: emacs-28.0.90~2727^2~1521
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68472f45a6a441b1436b5949c0384dd57111077c;p=emacs.git

some more ops
---

diff --git a/src/comp.c b/src/comp.c
index 4b01a057054..8cb7cbf4ad6 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -669,18 +669,17 @@ compile_f (const char *f_name, ptrdiff_t bytestr_length,
 	case Bpoint_min:
 	  error ("Bpoint_min\n");
 	  break;
-	case Bchar_after:
-	  error ("Bchar_after\n");
-	  break;
-	case Bfollowing_char:
-	  error ("Bfollowing_char\n");
-	  break;
+
+	CASE_CALL_NARGS (char_after, 1);
+	CASE_CALL_NARGS (following_char, 0);
+
 	case Bpreceding_char:
-	  error ("Bpreceding_char\n");
-	  break;
-	case Bcurrent_column:
-	  error ("Bcurrent_column\n");
+	  res = jit_emit_call (Fprevious_char, comp.lisp_obj_type, 0, args);
+	  PUSH (gcc_jit_lvalue_as_rvalue (res));
 	  break;
+
+	CASE_CALL_NARGS (current_column, 0);
+
 	case Bindent_to:
 	  error ("Bindent_to\n");
 	  break;