summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Mendler <mail@daniel-mendler.de>2022-01-19 22:58:19 +0100
committerDaniel Mendler <mail@daniel-mendler.de>2022-01-19 22:58:19 +0100
commit9796921880a30aae407c5cc358375df8bcd23fcb (patch)
treed0d5deb042fb63a198646ec23e41081b6036b23f
parent0b97a0daab09af542c7cfa97ad79543f809cc389 (diff)
Indentation
-rw-r--r--corfu.el22
1 files changed, 11 insertions, 11 deletions
diff --git a/corfu.el b/corfu.el
index 636cdb0..f267eaf 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1086,17 +1086,17 @@ there hasn't been any input, then quit."
((symbol-function #'completion-all-sorted-completions)
#'corfu--all-sorted-completions))
(apply #'completion--in-region args))
- (when (and completion-in-region-mode
- ;; Do not show Corfu when "trivially" cycling, i.e.,
- ;; when the completion is finished after the candidate.
- (not (and completion-cycling
- (pcase-let* ((`(,beg ,end ,table ,pred) completion-in-region--data)
- (pt (max 0 (- (point) beg)))
- (str (buffer-substring-no-properties beg end))
- (before (substring str 0 pt))
- (after (substring str pt)))
- (equal (completion-boundaries before table pred after) '(0 . 0))))))
- (corfu--setup)))))
+ (when (and completion-in-region-mode
+ ;; Do not show Corfu when "trivially" cycling, i.e.,
+ ;; when the completion is finished after the candidate.
+ (not (and completion-cycling
+ (pcase-let* ((`(,beg ,end ,table ,pred) completion-in-region--data)
+ (pt (max 0 (- (point) beg)))
+ (str (buffer-substring-no-properties beg end))
+ (before (substring str 0 pt))
+ (after (substring str pt)))
+ (equal (completion-boundaries before table pred after) '(0 . 0))))))
+ (corfu--setup)))))
(defun corfu--auto-complete (buf tick pt)
"Initiate auto completion if BUF, TICK and PT did not change."