Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
850a8179
Commit
850a8179
authored
Jan 21, 1992
by
Jim Blandy
Browse files
*** empty log message ***
parent
c495e60e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
7 deletions
+12
-7
src/editfns.c
src/editfns.c
+12
-7
No files found.
src/editfns.c
View file @
850a8179
...
...
@@ -377,17 +377,22 @@ in which case it is less.")
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 @@ syms_of_editfns ()
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
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment