zap-to-char: Fix interactive specification

* lisp/simple.el (zap-to-char): Include t in the list.
This commit is contained in:
Tino Calancha 2022-05-23 14:51:08 +02:00
parent 1799e5d35a
commit 6ac6919f74

View file

@ -6352,8 +6352,8 @@ If called interactively, do a case sensitive search if CHAR
is an upper-case character."
(interactive (list (prefix-numeric-value current-prefix-arg)
(read-char-from-minibuffer "Zap to char: "
nil 'read-char-history))
t)
nil 'read-char-history)
t))
;; Avoid "obsolete" warnings for translation-table-for-input.
(with-no-warnings
(if (char-table-p translation-table-for-input)