zap-to-char: Fix interactive specification
* lisp/simple.el (zap-to-char): Include t in the list.
This commit is contained in:
parent
1799e5d35a
commit
6ac6919f74
1 changed files with 2 additions and 2 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue