From 5705c541680397cd2f481e1dc5913d4c96da7466 Mon Sep 17 00:00:00 2001
From: Lucius Hu <1222865+lebensterben@users.noreply.github.com>
Date: Wed, 4 Jan 2023 12:58:48 -0500
Subject: [PATCH] fix(spacemacs-buffer): mouse click (#15867)

---
 core/core-spacemacs-buffer.el | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/core/core-spacemacs-buffer.el b/core/core-spacemacs-buffer.el
index 1a2264fd5..cb3272d99 100644
--- a/core/core-spacemacs-buffer.el
+++ b/core/core-spacemacs-buffer.el
@@ -122,7 +122,7 @@ It's cleared when the idle timer runs.")
       (define-key map (kbd "8") 'spacemacs-buffer/jump-to-number-startup-list-line)
       (define-key map (kbd "9") 'spacemacs-buffer/jump-to-number-startup-list-line))
 
-    (define-key map [mouse-1] 'widget-button-click)
+    (define-key map [down-mouse-1] 'spacemacs-buffer//mouse-1)
     (define-key map (kbd "RET") 'spacemacs-buffer/return)
 
     (define-key map [tab] 'widget-forward)
@@ -1453,6 +1453,18 @@ SEQ, START and END are the same arguments as for `cl-subseq'"
       (search-forward "[")
       (left-char 2))))
 
+(defun spacemacs-buffer//mouse-1 (event)
+  "Action to open widget button at mouse click.
+
+NOTE: This is reserved only to use in spacemacs-buffer. It is a slimmed down
+version of `widget-button-press' since `widget-button-click' doesn't work."
+  (interactive "e")
+  (when (widget-event-point event)
+    (let ((pos (widget-event-point event)))
+      (goto-char pos)
+      (when-let ((button (get-char-property pos 'button)))
+        (widget-apply-action pos)))))
+
 (defun spacemacs-buffer/jump-to-number-startup-list-line ()
   "Jump to the startup list line with the typed number.