[elpa] externals/corfu 9b4fdc0088: corfu-popupinfo: Rename always-* to force-*

[ELPA Syncer]

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

    corfu-popupinfo: Rename always-* to force-*
---
 extensions/corfu-popupinfo.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index e47d772763..58195bb6aa 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -106,10 +106,10 @@ popup can be requested manually via 
`corfu-popupinfo-toggle',
            (const left)
            (const right)
            (const vertical)
-           (const always-left)
-           (const always-right)
-           (const always-horizontal)
-           (const always-vertical)))
+           (const force-left)
+           (const force-right)
+           (const force-horizontal)
+           (const force-vertical)))
   :group 'corfu)
 
 (defvar corfu-popupinfo-map
@@ -306,9 +306,9 @@ form (X Y WIDTH HEIGHT DIR)."
     (or
      (cl-loop for dir in corfu-popupinfo-direction thereis
               (pcase dir
-                ((or 'always-right (guard (eq corfu-popupinfo--lock-dir 
'right))) ar)
-                ((or 'always-left (guard (eq corfu-popupinfo--lock-dir 
'left))) al)
-                ((or 'always-vertical (guard (eq corfu-popupinfo--lock-dir 
'vertical))) av)
+                ((or 'force-right (guard (eq corfu-popupinfo--lock-dir 
'right))) ar)
+                ((or 'force-left (guard (eq corfu-popupinfo--lock-dir 'left))) 
al)
+                ((or 'force-vertical (guard (eq corfu-popupinfo--lock-dir 
'vertical))) av)
                 ((and 'right (guard (corfu-popupinfo--fits-p ps ar))) ar)
                 ((and 'left (guard (corfu-popupinfo--fits-p ps al))) al)
                 ((and 'vertical (guard (corfu-popupinfo--fits-p ps av))) av)))