# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 696014510 0
# Node ID b7a1e4e4e7e6fa921d39acdaaece7b94a60cee41
# Parent  e6c69aa0f536ddde654b4cee0d6f62b5c76c9c63
*** empty log message ***

diff -r e6c69aa0f536 -r b7a1e4e4e7e6 src/editfns.c
--- a/src/editfns.c	Tue Jan 21 00:02:58 1992 +0000
+++ b/src/editfns.c	Tue Jan 21 17:21:50 1992 +0000
@@ -377,17 +377,22 @@
   return buildmark (ZV);
 }
 
-DEFUN ("following-char", Ffollchar, Sfollchar, 0, 0, 0,
-  "Return the character following point, as a number.")
+DEFUN ("following-char", Ffollowing_char, Sfollowing_char, 0, 0, 0,
+  "Return the character following point, as a number.\n\
+At the end of the buffer or accessible region, return 0.")
   ()
 {
   Lisp_Object temp;
-  XFASTINT (temp) = FETCH_CHAR (point);
+  if (point >= ZV)
+    XFASTINT (temp) = 0;
+  else
+    XFASTINT (temp) = FETCH_CHAR (point);
   return temp;
 }
 
-DEFUN ("preceding-char", Fprevchar, Sprevchar, 0, 0, 0,
-  "Return the character preceding point, as a number.")
+DEFUN ("preceding-char", Fprevious_char, Sprevious_char, 0, 0, 0,
+  "Return the character preceding point, as a number.\n\
+At the beginning of the buffer or accessible region, return 0.")
   ()
 {
   Lisp_Object temp;
@@ -1232,8 +1237,8 @@
   defsubr (&Seobp);
   defsubr (&Sbolp);
   defsubr (&Seolp);
-  defsubr (&Sfollchar);
-  defsubr (&Sprevchar);
+  defsubr (&Sfollowing_char);
+  defsubr (&Sprevious_char);
   defsubr (&Schar_after);
   defsubr (&Sinsert);
   defsubr (&Sinsert_before_markers);