mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2026-04-16 01:42:42 -07:00
Code Issues Projects Releases Wiki Activity

fix(corfu): +corfu/dabbrev-or-*: use new variable

Browse source 
Adapt to upstream changes.

Ref: minad/cape@1d579099f2
This commit is contained in:
Henrik Lissner 2026-03-23 15:34:44 -04:00
parent f55e336920
commit baee82f75b
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
modules/completion/corfu/autoload.el
View file

@ -51,7 +51,7 @@
"Like `cape-dabbrev', but only scans current buffer."
(interactive)
(require 'cape)
(let ((cape-dabbrev-check-other-buffers nil))
(let ((cape-dabbrev-buffer-function #'current-buffer))
(cape-dabbrev t)))
;;;###autoload
@ -70,30 +70,34 @@
;;;###autoload
(defun +corfu/dabbrev-or-next (&optional arg)
"Trigger corfu popup and select the first candidate.
"Invoke `cape-dabbrev' but respect `evil-complete-all-buffers'.
Intended to mimic `evil-complete-next', unless the popup is already open."
(interactive "p")
(if corfu--candidates
(corfu-next arg)
(require 'cape)
(let ((cape-dabbrev-check-other-buffers
(bound-and-true-p evil-complete-all-buffers)))
(let ((cape-dabbrev-buffer-function
(if (bound-and-true-p evil-complete-all-buffers)
#'cape-same-mode-buffers
#'current-buffer)))
(cape-dabbrev t)
(when (> corfu--total 0)
(corfu--goto (or arg 0))))))
;;;###autoload
(defun +corfu/dabbrev-or-last (&optional arg)
"Trigger corfu popup and select the first candidate.
"Invoke `cape-dabbrev' but respect `evil-complete-all-buffers'.
Intended to mimic `evil-complete-previous', unless the popup is already open."
(interactive "p")
(if corfu--candidates
(corfu-previous arg)
(require 'cape)
(let ((cape-dabbrev-check-other-buffers
(bound-and-true-p evil-complete-all-buffers)))
(let ((cape-dabbrev-buffer-function
(if (bound-and-true-p evil-complete-all-buffers)
#'cape-same-mode-buffers
#'current-buffer)))
(cape-dabbrev t)
(when (> corfu--total 0)
(corfu--goto (- corfu--total (or arg 1)))))))