@@ -181,6 +181,13 @@ See macro `with-selected-window' description for arguments WINDOW and BODY."
181181 (unless backend
182182 (foldvis--remove-ovs-buffer))))
183183
184+ (defvar foldvis-mode-map
185+ (let ((map (make-sparse-keymap )))
186+ (define-key map [left-fringe mouse-1] #'foldvis-click-fringe )
187+ (define-key map [right-fringe mouse-1] #'foldvis-click-fringe )
188+ map)
189+ " The keymap for function `foldvis-mode' ." )
190+
184191(defun foldvis--enable ()
185192 " Start folding minor mode."
186193 (foldvis--call-backend " -enable" )
@@ -204,6 +211,7 @@ See macro `with-selected-window' description for arguments WINDOW and BODY."
204211 " Display indicators for various folding systems."
205212 :group 'foldvis
206213 :init-value nil
214+ :keymap foldvis-mode-map
207215 :lighter " FoldVis"
208216 (if foldvis-mode (foldvis--enable) (foldvis--disable)))
209217
@@ -225,13 +233,6 @@ See macro `with-selected-window' description for arguments WINDOW and BODY."
225233 " Call internal toggle function."
226234 (foldvis--call-backend " -toggle" ))
227235
228- (defvar foldvis-mode-map
229- (let ((map (make-sparse-keymap )))
230- (define-key map [left-fringe mouse-1] #'foldvis-click-fringe )
231- (define-key map [right-fringe mouse-1] #'foldvis-click-fringe )
232- map)
233- " The keymap for function `foldvis-mode' ." )
234-
235236(defun foldvis-click-fringe (event )
236237 " Handle the EVENT click on fringe."
237238 (interactive " e" )
0 commit comments