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
7ea7f636
Commit
7ea7f636
authored
Jun 19, 2006
by
Kenichi Handa
Browse files
(read_escape): Fix the code synched with HEAD.
parent
9ca37324
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
18 deletions
+1
-18
src/lread.c
src/lread.c
+1
-18
No files found.
src/lread.c
View file @
7ea7f636
...
...
@@ -2103,8 +2103,6 @@ read_escape (readcharfun, stringp)
{
int
i
=
0
;
int
count
=
0
;
Lisp_Object
lisp_char
;
struct
gcpro
gcpro1
;
while
(
++
count
<=
unicode_hex_count
)
{
...
...
@@ -2121,22 +2119,7 @@ read_escape (readcharfun, stringp)
}
}
GCPRO1
(
readcharfun
);
lisp_char
=
call2
(
intern
(
"decode-char"
),
intern
(
"ucs"
),
make_number
(
i
));
UNGCPRO
;
if
(
EQ
(
Qnil
,
lisp_char
))
{
/* This is ugly and horrible and trashes the user's data. */
XSETFASTINT
(
i
,
MAKE_CHAR
(
charset_katakana_jisx0201
,
34
+
128
,
46
+
128
));
return
i
;
}
else
{
return
XFASTINT
(
lisp_char
);
}
return
i
;
}
default:
...
...
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