diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-03-05 08:32:50 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-03-05 08:32:50 +0100 |
| commit | 44df3d98b7ef5b2e745124ea46c761fca9760140 (patch) | |
| tree | 0169bc065d3c84744fdab8996e67f418f233e2db | |
| parent | 78daeb84495f286e83ab7f05d7b18aa7c3c9fee2 (diff) | |
Use natnum custom type (supported by Compat 29.1.4.0)
| -rw-r--r-- | corfu.el | 12 | ||||
| -rw-r--r-- | extensions/corfu-history.el | 2 | ||||
| -rw-r--r-- | extensions/corfu-indexed.el | 2 | ||||
| -rw-r--r-- | extensions/corfu-popupinfo.el | 8 |
4 files changed, 12 insertions, 12 deletions
@@ -6,7 +6,7 @@ ;; Maintainer: Daniel Mendler <mail@daniel-mendler.de> ;; Created: 2021 ;; Version: 0.35 -;; Package-Requires: ((emacs "27.1") (compat "29.1.3.4")) +;; Package-Requires: ((emacs "27.1") (compat "29.1.4.0")) ;; Homepage: https://github.com/minad/corfu ;; This file is part of GNU Emacs. @@ -50,20 +50,20 @@ (defcustom corfu-count 10 "Maximal number of candidates to show." - :type 'integer) + :type 'natnum) (defcustom corfu-scroll-margin 2 "Number of lines at the top and bottom when scrolling. The value should lie between 0 and corfu-count/2." - :type 'integer) + :type 'natnum) (defcustom corfu-min-width 15 "Popup minimum width in characters." - :type 'integer) + :type 'natnum) (defcustom corfu-max-width 100 "Popup maximum width in characters." - :type 'integer) + :type 'natnum) (defcustom corfu-cycle nil "Enable cycling for `corfu-next' and `corfu-previous'." @@ -160,7 +160,7 @@ return a string, possibly an icon." "Minimum length of prefix for auto completion. The completion backend can override this with :company-prefix-length." - :type 'integer) + :type 'natnum) (defcustom corfu-auto-delay 0.2 "Delay for auto completion." diff --git a/extensions/corfu-history.el b/extensions/corfu-history.el index 4046ae6..4a56830 100644 --- a/extensions/corfu-history.el +++ b/extensions/corfu-history.el @@ -43,7 +43,7 @@ (defcustom corfu-history-length nil "Corfu history length." - :type '(choice (const nil) integer) + :type '(choice (const nil) natnum) :group 'corfu) (defvar corfu-history--hash nil diff --git a/extensions/corfu-indexed.el b/extensions/corfu-indexed.el index 4143e6b..691c55d 100644 --- a/extensions/corfu-indexed.el +++ b/extensions/corfu-indexed.el @@ -50,7 +50,7 @@ (defcustom corfu-indexed-start 0 "Start of the indexing." :group 'corfu - :type 'integer) + :type 'natnum) (defvar corfu-indexed--commands '(corfu-insert corfu-complete) diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el index f2ecde2..8bf7405 100644 --- a/extensions/corfu-popupinfo.el +++ b/extensions/corfu-popupinfo.el @@ -76,22 +76,22 @@ popup can be requested manually via `corfu-popupinfo-toggle', (defcustom corfu-popupinfo-max-width 80 "The maximum width of the info popup in characters." - :type 'integer + :type 'natnum :group 'corfu) (defcustom corfu-popupinfo-min-width 30 "The minimum width of the info popup in characters." - :type 'integer + :type 'natnum :group 'corfu) (defcustom corfu-popupinfo-max-height 10 "The maximum height of the info popup in characters." - :type 'integer + :type 'natnum :group 'corfu) (defcustom corfu-popupinfo-min-height 1 "The minimum height of the info popup in characters." - :type 'integer + :type 'natnum :group 'corfu) (defcustom corfu-popupinfo-resize t |