diff options
Diffstat (limited to 'lisp/strokes.el')
| -rw-r--r-- | lisp/strokes.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/strokes.el b/lisp/strokes.el index 0edb20c2ebb..0f84588a41b 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el @@ -1359,11 +1359,9 @@ If STROKES-MAP is not given, `strokes-global-map' will be used instead." "Return t if STROKE1's command name precedes STROKE2's in lexicographic order." (string-lessp (cdr stroke1) (cdr stroke2))) -(defvar strokes-mode-map - (let ((map (make-sparse-keymap))) - (define-key map [(shift down-mouse-2)] #'strokes-do-stroke) - (define-key map [(meta down-mouse-2)] #'strokes-do-complex-stroke) - map)) +(defvar-keymap strokes-mode-map + "S-<down-mouse-2>" #'strokes-do-stroke + "M-<down-mouse-2>" #'strokes-do-complex-stroke) ;;;###autoload (define-minor-mode strokes-mode |