HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c495e60
)
*** empty log message ***
author
Jim Blandy
<jimb@redhat.com>
Tue, 21 Jan 1992 17:21:50 +0000
(17:21 +0000)
committer
Jim Blandy
<jimb@redhat.com>
Tue, 21 Jan 1992 17:21:50 +0000
(17:21 +0000)
src/editfns.c
patch
|
blob
|
blame
|
history
diff --git
a/src/editfns.c
b/src/editfns.c
index
0f05907
..
2d75d10
100644
(file)
--- a/
src/editfns.c
+++ b/
src/editfns.c
@@
-377,17
+377,22
@@
in which case it is less.")
return buildmark (ZV);
}
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;
()
{
Lisp_Object temp;
- XFASTINT (temp) = FETCH_CHAR (point);
+ if (point >= ZV)
+ XFASTINT (temp) = 0;
+ else
+ XFASTINT (temp) = FETCH_CHAR (point);
return temp;
}
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;
()
{
Lisp_Object temp;
@@
-1232,8
+1237,8
@@
syms_of_editfns ()
defsubr (&Seobp);
defsubr (&Sbolp);
defsubr (&Seolp);
defsubr (&Seobp);
defsubr (&Sbolp);
defsubr (&Seolp);
- defsubr (&Sfollchar);
- defsubr (&Sprevchar);
+ defsubr (&Sfoll
owing_
char);
+ defsubr (&Sprev
ious_
char);
defsubr (&Schar_after);
defsubr (&Sinsert);
defsubr (&Sinsert_before_markers);
defsubr (&Schar_after);
defsubr (&Sinsert);
defsubr (&Sinsert_before_markers);