Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3814ccf5
Commit
3814ccf5
authored
Mar 25, 1994
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(add_properties, remove_properties): Use assignment, not initialization.
parent
2e4149a8
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
4 deletions
+6
-4
src/textprop.c
src/textprop.c
+6
-4
No files found.
src/textprop.c
View file @
3814ccf5
...
...
@@ -341,8 +341,9 @@ add_properties (plist, i, object)
for
(
tail2
=
i
->
plist
;
!
NILP
(
tail2
);
tail2
=
Fcdr
(
Fcdr
(
tail2
)))
if
(
EQ
(
sym1
,
Fcar
(
tail2
)))
{
register
Lisp_Object
this_cdr
=
Fcdr
(
tail2
)
;
register
Lisp_Object
this_cdr
;
this_cdr
=
Fcdr
(
tail2
);
/* Found the property. Now check its value. */
found
=
1
;
...
...
@@ -396,10 +397,10 @@ remove_properties (plist, i, object)
INTERVAL
i
;
Lisp_Object
object
;
{
register
Lisp_Object
tail1
,
tail2
,
sym
;
register
Lisp_Object
current_plist
=
i
->
plist
;
register
Lisp_Object
tail1
,
tail2
,
sym
,
current_plist
;
register
int
changed
=
0
;
current_plist
=
i
->
plist
;
/* Go through each element of plist. */
for
(
tail1
=
plist
;
!
NILP
(
tail1
);
tail1
=
Fcdr
(
Fcdr
(
tail1
)))
{
...
...
@@ -426,7 +427,8 @@ remove_properties (plist, i, object)
tail2
=
current_plist
;
while
(
!
NILP
(
tail2
))
{
register
Lisp_Object
this
=
Fcdr
(
Fcdr
(
tail2
));
register
Lisp_Object
this
;
this
=
Fcdr
(
Fcdr
(
tail2
));
if
(
EQ
(
sym
,
Fcar
(
this
)))
{
if
(
XTYPE
(
object
)
==
Lisp_Buffer
)
...
...
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