Subject: Re: bug#51173: 28.0.60; gnus-article-describe-key doesn't work

From: Stefan Monnier <[email-masked]>
Date: Mon, 29 Nov 2021 15:57:51 -0500

>   mouse-minibuffer-check(19)
>   mouse-set-point(19)
>   help--analyze-key("\23" [19] nil)

Hpw 'bout the patch below?

Or maybe the use of `mouse-minibuffer-check` in `mouse-set-point` should
be moved to its interactive spec?

        Stefan

diff --git a/lisp/help.el b/lisp/help.el
index 1917ef425d..e175421d02 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -715,7 +715,8 @@ help--analyze-key
                        (and (not (windowp (posn-window (event-start event))))
                             (not (framep (posn-window (event-start event))))))
                    (key-binding key t)
-                 (save-excursion (mouse-set-point event) (key-binding key t)))))
+                 (save-excursion (posn-set-point (event-end event))
+                                 (key-binding key t)))))
     ;; Handle the case where we faked an entry in "Select and Paste" menu.
     (when (and (eq defn nil)
 	       (stringp (aref key (1- (length key))))