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
153a17b7
Commit
153a17b7
authored
Mar 23, 1994
by
Karl Heuer
Browse files
(read_filtered_event, intern): Use assignment instead of initialization.
parent
e9b6dfb0
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
3 deletions
+5
-3
src/lread.c
src/lread.c
+5
-3
No files found.
src/lread.c
View file @
153a17b7
...
...
@@ -213,8 +213,9 @@ read_filtered_event (no_switch_frame, ascii_required, error_nonascii)
#ifdef standalone
return
make_number
(
getchar
());
#else
register
Lisp_Object
val
;
register
Lisp_Object
delayed_switch_frame
=
Qnil
;
register
Lisp_Object
val
,
delayed_switch_frame
;
delayed_switch_frame
=
Qnil
;
/* Read until we get an acceptable event. */
retry:
...
...
@@ -1520,8 +1521,9 @@ intern (str)
{
Lisp_Object
tem
;
int
len
=
strlen
(
str
);
Lisp_Object
obarray
=
Vobarray
;
Lisp_Object
obarray
;
obarray
=
Vobarray
;
if
(
XTYPE
(
obarray
)
!=
Lisp_Vector
||
XVECTOR
(
obarray
)
->
size
==
0
)
obarray
=
check_obarray
(
obarray
);
tem
=
oblookup
(
obarray
,
str
,
len
);
...
...
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