ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-13 21:33:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

avy.el (avy-handler-default): Error msg on mouse clicks

Browse Source 
Re #226
This commit is contained in:
Oleh Krehel 2017-12-09 13:23:00 +01:00
parent a0ce6a7558
commit 176f34f491
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
avy.el
View File

@ -424,6 +424,8 @@ KEYS is the path from the root of `avy-tree' to LEAF."
((memq char '(27 ?\C-g)) ((memq char '(27 ?\C-g))
;; exit silently ;; exit silently
(throw 'done 'exit)) (throw 'done 'exit))
((avy-mouse-press-event-p char)
(signal 'user-error "Mouse event not handled" char))
(t (t
(signal 'user-error (list "No such candidate" char)) (signal 'user-error (list "No such candidate" char))
(throw 'done nil))))) (throw 'done nil)))))
@ -872,10 +874,11 @@ Do this even when the char is terminating."
(defun avy--key-to-char (c) (defun avy--key-to-char (c)
"If C is no character, translate it using `avy-key-to-char-alist'." "If C is no character, translate it using `avy-key-to-char-alist'."
(if (characterp c) (cond ((characterp c) c)
c ((cdr (assoc c avy-key-to-char-alist)))
(or (cdr (assoc c avy-key-to-char-alist)) ((mouse-event-p c) c)
(error "Unknown key %s" c)))) (t
(error "Unknown key %s" c))))
(defun avy-candidate-beg (leaf) (defun avy-candidate-beg (leaf)
"Return the start position for LEAF." "Return the start position for LEAF."