bug#67457: 29.1; Error when dragging mode line in terminal

[Stefan Monnier]

> And I have a better patch here.  The real issue is that xt-mouse generated
>  mouse-movement events were getting prefixed with mode-line or tab-line
>  symbols but other mouse-movement events were not.  The following simple
> change fixes that:
>
> --- a/lisp/xt-mouse.el
> +++ b/lisp/xt-mouse.el
> @@ -63,9 +63,14 @@ xterm-mouse-translate-1
>            (is-move (eq 'mouse-movement ev-command))
>            (is-down (string-match "down-" (symbol-name ev-command))))
>
> -      ;; Mouse events symbols must have an 'event-kind property with
> -      ;; the value 'mouse-click.
> -      (when ev-command (put ev-command 'event-kind 'mouse-click))
> +      ;; Mouse events symbols must have an 'event-kind property set.
> +      ;; Most of them use the value 'mouse-click, but 'mouse-movement
> +      ;; has a different value.  See head_table in
> +      ;; keyboard.c. (bug#67457)
> +      (when ev-command (put ev-command 'event-kind
> +                            (if (eq ev-command 'mouse-movement)
> +                                'mouse-movement
> +                              'mouse-click)))

Ooohhh.... nice!


        Stefan