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

Fix De Bruijn "No catch for tag" error

Browse Source 
When using avy-goto-line and typing a line number with avy-style
de-bruijn, you would get an error after entering your line number and
pressing RET:

    No catch for tag: done, exit

I believe this is because avy-read is wrapped with (catch 'done ...) but
avy-read-de-bruijn doesn't catch done.  This adds the catch to
avy-read-de-bruijn.
This commit is contained in:
Dale Sedivec 2015-11-15 10:32:46 -06:00
parent f341c2f18f
commit 4a23a0d63e
1 changed files with 26 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
avy.el
View File

@ -390,6 +390,7 @@ multiple DISPLAY-FN invokations."
;; possible that the path-len must be incremented, e.g., if we're matching ;; possible that the path-len must be incremented, e.g., if we're matching
;; for x and a buffer contains xaxbxcx only every second subsequence is ;; for x and a buffer contains xaxbxcx only every second subsequence is
;; usable for the four matches. ;; usable for the four matches.
(catch 'done
(let* ((path-len (ceiling (log (length lst) (length keys)))) (let* ((path-len (ceiling (log (length lst) (length keys))))
(alist (avy--path-alist-1 lst path-len keys))) (alist (avy--path-alist-1 lst path-len keys)))
(while (not alist) (while (not alist)
@ -414,7 +415,7 @@ multiple DISPLAY-FN invokations."
(cl-incf i) (cl-incf i)
(unless alist (unless alist
(funcall avy-handler-function char)))) (funcall avy-handler-function char))))
(cdar alist)))) (cdar alist)))))
;;** Rest ;;** Rest
(defun avy-window-list () (defun avy-window-list ()