Skip to content

Commit 8ca0aae

Browse files
committed
fix: keymap
1 parent 95cb628 commit 8ca0aae

File tree

1 file changed

+8
-7
lines changed

1 file changed

+8
-7
lines changed

foldvis.el

Lines changed: 8 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)