emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/corfu 9796921880 1/3: Indentation


From: ELPA Syncer
Subject: [elpa] externals/corfu 9796921880 1/3: Indentation
Date: Wed, 19 Jan 2022 17:57:29 -0500 (EST)

branch: externals/corfu
commit 9796921880a30aae407c5cc358375df8bcd23fcb
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Indentation
---
 corfu.el | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/corfu.el b/corfu.el
index 636cdb0e9e..f267eaf00d 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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]