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

[Eli Zaretskii]

> From: Michael Heerdegen <michael_heerdegen@web.de>
> Cc: 59785@debbugs.gnu.org
> Date: Sat, 03 Dec 2022 13:04:18 +0100
> 
> Michael Heerdegen <michael_heerdegen@web.de> writes:
> 
> > It's hard to get a backtrace for that scenario, though, but I can
> > retry if that would help.
> 
> Here is it:
> 
> | Debugger entered--Lisp error: (wrong-type-argument listp #<frame  
> *Minibuf-1*      micha@drachen 0x5581c2f1bf78>)
> |   (posn-col-row #<frame  *Minibuf-1*      micha@drachen 0x5581c2f1bf78>)
> |   (#f(compiled-function () #<bytecode -0x1fa7ba0046068077>))
> |   (internal--track-mouse #f(compiled-function () #<bytecode 
> -0x1fa7ba0046068077>))
> |   (mouse-drag-drag (down-mouse-2 (#<window 16 on *Calendar*> 317 (128 . 
> 128) 6738998 nil 317 (9 . 4) nil (2 . 16) (14 . 28))))

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