Use the char history in zap-up-to-char

* lisp/misc.el (zap-up-to-char): Use read-char-from-minibuffer
(bug#39154).

diff --git a/etc/NEWS b/etc/NEWS
index 9cd8aaa41c857757c603a226d0282a6e7988bd77..4cd40c3657c226fee04792233cc4d1132360ab9d 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1064,6 +1064,13 @@ window after starting).  This variable defaults to nil.
 
 ** Miscellaneous
 
+---
+*** 'zap-up-to-char' now uses 'read-char-from-minibuffer'.
+This allows navigating through the history of characters that have
+been input.  This is mostly useful for characters that have complex
+input methods where inputting the character again may involve many
+keystrokes.
+
 +++
 *** Interactive regular expression search now uses faces for sub-groups.
 E.g., 'C-M-s foo-\([0-9]+\)' will now use the 'isearch-group-1' face

diff --git a/lisp/misc.el b/lisp/misc.el
index 8c39492784b645b1f084c997db859299b36d7b32..be191c50d2fa1bfb4fc96c9ce3081a0c7f7a7973 100644 (file)
--- a/lisp/misc.el
+++ b/lisp/misc.el
@@ -69,7 +69,9 @@ The characters copied are inserted in the buffer before point."
 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 up to char: "
+                                               nil 'read-char-history)))
   (let ((direction (if (>= arg 0) 1 -1)))
     (kill-region (point)
                 (progn