[nongnu] elpa/keycast 08c0e999ac 22/31: keycast--read-passwd: Move definition

[ELPA Syncer]

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

    keycast--read-passwd: Move definition
---
 keycast.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/keycast.el b/keycast.el
index 609c14d054..5882b20699 100644
--- a/keycast.el
+++ b/keycast.el
@@ -242,6 +242,12 @@ instead."
                               (format " x%s" (1+ keycast--command-repetitions))
                             "")))))))))
 
+(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)
+
 ;;; Mode-Line
 
 (defvar keycast--removed-tail nil)
@@ -344,14 +350,6 @@ instead."
         (let ((inhibit-read-only t))
           (erase-buffer))))))
 
-;;; Common
-
-(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: