bug#59785: 30.0.50; mouse-2 > (wrong-type-argument listp #<frame *Calendar* 0x...>)

[Eli Zaretskii <eliz@gnu.org>]

On December 3, 2022 5:07:53 PM GMT+02:00, Michael Heerdegen <michael_heerdegen@web.de> wrote:
> Eli Zaretskii <eliz@gnu.org> writes:
> 
> > Does the below fix this problem, per chance?
> >
> > diff --git a/lisp/subr.el b/lisp/subr.el
> > index 21f4309..dc219a4 100644
> > --- a/lisp/subr.el
> > +++ b/lisp/subr.el
> > @@ -1729,7 +1729,7 @@ posn-col-row
> >       ((eq area 'horizontal-scroll-bar)
> >        (cons (scroll-bar-scale pair (window-width window)) 0))
> >       (t
> > -      (if use-window
> > +      (if (and (windowp frame-or-window) use-window)
> >            (cons (/ (car pair) (window-font-width window))
> >                  (/ (cdr pair) (window-font-height window)))
> >          ;; FIXME: This should take line-spacing properties on
> 
> Half: it improves the behavior but I still get the error.  The
> improvement is that I can successfully select a date in the calendar
> despite the error - that was not possible without that change.  So I
> guess the error now happens at some other place, and this was not the
> root, or not the only root.
> 
> I also tested this:
> 
> modified   lisp/mouse-drag.el
> @@ -287,8 +287,10 @@ mouse-drag-drag
>        (while (progn
>  	       (setq event (read--potential-mouse-event)
>  		     end (event-end event)
> -		     row (cdr (posn-col-row end))
> -		     col (car (posn-col-row end)))
> +		     row (and (not (eq (car-safe event) 'switch-frame))
> +                              (cdr (posn-col-row end)))
> +		     col (and (not (eq (car-safe event) 'switch-frame))
> +                              (car (posn-col-row end))))
>  	       (or (mouse-movement-p event)
>  		   (eq (car-safe event) 'switch-frame)))
>  	;; Scroll if see if we're on the edge.
> 
> It actually had the exact same effect.
> 
> Michael.
> 

Do you get the exact same error and the same backtrace?  If the backtrace is different, please post it.

Thanks.