[nongnu] elpa/keycast ab41be43b6 09/31: Suppress output while reading password

[ELPA Syncer]

branch: elpa/keycast
commit ab41be43b6d9efd5eff5ad7f22a997cc41e8daf0
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Suppress output while reading password
    
    Closes #8.
---
 keycast.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/keycast.el b/keycast.el
index 368a94265a..23aca2f59c 100644
--- a/keycast.el
+++ b/keycast.el
@@ -148,6 +148,7 @@ instead."
 (defvar keycast--this-command nil)
 (defvar keycast--this-command-keys nil)
 (defvar keycast--command-repetitions 0)
+(defvar keycast--reading-passwd nil)
 
 (defun keycast-mode-line-update ()
   "Update mode line with current `this-command' and `this-command-keys'."
@@ -209,6 +210,7 @@ instead."
 (defvar mode-line-keycast
   '(:eval
     (and (funcall keycast-window-predicate)
+         (not keycast--reading-passwd)
          (let* ((key (ignore-errors
                        (key-description keycast--this-command-keys)))
                 (cmd keycast--this-command)
@@ -232,6 +234,12 @@ instead."
 (put 'mode-line-keycast 'risky-local-variable t)
 (make-variable-buffer-local 'mode-line-keycast)
 
+(defun keycast--read-passwd (fn prompt &optional confirm default)
+  (let ((keycast--reading-passwd t))
+    (funcall fn prompt confirm default)))
+
+(advice-add 'read-passwd :around #'keycast--read-passwd)
+
 ;;; _
 (provide 'keycast)
 ;; Local Variables: