File tree Expand file tree Collapse file tree 1 file changed +8
-8
lines changed Expand file tree Collapse file tree 1 file changed +8
-8
lines changed Original file line number Diff line number Diff line change 202
202
127 )
203
203
(list meow-keypad-literal-prefix 127 ))))
204
204
(suppress-keymap km t )
205
- (map-keymap
206
- (lambda (key def )
207
- (unless (member 'control (event-modifiers key))
208
- (unless (member key ignores)
209
- (let ((k (vector (meow--get-event-key key))))
210
- (unless (lookup-key km k)
211
- (define-key km (vector (meow--get-event-key key)) (funcall meow-keypad-get-title-function def)))))))
212
- keymap)
213
205
(map-keymap
214
206
(lambda (key def )
215
207
(when (member 'control (event-modifiers key))
219
211
(unless (lookup-key km k)
220
212
(define-key km k (funcall meow-keypad-get-title-function def))))))))
221
213
keymap)
214
+ (map-keymap
215
+ (lambda (key def )
216
+ (unless (member 'control (event-modifiers key))
217
+ (unless (member key ignores)
218
+ (let ((k (vector (meow--get-event-key key))))
219
+ (unless (lookup-key km k)
220
+ (define-key km (vector (meow--get-event-key key)) (funcall meow-keypad-get-title-function def)))))))
221
+ keymap)
222
222
km)))))))
223
223
224
224
(defun meow--keypad-display-message ()
You can’t perform that action at this time.
0 commit comments