[elpa] externals/corfu 4226708c83 1/2: corfu-history: Remove corfu-history-length

[ELPA Syncer]

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

    corfu-history: Remove corfu-history-length
---
 CHANGELOG.org               | 2 ++
 extensions/corfu-history.el | 8 +-------
 2 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index b31576e07b..7760c3b69e 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -6,6 +6,8 @@
 
 - Ensure that the popup font matches the font of the parent frame.
 - Close popup when window selection changes.
+- Remove =corfu-history-length=. Instead set the =history-length= property of
+  =corfu-history= variable.
 
 * Version 0.36 (2023-03-27)
 
diff --git a/extensions/corfu-history.el b/extensions/corfu-history.el
index bbe445491a..e581bcbf8a 100644
--- a/extensions/corfu-history.el
+++ b/extensions/corfu-history.el
@@ -41,11 +41,6 @@
 (eval-when-compile
   (require 'cl-lib))
 
-(defcustom corfu-history-length nil
-  "Corfu history length."
-  :type '(choice (const nil) natnum)
-  :group 'corfu)
-
 (defvar corfu-history--hash nil
   "Hash table of Corfu candidates.")
 
@@ -88,8 +83,7 @@
   (when (>= corfu--index 0)
     (add-to-history 'corfu-history
                     (substring-no-properties
-                     (nth corfu--index corfu--candidates))
-                    corfu-history-length)
+                     (nth corfu--index corfu--candidates)))
     (setq corfu-history--hash nil)))
 
 (provide 'corfu-history)