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
538f9462
Commit
538f9462
authored
Nov 03, 2002
by
Stefan Monnier
Browse files
(get_pos_property): Don't hardcode Qfield.
parent
3a6607a2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
src/editfns.c
src/editfns.c
+4
-4
No files found.
src/editfns.c
View file @
538f9462
...
...
@@ -394,7 +394,7 @@ overlays_around (pos, vec, len)
If OBJECT is a window, then that window's buffer is used, but
window-specific overlays are considered only if they are associated
with OBJECT. */
static
Lisp_Object
Lisp_Object
get_pos_property
(
position
,
prop
,
object
)
Lisp_Object
position
,
object
;
register
Lisp_Object
prop
;
...
...
@@ -460,12 +460,12 @@ get_pos_property (position, prop, object)
}
{
/* Now check the text-properties. */
int
stickiness
=
text_property_stickiness
(
Qfield
,
position
);
int
stickiness
=
text_property_stickiness
(
prop
,
position
);
if
(
stickiness
>
0
)
return
Fget_text_property
(
position
,
Qfield
,
Qnil
);
return
Fget_text_property
(
position
,
prop
,
Qnil
);
else
if
(
stickiness
<
0
&&
XINT
(
position
)
>
BEGV
)
return
Fget_text_property
(
make_number
(
XINT
(
position
)
-
1
),
Qfield
,
Qnil
);
prop
,
Qnil
);
else
return
Qnil
;
}
...
...
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