procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make flymake's mouse-wheel interaction portable (Bug#28732)

Browse source 
* lisp/progmodes/flymake.el (flymake--mode-line-format): Bind
'mouse-wheel-down-event' and 'mouse-wheel-up-event' instead of
'mouse-4' and 'mouse-5'.  Update the tooltip text accordingly, and
remove a stray newline in it.
This commit is contained in:
Charles A. Roelli 2017-10-21 14:56:59 +02:00
parent 035d7ac7e4
commit 75bb482763
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/progmodes/flymake.el
View file

@ -1068,12 +1068,14 @@ applied."
keymap keymap
,(let ((map (make-sparse-keymap)) ,(let ((map (make-sparse-keymap))
(type type)) (type type))
(define-key map [mode-line mouse-4] (define-key map (vector 'mode-line
mouse-wheel-down-event)
(lambda (event) (lambda (event)
(interactive "e") (interactive "e")
(with-selected-window (posn-window (event-start event)) (with-selected-window (posn-window (event-start event))
(flymake-goto-prev-error 1 (list type) t)))) (flymake-goto-prev-error 1 (list type) t))))
(define-key map [mode-line mouse-5] (define-key map (vector 'mode-line
mouse-wheel-up-event)
(lambda (event) (lambda (event)
(interactive "e") (interactive "e")
(with-selected-window (posn-window (event-start event)) (with-selected-window (posn-window (event-start event))
@ -1086,7 +1088,9 @@ applied."
'face face) 'face face)
(propertize (format "%s" type) (propertize (format "%s" type)
'face face)) 'face face))
"mouse-4/mouse-5: previous/next of this type\n")) (format "%s/%s: previous/next of this type"
mouse-wheel-down-event
mouse-wheel-up-event)))
into forms into forms
finally return finally return
`((:propertize "[") `((:propertize "[")