diff --git a/src/ChangeLog b/src/ChangeLog
index 08c4f509d2d07a8e3d50273955e0314124c3c390..e690c0b41709064f2416a0cebe436ceaecd414be 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2004-02-04  Luc Teirlinck  <teirllm@auburn.edu>
+
+	* editfns.c (Fchar_after, Fchar_before): Doc fixes.
+
 2004-02-05  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
 	* xselect.c: Include stdio,h.
diff --git a/src/editfns.c b/src/editfns.c
index d3039ca027392b35a11f75b87a1c0083f5afb595..9a1ce81f31637ec9f73df3a3189a41703f7ace4f 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1138,7 +1138,7 @@ DEFUN ("eolp", Feolp, Seolp, 0, 0, 0,
 
 DEFUN ("char-after", Fchar_after, Schar_after, 0, 1, 0,
        doc: /* Return character in current buffer at position POS.
-POS is an integer or a marker.
+POS is an integer or a marker and defaults to point.
 If POS is out of range, the value is nil.  */)
      (pos)
      Lisp_Object pos;
@@ -1171,7 +1171,7 @@ If POS is out of range, the value is nil.  */)
 
 DEFUN ("char-before", Fchar_before, Schar_before, 0, 1, 0,
        doc: /* Return character in current buffer preceding position POS.
-POS is an integer or a marker.
+POS is an integer or a marker and defaults to point.
 If POS is out of range, the value is nil.  */)
      (pos)
      Lisp_Object pos;