[nongnu] elpa/base32 26b790a52b 5/5: totp-auth: ignore case when the user is searching for a secret

[ELPA Syncer]

branch: elpa/base32
commit 26b790a52beeaa6a8c24c665f634626eb7a6a27f
Author: Vivek Das Mohapatra <vivek@collabora.com>
Commit: Vivek Das Mohapatra <vivek@collabora.com>

    totp-auth: ignore case when the user is searching for a secret
---
 totp-auth.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/totp-auth.el b/totp-auth.el
index 4d42a2176f..cab27691a0 100644
--- a/totp-auth.el
+++ b/totp-auth.el
@@ -806,7 +806,10 @@ DIGITS defaults to 6 if not otherwise specified."
 (defun totp-auth (&optional secret label)
   "Generate a TOTP token for SECRET, identified by LABEL, and show it."
   (interactive
-   (let ((secrets (totp-auth-secrets)) (completion-styles '(substring)) key)
+   (let ((secrets (totp-auth-secrets))
+         (completion-ignore-case t)
+         (completion-styles '(substring))
+         key)
      (setq key (completing-read "Generate TOTP: " secrets))
      (list (cdr (assoc key secrets)) key)))
   (totp-auth-display-token secret label))