TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix(spacemacs-buffer): mouse click (#15867)

This commit is contained in:
Lucius Hu 2023-01-04 12:58:48 -05:00 committed by GitHub
parent e71a68633b
commit 5705c54168
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
core/core-spacemacs-buffer.el
View File

@ -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.