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

[Michael Heerdegen]

Eli Zaretskii <eliz@gnu.org> writes:

> I still don't think I have the answer to my question: was the backtrace
> exactly the same with the patch I sent, or was it different?  I'm asking
> about the org-capture case, not about the "C-h k" case.  It is important for
> me to know whether the patch I sent solves part of the problem or nothing at
> all.

You should have been clearer what case you are interested in.

But I answered it: no difference.  The backtraces look exactly the same,
apart from details (depending on where I clicked).

AFAIU, in the case of the error your change doesn't make a difference
because the argument is a frame, not a window (last call below, these
are all calls to the function done in one reproduction of the recipe):

| 1 -> (posn-col-row (#<window 26 on *Calendar*> 419 ... 31213232 nil 419 ... 
nil ... ...)) 19:48:18.661
|   (mouse-drag-drag (down-mouse-2 (#<window 26 on *Calendar*> 419 (478 . 158) 
31213232 nil 419 (34 . 5) nil (2 . 18) (14 . 28))))
|   (command-execute mouse-drag-drag)
|   (my-read-string--default-in-prompt-around-ad #<subr read-string> "Date+time 
[2022-12-03]: " nil org-read-date-history nil)
|   (org-read-date nil t nil nil)
|   (org-capture-fill-template)
|   (my-org-capture--around-ad #f(compiled-function (&optional goto keys) 
"Capture something.\n\\<org-capture-mode-map>\nThis will let you select a 
template from `org-capture-templates', and\nthen file the newly captured 
information.  The text is immediately\ninserted at the target location, and an 
indirect buffer is shown where\nyou can edit it.  Pressing 
`\\[org-capture-finalize]' brings you back to the previous\nstate of Emacs, so 
that you can continue your work.\n\nWhen called interactively with a 
`\\[universal-argument]' prefix argument GOTO, don't\ncapture anything, just go 
to the file/headline where the selected\ntemplate stores its notes.\n\nWith a 
`\\[universal-argument] \\[universal-argument]' prefix argument, go to the last 
note stored.\n\nWhen called with a `C-0' (zero) prefix, insert a template at 
point.\n\nWhen called with a `C-1' (one) prefix, force prompting for a date 
when\na datetree entry is made.\n\nELisp programs can set KEYS to a string 
associated with a template\nin `org-capture-templates'.  In this case, 
interactive selection\nwill be bypassed.\n\nIf `org-capture-use-agenda-date' is 
non-nil, capturing from the\nagenda will use the date at point as the default 
date.  Then, a\n`C-1' prefix will tell the capture process to use the HH:MM 
time\nof the day at point (if any) or the current HH:MM time." (interactive 
"P") #<bytecode -0x1e2ea2230cf83a5>) nil)
|   (org-capture nil)
|   (command-execute org-capture)
| 1 <- posn-col-row: (34 . 5)
| 1 -> (posn-col-row (#<window 26 on *Calendar*> 419 ... 31213232 nil 419 ... 
nil ... ...)) 19:48:19.087
|   (mouse-drag-drag (down-mouse-2 (#<window 26 on *Calendar*> 419 (478 . 158) 
31213232 nil 419 (34 . 5) nil (2 . 18) (14 . 28))))
|   (command-execute mouse-drag-drag)
|   (my-read-string--default-in-prompt-around-ad #<subr read-string> "Date+time 
[2022-12-03]: " nil org-read-date-history nil)
|   (org-read-date nil t nil nil)
|   (org-capture-fill-template)
|   (my-org-capture--around-ad #f(compiled-function (&optional goto keys) 
"Capture something.\n\\<org-capture-mode-map>\nThis will let you select a 
template from `org-capture-templates', and\nthen file the newly captured 
information.  The text is immediately\ninserted at the target location, and an 
indirect buffer is shown where\nyou can edit it.  Pressing 
`\\[org-capture-finalize]' brings you back to the previous\nstate of Emacs, so 
that you can continue your work.\n\nWhen called interactively with a 
`\\[universal-argument]' prefix argument GOTO, don't\ncapture anything, just go 
to the file/headline where the selected\ntemplate stores its notes.\n\nWith a 
`\\[universal-argument] \\[universal-argument]' prefix argument, go to the last 
note stored.\n\nWhen called with a `C-0' (zero) prefix, insert a template at 
point.\n\nWhen called with a `C-1' (one) prefix, force prompting for a date 
when\na datetree entry is made.\n\nELisp programs can set KEYS to a string 
associated with a template\nin `org-capture-templates'.  In this case, 
interactive selection\nwill be bypassed.\n\nIf `org-capture-use-agenda-date' is 
non-nil, capturing from the\nagenda will use the date at point as the default 
date.  Then, a\n`C-1' prefix will tell the capture process to use the HH:MM 
time\nof the day at point (if any) or the current HH:MM time." (interactive 
"P") #<bytecode -0x1e2ea2230cf83a5>) nil)
|   (org-capture nil)
|   (command-execute org-capture)
| 1 <- posn-col-row: (34 . 5)
| 1 -> (posn-col-row #<frame  *Minibuf-1*      micha@drachen 0x56052a407bd8>) 
19:48:19.161
|   (mouse-drag-drag (down-mouse-2 (#<window 26 on *Calendar*> 419 (478 . 158) 
31213232 nil 419 (34 . 5) nil (2 . 18) (14 . 28))))
|   (command-execute mouse-drag-drag)
|   (my-read-string--default-in-prompt-around-ad #<subr read-string> "Date+time 
[2022-12-03]: " nil org-read-date-history nil)
|   (org-read-date nil t nil nil)
|   (org-capture-fill-template)
|   (my-org-capture--around-ad #f(compiled-function (&optional goto keys) 
"Capture something.\n\\<org-capture-mode-map>\nThis will let you select a 
template from `org-capture-templates', and\nthen file the newly captured 
information.  The text is immediately\ninserted at the target location, and an 
indirect buffer is shown where\nyou can edit it.  Pressing 
`\\[org-capture-finalize]' brings you back to the previous\nstate of Emacs, so 
that you can continue your work.\n\nWhen called interactively with a 
`\\[universal-argument]' prefix argument GOTO, don't\ncapture anything, just go 
to the file/headline where the selected\ntemplate stores its notes.\n\nWith a 
`\\[universal-argument] \\[universal-argument]' prefix argument, go to the last 
note stored.\n\nWhen called with a `C-0' (zero) prefix, insert a template at 
point.\n\nWhen called with a `C-1' (one) prefix, force prompting for a date 
when\na datetree entry is made.\n\nELisp programs can set KEYS to a string 
associated with a template\nin `org-capture-templates'.  In this case, 
interactive selection\nwill be bypassed.\n\nIf `org-capture-use-agenda-date' is 
non-nil, capturing from the\nagenda will use the date at point as the default 
date.  Then, a\n`C-1' prefix will tell the capture process to use the HH:MM 
time\nof the day at point (if any) or the current HH:MM time." (interactive 
"P") #<bytecode -0x1e2ea2230cf83a5>) nil)
|   (org-capture nil)
|   (command-execute org-capture)
| 1 <- posn-col-row: !non-local\ exit!


Michael.