From 6ac6919f74c2de91b2eb03de3aab326dcd3c5273 Mon Sep 17 00:00:00 2001
From: Tino Calancha <tino.calancha@gmail.com>
Date: Mon, 23 May 2022 14:51:08 +0200
Subject: [PATCH] zap-to-char: Fix interactive specification

* lisp/simple.el (zap-to-char): Include t in the list.
---
 lisp/simple.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index 6906675f68a..fb1bf3fa742 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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)
-- 
2.39.2