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
2bce5643
Commit
2bce5643
authored
Jul 11, 2012
by
Dmitry Antipov
Browse files
Simplify Vobarray checking in oblookup.
* lread.c (oblookup): Simplify Vobarray checking.
parent
4b575b3c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
7 deletions
+5
-7
src/ChangeLog
src/ChangeLog
+2
-1
src/lread.c
src/lread.c
+3
-6
No files found.
src/ChangeLog
View file @
2bce5643
...
...
@@ -4,7 +4,8 @@
* lisp.h (intern, intern_c_string): Redefine as static inline
wrappers for intern_1 and intern_c_string_1, respectively.
(intern_1, intern_c_string_1): Rename prototypes.
* lread.c (intern_1, intern_c_string_1): Simplify Vobarray checking.
* lread.c (intern_1, intern_c_string_1, oblookup): Simplify
Vobarray checking.
* font.c (font_intern_prop): Likewise. Adjust comment.
* w32font.c (intern_font_name): Likewise.
...
...
src/lread.c
View file @
2bce5643
...
...
@@ -3835,12 +3835,9 @@ oblookup (Lisp_Object obarray, register const char *ptr, ptrdiff_t size, ptrdiff
register
Lisp_Object
tail
;
Lisp_Object
bucket
,
tem
;
if
(
!
VECTORP
(
obarray
)
||
(
obsize
=
ASIZE
(
obarray
))
==
0
)
{
obarray
=
check_obarray
(
obarray
);
obsize
=
ASIZE
(
obarray
);
}
obarray
=
check_obarray
(
obarray
);
obsize
=
ASIZE
(
obarray
);
/* This is sometimes needed in the middle of GC. */
obsize
&=
~
ARRAY_MARK_FLAG
;
hash
=
hash_string
(
ptr
,
size_byte
)
%
obsize
;
...
...
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