branch: master
commit e293378214f315d354ad6c4cf15e86e9f3a61872
Author: Ian Dunn <du...@gnu.org>
Commit: Ian Dunn <du...@gnu.org>
Fix completion falling back to other backend
* paced.el (paced-completion-table-function): Don't throw an error if there
is
no current dictionary.
(paced-completion-at-point): Fix spelling of "exclusive".
---
paced.el | 25 ++++++++++++-------------
1 file changed, 12 insertions(+), 13 deletions(-)
diff --git a/paced.el b/paced.el
index a2b970a..20d6403 100644
--- a/paced.el
+++ b/paced.el
@@ -730,18 +730,17 @@ the prefix before completions are returned."
(defun paced-completion-table-function (string pred action)
"Completion table function for paced dictionaries."
- (if-let* ((dict (paced-current-dictionary)))
- (let* ((completion-ignore-case paced-completion-ignore-case))
- (pcase action
- ((or `nil `t `lambda)
- (paced-dictionary-completions dict string action pred))
- (`(boundaries . _) nil)
- (`metadata
- `(metadata . ((category . paced)
- (annotation-function . nil)
- (display-sort-function . identity)
- (cycle-sort-function . identity))))))
- (user-error "No dictionary found for current buffer")))
+ (let* ((completion-ignore-case paced-completion-ignore-case))
+ (pcase action
+ ((or `nil `t `lambda)
+ (when-let* ((dict (paced-current-dictionary)))
+ (paced-dictionary-completions dict string action pred)))
+ (`(boundaries . _) nil)
+ (`metadata
+ `(metadata . ((category . paced)
+ (annotation-function . nil)
+ (display-sort-function . identity)
+ (cycle-sort-function . identity)))))))
(defcustom paced-auto-update-p nil
"Whether to update from completions.
@@ -773,7 +772,7 @@ This should only be called from
`paced-completion-at-point'."
(when-let* ((bounds (paced-bounds-of-thing-at-point)))
(list (car bounds) (cdr bounds) 'paced-completion-table-function
:exit-function 'paced-completion-auto-update
- :excludsive 'no))))
+ :exclusive 'no))))
; ;;;;;;;;;;;;;;;;;; ;
