[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#39154: 27.0.60; Use character history in zap-up-to-char
From: |
Tino Calancha |
Subject: |
bug#39154: 27.0.60; Use character history in zap-up-to-char |
Date: |
Thu, 16 Jan 2020 19:56:55 +0100 |
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 :-)