[elpa] externals/embark b5038c5 3/3: Silence warning about not leavin _update unused

[ELPA Syncer]

branch: externals/embark
commit b5038c55bf4f5e1d85a731a481101a952957b973
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    Silence warning about not leavin _update unused
---
 embark.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/embark.el b/embark.el
index f8e6755..4ffe3fd 100644
--- a/embark.el
+++ b/embark.el
@@ -1132,9 +1132,13 @@ If NESTED is non-nil subkeymaps are not flattened."
                    collect (cons formatted item))))
     (cons candidates def)))
 
-(defun embark-completing-read-prompter (keymap _update &optional no-default)
+(defun embark-completing-read-prompter (keymap update &optional no-default)
   "Prompt via completion for a command bound in KEYMAP.
-If NO-DEFAULT is t, no default value is passed to `completing-read'."
+If NO-DEFAULT is t, no default value is passed to`completing-read'. 
+
+UPDATE is the indicator update function.  It is not used directly
+here, but if the user switches to `embark-keymap-prompter', the
+UPDATE function is passed to it."
   (let* ((candidates+def (embark--formatted-bindings keymap))
          (candidates (car candidates+def))
          (def (and (not no-default) (cdr candidates+def)))
@@ -1169,7 +1173,7 @@ If NO-DEFAULT is t, no default value is passed to 
`completing-read'."
                         (lambda ()
                           (interactive)
                           (message "Press key binding")
-                          (let ((cmd (embark-keymap-prompter keymap _update)))
+                          (let ((cmd (embark-keymap-prompter keymap update)))
                             (if (null cmd)
                                 (user-error "Unknown key")
                               (throw 'choice cmd))))))