Re: [PATCH] Fix mouse click on flymake

[Ergus]

Hi Eli:

In one of my previous emails I shared this code:


```
(defun margin-command ()
(interactive)
(message "Clicked!!"))

(defvar-keymap margin-keymap
:doc "Keymap margin."
"<mouse-1>" #'margin-command)

(progn
(setq left-margin-width 1)
(dolist (win (get-buffer-window-list))
(set-window-buffer win (current-buffer)))


(defvar margin-overlay (make-overlay (point) (point)))

(move-overlay margin-overlay (point) (point))
(overlay-put margin-overlay 'before-string
(propertize " " 'display
(list '(margin left-margin)
(propertize "b"
'face 'error
'mouse-face 'highlight
'help-echo "HEE error message"
'keymap margin-keymap)))))

```

Is this enough?

Best,
Ergus

On January 21, 2025 2:39:56 PM GMT+01:00, Eli Zaretskii <eliz@gnu.org> wrote:

Date: Mon, 20 Jan 2025 23:33:58 +0100
From: Ergus <spacibba@aol.com>
CC: emacs-devel@gnu.org, Eli Zaretskii <eliz@gnu.org>,
 Spencer Baugh <sbaugh@janestreet.com>

Maybe Eli could bring some insights here? Eli?

If you can show a simple Lisp recipe to run from "emacs -Q", I promise
to look into what happens there.