[nongnu] elpa/visual-fill-column 34ce0d22da 072/137: Guard against non-existing mouse events

[ELPA Syncer]

branch: elpa/visual-fill-column
commit 34ce0d22da98587b8f77212b74ab2ab0d80ac5ff
Author: Peter W. V. Tran-Jørgensen <pvj@eng.au.dk>
Commit: GitHub <noreply@github.com>

    Guard against non-existing mouse events
    
    If mouse-wheel-mode is not enabled the mouse wheel events will be void
---
 visual-fill-column.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/visual-fill-column.el b/visual-fill-column.el
index ea5b030ff8..5ee143ef31 100644
--- a/visual-fill-column.el
+++ b/visual-fill-column.el
@@ -71,11 +71,13 @@ this option is set to a value, it is used instead."
   :init-value nil :lighter nil :global nil
   :keymap
   (let ((map (make-sparse-keymap)))
-    (define-key map (vector 'left-margin mouse-wheel-down-event) 
'mwheel-scroll)
-    (define-key map (vector 'left-margin mouse-wheel-up-event) 'mwheel-scroll)
-    (define-key map (vector 'right-margin mouse-wheel-down-event) 
'mwheel-scroll)
-    (define-key map (vector 'right-margin mouse-wheel-up-event) 'mwheel-scroll)
-    map)
+    (when (bound-and-true-p mouse-wheel-mode)
+      (progn
+        (define-key map (vector 'left-margin mouse-wheel-down-event) 
'mwheel-scroll)
+        (define-key map (vector 'left-margin mouse-wheel-up-event) 
'mwheel-scroll)
+        (define-key map (vector 'right-margin mouse-wheel-down-event) 
'mwheel-scroll)
+        (define-key map (vector 'right-margin mouse-wheel-up-event) 
'mwheel-scroll))
+      map))
   (if visual-fill-column-mode
       (visual-fill-column-mode--enable)
     (visual-fill-column-mode--disable)))