bug#47566: 28.0.50; diff-hl should use `repeat-mode' ... and not `smartrep'

[Juri Linkov]

>>        (cl-loop for
>>             (cmd . key)
>>             in
>>             '((diff-hl-diff-goto-hunk . "=")
>>               (diff-hl-revert-hunk . "n")
>>               (diff-hl-previous-hunk . "[")
>>               (diff-hl-next-hunk . "]"))
>>             do
>>             (define-key diff-hl--repeat-map key cmd)
>>             (put cmd 'repeat-map 'diff-hl--repeat-map)))
>
> Try this alternative too, seems shorter:
>
> (map-keymap
>  (lambda (_key cmd)
>    (put cmd 'repeat-map 'diff-hl-command-map))
>  diff-hl-command-map)
>
> But either version (together with enabling repeat-mode) seems to break
> diff-hl-revert-hunk: as soon as it reaches the the y-or-n prompt, and I try
> to answer 'n', it enters the repeat loop again, instead of sending the
> result to the command.

Could you provide a minimal test case?  I tried with:

#+begin_src emacs-lisp
(defun hl-test ()
  (interactive)
  (message "OK")
  (y-or-n-p "Yes? "))

(defvar hl-repeat-map
  (let ((map (make-sparse-keymap)))
    (define-key map (kbd "r") 'hl-test)
    map)
  "Keymap to repeat hl-test.")
(put 'hl-test 'repeat-map 'hl-repeat-map)
#+end_src

Then typing `M-x hl-test RET', and `y r y r y r ...' keeps the loop.