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

[Michael Heerdegen <michael_heerdegen@web.de>]

Eli Zaretskii <eliz@gnu.org> writes:

> So if you cannot reproduce the org-capture case in "emacs -Q", perhaps
> some other recipe which causes the same backtrace can be reproduced?

I tried all day and we are lucky, I finally found a recipe for emacs -Q,
and it seems indeed to be a regression from at least 27.1:

#+begin_src emacs-lisp
  (require 'org)
  (require 'calendar)

  (setq org-read-date-popup-calendar t)
  (setq calendar-setup 'calendar-only)

  ;; my probably a bit non-standard setup:
  (global-set-key [down-mouse-2] #'mouse-drag-drag)
  (define-key calendar-mode-map [down-mouse-2] nil)

  (setq debug-on-error t)
  ;; this is only to allow to switch to the
  ;; Debugger despite of the active minibuffer
  (setq enable-recursive-minibuffers t)

  ;; Now select a date with mouse-2 in the calendar after
  ;; evaluating this:
  (org-read-date)
  ;; then switch to the debugger buffer (e.g. with C-x C-b)
#+end_src

This gives me:

| Debugger entered--Lisp error: (wrong-type-argument listp #<frame  *Minibuf-1* 0x56442ad52540>)
|   posn-col-row(#<frame  *Minibuf-1* 0x56442ad52540>)
|   #f(compiled-function () #<bytecode -0x1fa7ba0046068077>)()
|   internal--track-mouse(#f(compiled-function () #<bytecode -0x1fa7ba0046068077>))
|   mouse-drag-drag((down-mouse-2 (#<window 8 on *Calendar*> 499 (334 . 123) 89797497 nil 499 (37 . 6) nil (1 . 15) (9 . 18))))
|   funcall-interactively(mouse-drag-drag (down-mouse-2 (#<window 8 on *Calendar*> 499 (334 . 123) 89797497 nil 499 (37 . 6) nil (1 . 15) (9 . 18))))
|   call-interactively(mouse-drag-drag nil nil)
|   command-execute(mouse-drag-drag)
|   read-string("Date+time [2022-12-04]: " nil org-read-date-history nil)
|   org-read-date()
|   eval-buffer()  ; Reading at buffer position 677
|   funcall-interactively(eval-buffer)
|   call-interactively(eval-buffer record nil)
|   command-execute(eval-buffer record)
|   execute-extended-command(nil "eval-buffer" "eval-buffer")
|   funcall-interactively(execute-extended-command nil "eval-buffer" "eval-buffer")
|   call-interactively(execute-extended-command nil nil)
|   command-execute(execute-extended-command)


Michael.