# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 866342519 0
# Node ID 9c4fb902b6ebdb4430f74be320ad7f91951051ac
# Parent  e0327e90d7066114ba1c12f591da99034e704f37
(Fchar_after, Fchar_before): Make arg optional.

diff -r e0327e90d706 -r 9c4fb902b6eb src/editfns.c
--- a/src/editfns.c	Sun Jun 15 02:37:58 1997 +0000
+++ b/src/editfns.c	Sun Jun 15 02:41:59 1997 +0000
@@ -560,7 +560,7 @@
   return Qnil;
 }
 
-DEFUN ("char-after", Fchar_after, Schar_after, 1, 1, 0,
+DEFUN ("char-after", Fchar_after, Schar_after, 0, 1, 0,
   "Return character in current buffer at position POS.\n\
 POS is an integer or a buffer pointer.\n\
 If POS is out of range, the value is nil.\n\
@@ -573,16 +573,22 @@
   register Lisp_Object val;
   register int n;
 
-  CHECK_NUMBER_COERCE_MARKER (pos, 0);
+  if (NILP (pos))
+    n = PT;
+  else
+    {
+      CHECK_NUMBER_COERCE_MARKER (pos, 0);
 
-  n = XINT (pos);
-  if (n < BEGV || n >= ZV) return Qnil;
+      n = XINT (pos);
+      if (n < BEGV || n >= ZV)
+	return Qnil;
+    }
 
   XSETFASTINT (val, FETCH_CHAR (n));
   return val;
 }
 
-DEFUN ("char-before", Fchar_before, Schar_before, 1, 1, 0,
+DEFUN ("char-before", Fchar_before, Schar_before, 0, 1, 0,
   "Return character in current buffer preceding position POS.\n\
 POS is an integer or a buffer pointer.\n\
 If POS is out of range, the value is nil.\n\
@@ -595,10 +601,16 @@
   register Lisp_Object val;
   register int n;
 
-  CHECK_NUMBER_COERCE_MARKER (pos, 0);
+  if (NILP (pos))
+    n = PT;
+  else
+    {
+      CHECK_NUMBER_COERCE_MARKER (pos, 0);
 
-  n = XINT (pos);
-  if (n <= BEGV || n > ZV) return Qnil;
+      n = XINT (pos);
+      if (n < BEGV || n >= ZV)
+	return Qnil;
+    }
 
   if (!NILP (current_buffer->enable_multibyte_characters))
     {