[nongnu] elpa/keycast 6d75f149a7 20/31: keycast--update: New name for keycast-mode-line-update

[ELPA Syncer]

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

    keycast--update: New name for keycast-mode-line-update
    
    Preparing for use by a second minor-mode.
---
 keycast.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/keycast.el b/keycast.el
index 5f869a56f1..7e76e78122 100644
--- a/keycast.el
+++ b/keycast.el
@@ -166,8 +166,7 @@ instead."
 (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'."
+(defun keycast--update ()
   (if (eq last-command this-command)
       (cl-incf keycast--command-repetitions)
     (setq keycast--command-repetitions 0))
@@ -224,7 +223,7 @@ instead."
                (setcdr cons (list 'mode-line-keycast)))
               (t
                (setcdr cons (cons 'mode-line-keycast (cdr cons)))))
-        (add-hook 'pre-command-hook 'keycast-mode-line-update t))
+        (add-hook 'pre-command-hook 'keycast--update t))
     (let ((cons (memq 'mode-line-keycast mode-line-format)))
       (cond (keycast--removed-tail
              (setcar cons (car keycast--removed-tail))
@@ -233,7 +232,7 @@ instead."
              (setcar cons (cadr cons))
              (setcdr cons (cddr cons)))))
     (setq keycast--removed-tail nil)
-    (remove-hook 'pre-command-hook 'keycast-mode-line-update)))
+    (remove-hook 'pre-command-hook 'keycast--update)))
 
 (defun keycast--tree-member (elt tree)
   (or (member elt tree)