Fix selection: selclear in tputc

[st.git] / st.c

diff --git a/st.c b/st.c
index 1414f98..8c42a9c 100644 (file)
--- a/st.c
+++ b/st.c
@@ -2153,6 +2153,7 @@ tcontrolcode(uchar ascii)
                return;
        case '\032': /* SUB */
                tsetchar('?', &term.c.attr, term.c.x, term.c.y);
                return;
        case '\032': /* SUB */
                tsetchar('?', &term.c.attr, term.c.x, term.c.y);

+               /* FALLTHROUGH */

        case '\030': /* CAN */
                csireset();
                break;
        case '\030': /* CAN */
                csireset();
                break;


@@ -2411,7 +2412,7 @@ check_control_code:
                 */
                return;
        }
                 */
                return;
        }

-       if (sel.ob.x != -1 && BETWEEN(term.c.y, sel.ob.y, sel.oe.y))
+       if (selected(term.c.x, term.c.y))

                selclear();
 
        gp = &term.line[term.c.y][term.c.x];
                selclear();
 
        gp = &term.line[term.c.y][term.c.x];