branch: elpa/base32
commit 47bcc107b8b97a748f7981688ccaa8e9e4c5c2ac
Author: Vivek Das Mohapatra <[email protected]>
Commit: Vivek Das Mohapatra <[email protected]>
Enable substring matching for TOTP secret selection
M-x totp RET now matches any label that contains the string
you have typed, not just those that start with it.
---
totp.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/totp.el b/totp.el
index 4930bc509c..8ab9bbf527 100644
--- a/totp.el
+++ b/totp.el
@@ -531,7 +531,7 @@ and EXPIRY is the seconds after the epoch when the TOTP
expires."
(defun totp (&optional secret label)
(interactive
- (let ((secrets (totp-secrets)) key)
+ (let ((secrets (totp-secrets)) (completion-styles '(substring)) key)
(setq key (completing-read "Generate TOTP: " secrets))
(list (cdr (assoc key secrets)) key)))
(totp-display-token secret label))
