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
4e491f8d
Commit
4e491f8d
authored
Jul 16, 2002
by
Ken Raeburn
Browse files
(Fstring_to_char): Use string macros instead of Lisp_String fields.
parent
9f5348e3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
5 deletions
+3
-5
src/editfns.c
src/editfns.c
+3
-5
No files found.
src/editfns.c
View file @
4e491f8d
...
...
@@ -194,15 +194,13 @@ A multibyte character is handled correctly. */)
register
Lisp_Object
string
;
{
register
Lisp_Object
val
;
register
struct
Lisp_String
*
p
;
CHECK_STRING
(
string
);
p
=
XSTRING
(
string
);
if
(
p
->
size
)
if
(
SCHARS
(
string
))
{
if
(
STRING_MULTIBYTE
(
string
))
XSETFASTINT
(
val
,
STRING_CHAR
(
p
->
data
,
STRING_
BYTES
(
p
)));
XSETFASTINT
(
val
,
STRING_CHAR
(
SDATA
(
string
),
S
BYTES
(
string
)));
else
XSETFASTINT
(
val
,
p
->
data
[
0
]
);
XSETFASTINT
(
val
,
SREF
(
string
,
0
)
);
}
else
XSETFASTINT
(
val
,
0
);
...
...
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