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
c4628384
Commit
c4628384
authored
Aug 07, 1994
by
Richard M. Stallman
Browse files
(display_text_line): Use the face properties of the overlay arrow, if any.
parent
70fcd1c2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
22 additions
and
2 deletions
+22
-2
src/xdisp.c
src/xdisp.c
+22
-2
No files found.
src/xdisp.c
View file @
c4628384
...
...
@@ -42,6 +42,8 @@ extern void set_frame_menubar ();
extern
int
interrupt_input
;
extern
int
command_loop_level
;
extern
Lisp_Object
Qface
;
/* Nonzero means print newline before next minibuffer message. */
int
noninteractive_need_newline
;
...
...
@@ -2488,8 +2490,26 @@ display_text_line (w, start, vpos, hpos, taboffset)
if
(
len
>
width
)
len
=
width
;
for
(
i
=
0
;
i
<
len
;
i
++
)
leftmargin
[
i
]
=
p
[
i
];
if
(
!
NULL_INTERVAL_P
(
XSTRING
(
Voverlay_arrow_string
)
->
intervals
))
{
/* If the arrow string has text props, obey them when displaying. */
for
(
i
=
0
;
i
<
len
;
i
++
)
{
int
c
=
p
[
i
];
Lisp_Object
face
,
ilisp
;
int
newface
;
XFASTINT
(
ilisp
)
=
i
;
face
=
Fget_text_property
(
ilisp
,
Qface
,
Voverlay_arrow_string
);
newface
=
compute_glyph_face_1
(
f
,
face
,
0
);
leftmargin
[
i
]
=
FAST_MAKE_GLYPH
(
c
,
newface
);
}
}
else
{
for
(
i
=
0
;
i
<
len
;
i
++
)
leftmargin
[
i
]
=
p
[
i
];
}
/* Bug in SunOS 4.1.1 compiler requires this intermediate variable. */
arrow_end
=
(
leftmargin
-
desired_glyphs
->
glyphs
[
vpos
])
+
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