diff options
| -rw-r--r-- | README.org | 14 | ||||
| -rw-r--r-- | cape.el | 21 |
2 files changed, 33 insertions, 2 deletions
@@ -194,6 +194,20 @@ achieve a similarly refreshing strategy. (list (cape-capf-buster #'some-caching-capf))) #+end_src +** Repair misbehaving Capfs + +Unfortunately some completion of point functions from Emacs show misbehavior. +This is not a term I've made up, but minibuffer.el distinguishes old-style +("misbehaving") Capfs and modern-style Capfs. The misbehaving Capfs do not +return a completion table but just perform completion right away. Such behavior +is particularily harmful for completion UIs like Company or Corfu in +idle/auto-completion mode. There is at least one completion function, which +affects the Eshell: + +#+begin_src emacs-lisp + (advice-add #'pcomplete-completions-at-point :around #'cape-repair-misbehaving-capf) +#+end_src + ** Other Capf transformers - ~cape-silent-capf~: Wrap a chatty Capf and silence it. @@ -466,8 +466,10 @@ If INTERACTIVE is nil the function acts like a capf." (interactive (list t)) (if interactive (cape--interactive #'cape-symbol) - (let ((bounds (cape--bounds 'symbol))) - `(,(car bounds) ,(cdr bounds) + (pcase-let ((`(,beg . ,end) (cape--bounds 'symbol))) + (when (eq (char-after beg) ?') + (setq beg (1+ beg) end (max beg end))) + `(,beg ,end ,(cape--table-with-properties obarray :category 'symbol) :exclusive no ,@cape--symbol-properties)))) @@ -1013,6 +1015,21 @@ case sensitive instead." `(,beg ,end ,(cape--noninterruptible-table table) ,@plist))))) ;;;###autoload +(defun cape-repair-misbehaving-capf (capf) + "Repair a misbehaving CAPF." + (catch 'cape--misbehaving-capf + (save-mark-and-excursion + (atomic-change-group + (pcase (funcall capf) + ((and res `(,beg ,end ,_table . ,_plist) + (guard (integer-or-marker-p beg)) + (guard (integer-or-marker-p end))) + (ignore beg end) + res) + (_ + (throw 'cape--misbehaving-capf nil))))))) + +;;;###autoload (defun cape-interactive-capf (capf) "Create interactive completion function from CAPF." (lambda (&optional interactive) |