diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2022-11-29 21:40:21 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2022-11-29 21:40:21 +0100 |
| commit | 9b4fdc00888141d807aa6fd8bec2bf00dd4c0435 (patch) | |
| tree | 4f039e88ed37632b3814e2a33c0c8a79c2674d29 | |
| parent | bdcd965c13ed882c7b470611dc2178f778a98bed (diff) | |
corfu-popupinfo: Rename always-* to force-*
| -rw-r--r-- | extensions/corfu-popupinfo.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el index e47d772..58195bb 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))) |