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
b079118d
Commit
b079118d
authored
Apr 29, 2002
by
Stefan Monnier
Browse files
(remove_properties): Don't use XCAR without CONSP.
parent
96035dca
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
src/textprop.c
src/textprop.c
+3
-3
No files found.
src/textprop.c
View file @
b079118d
...
...
@@ -463,12 +463,12 @@ remove_properties (plist, list, i, object)
tail1
=
list
,
use_plist
=
0
;
/* Go through each element of LIST or PLIST. */
while
(
!
NIL
P
(
tail1
))
while
(
CONS
P
(
tail1
))
{
sym
=
XCAR
(
tail1
);
/* First, remove the symbol if it's at the head of the list */
while
(
!
NIL
P
(
current_plist
)
&&
EQ
(
sym
,
XCAR
(
current_plist
)))
while
(
CONS
P
(
current_plist
)
&&
EQ
(
sym
,
XCAR
(
current_plist
)))
{
if
(
BUFFERP
(
object
))
record_property_change
(
i
->
position
,
LENGTH
(
i
),
...
...
@@ -485,7 +485,7 @@ remove_properties (plist, list, i, object)
{
register
Lisp_Object
this
;
this
=
XCDR
(
XCDR
(
tail2
));
if
(
EQ
(
sym
,
XCAR
(
this
)))
if
(
CONSP
(
this
)
&&
EQ
(
sym
,
XCAR
(
this
)))
{
if
(
BUFFERP
(
object
))
record_property_change
(
i
->
position
,
LENGTH
(
i
),
...
...
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