bug#39154: 27.0.60; Use character history in zap-up-to-char

[Tino Calancha]

From: Tino Calancha <tino.calancha@gmail.com>

>diff --git a/lisp/misc.el b/lisp/misc.el
>index 05244a6ea2..8b6b7a7e0d 100644
>--- a/lisp/misc.el
>+++ b/lisp/misc.el
>@@ -69,7 +69,9 @@ zap-up-to-char
> Case is ignored if `case-fold-search' is non-nil in the current buffer.
> Goes backward if ARG is negative; error if CHAR not found.
> Ignores CHAR at point."
>-  (interactive "p\ncZap up to char: ")
>+  (interactive (list (prefix-numeric-value current-prefix-arg)
>+                   (read-char-from-minibuffer "Zap to char: "
>+                                              nil 'read-char-history)))
>   (let ((direction (if (>= arg 0) 1 -1)))
>     (kill-region (point)

Typo above, it should read '"Zap up to char: "', as follows:

>+                   (read-char-from-minibuffer "Zap up to char: "

Sorry for that :-)