bug#41526: 28.0.50; isearch rings a bell inside a macro if using english-dvorak input method

[Platon Pronko]

When I use isearch-forward (bound to C-s by default) inside a macro
execution of resulting macro exits with message "Keyboard macro
terminated by a command ringing a bell". This only happens when
"english-dvorak" input method is active, it does not happen
with default input method.

Steps to reproduce:

1. Open an example file:
emacs -Q --eval '(progn (find-file "/tmp/test.csv") (insert 
"1,Vanessa,Rawlins,vrawlins0@4shared.com,Female,181.190.93.228") (move-beginning-of-line 0) 
(set-input-method "english-dvorak"))'

2. Type C-x C-( (starts macro recording).

3. Type C-s (runs isearch-forward).

4. Type "w" (which is "," in Dvorak layout).

5. Type "Enter" (exit isearch).

6. Type C-x C-) (exits macro recording).

7. Type C-x C-e to execute the new macro.

8. Observe the error message: "Keyboard macro terminated by a command ringing the 
bell"

I tried looking at the code for the recorded macro using "insert-kbd-macro", 
here are the results:

;; with english-dvorak input method
(setq last-kbd-macro
   [?\C-s ?w with-input-method return])
;; with default input method
(setq last-kbd-macro
   [?\C-s ?, return])

In GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.20, cairo 
version 1.17.3)
 of 2020-05-23 built on the-big-maker
Repository revision: 9e977c497257ff13bfb2579f8a14ca9b43791115
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12008000
System Description: Arch Linux

Configured using:
 'configure --prefix=/usr --sysconfdir=/etc --libexecdir=/usr/lib
 --localstatedir=/var --mandir=/usr/share/man --with-gameuser=:games
 --with-sound=alsa --with-modules --without-gconf --without-gsettings
 --with-x-toolkit=gtk3 --without-xaw3d --without-compress-install
 'CFLAGS=-march=x86-64 -mtune=generic -O2 -pipe -fno-plt -flto'
 CPPFLAGS=-D_FORTIFY_SOURCE=2
 LDFLAGS=-Wl,-O1,--sort-common,--as-needed,-z,relro,-z,now'

Configured features:
XPM JPEG TIFF GIF PNG RSVG CAIRO SOUND GPM DBUS GLIB NOTIFY INOTIFY ACL
GNUTLS LIBXML2 FREETYPE HARFBUZZ M17N_FLT LIBOTF ZLIB
TOOLKIT_SCROLL_BARS GTK3 X11 XDBE XIM MODULES THREADS LIBSYSTEMD JSON
PDUMPER LCMS2 GMP

Important settings:
  value of $LC_TIME: en_SE.UTF-8
  value of $LANG: en_US.UTF-8
  locale-coding-system: utf-8-unix

Major mode: Lisp Interaction

Minor modes in effect:
  magit-auto-revert-mode: t
  global-git-commit-mode: t
  async-bytecomp-package-mode: t
  shell-dirtrack-mode: t
  global-auto-revert-mode: t
  global-whitespace-mode: t
  iswitchb-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Load-path shadows:
/home/platon/.emacs.d/themes/solarized-definitions hides 
/home/platon/.emacs.d/elpa/color-theme-solarized-20160626.743/solarized-definitions
/home/platon/.emacs.d/themes/color-theme-solarized hides 
/home/platon/.emacs.d/elpa/color-theme-solarized-20160626.743/color-theme-solarized
/home/platon/.emacs.d/themes/color-theme-solarized-pkg hides 
/home/platon/.emacs.d/elpa/color-theme-solarized-20160626.743/color-theme-solarized-pkg
/home/platon/.emacs.d/modes/matlab hides 
/home/platon/.emacs.d/elpa/matlab-mode-20160902.459/matlab
/home/platon/.emacs.d/modes/matlab-load hides 
/home/platon/.emacs.d/elpa/matlab-mode-20160902.459/matlab-load
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-classpath hides 
/usr/share/emacs/site-lisp/cider-classpath
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-stacktrace hides 
/usr/share/emacs/site-lisp/cider-stacktrace
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-doc hides 
/usr/share/emacs/site-lisp/cider-doc
/home/platon/.emacs.d/elpa/cider-0.8.2/cider hides 
/usr/share/emacs/site-lisp/cider
/home/platon/.emacs.d/elpa/cider-0.8.2/nrepl-client hides 
/usr/share/emacs/site-lisp/nrepl-client
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-repl hides 
/usr/share/emacs/site-lisp/cider-repl
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-inspector hides 
/usr/share/emacs/site-lisp/cider-inspector
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-util hides 
/usr/share/emacs/site-lisp/cider-util
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-eldoc hides 
/usr/share/emacs/site-lisp/cider-eldoc
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-browse-ns hides 
/usr/share/emacs/site-lisp/cider-browse-ns
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-macroexpansion hides 
/usr/share/emacs/site-lisp/cider-macroexpansion
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-selector hides 
/usr/share/emacs/site-lisp/cider-selector
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-client hides 
/usr/share/emacs/site-lisp/cider-client
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-scratch hides 
/usr/share/emacs/site-lisp/cider-scratch
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-test hides 
/usr/share/emacs/site-lisp/cider-test
/home/platon/.emacs.d/elpa/protobuf-mode-20170526.1650/protobuf-mode hides 
/usr/share/emacs/site-lisp/protobuf-mode
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-mode hides 
/usr/share/emacs/site-lisp/cider-mode
/home/platon/.emacs.d/elpa/cider-0.8.2/cider-apropos hides 
/usr/share/emacs/site-lisp/cider-apropos
/home/platon/.emacs.d/elpa/clojure-mode-20161221.523/clojure-mode hides 
/usr/share/emacs/site-lisp/clojure-mode
/home/platon/.emacs.d/elpa/epl-20150517.433/epl hides 
/usr/share/emacs/site-lisp/epl/epl
/home/platon/.emacs.d/elpa/pkg-info-20150517.443/pkg-info hides 
/usr/share/emacs/site-lisp/pkg-info/pkg-info
/home/platon/.emacs.d/elpa/queue-0.2/queue hides 
/usr/share/emacs/site-lisp/queue/queue
/home/platon/.emacs.d/elpa/less-css-mode-20160930.2153/less-css-mode hides 
/usr/share/emacs/28.0.50/lisp/textmodes/less-css-mode

Features:
(shadow sort mail-extr emacsbug sendmail mode-local ibuf-ext ibuffer
ibuffer-loaddefs korea-util cl-print debug backtrace scala-mode2
scala-mode2-map scala-mode2-fontlock scala-mode2-indent
scala-mode2-paragraph scala-mode2-syntax scala-mode2-lib
rainbow-delimiters term/xterm xterm magit-version magit-blame
magit-stash magit-bisect magit-remote magit-commit magit-sequence magit
magit-apply magit-wip magit-log magit-diff smerge-mode diff diff-mode
magit-core magit-autorevert magit-process magit-popup magit-mode
sh-script executable nlinum-relative nlinum autoload lisp-mnt pp
cus-edit cus-start cus-load mm-archive gnutls mule-util network-stream
url-http url-gw nsm url-cache url-auth bs bug-reference eieio-opt
misearch multi-isearch pulse help-fns radix-tree find-func avy quail
git-commit with-editor async-bytecomp async transient cl-extra help-mode
server magit-git crm magit-section magit-utils log-edit easy-mmode
message rmc dired dired-loaddefs rfc822 mml mml-sec epa epg epg-config
mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils
mailheader pcvs-util dash tramp tramp-loaddefs trampver
tramp-integration files-x tramp-compat shell pcomplete parse-time
iso8601 ls-lisp lpr php-mode advice rx speedbar ezimage dframe etags
fileloop generator xref project flymake-proc flymake compile warnings
add-log cc-langs autorevert filenotify whitespace sass-mode haml-mode js
cc-mode cc-fonts cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine
cc-vars cc-defs css-mode sgml-mode imenu eww mm-url gnus nnheader
gnus-util rmail rmail-loaddefs rfc2047 rfc2045 ietf-drums time-date
mail-utils mm-util mail-prsvr thingatpt url-queue url url-proxy
url-privacy url-expand url-methods url-history mailcap shr
text-property-search url-cookie url-domsuf url-util puny svg xml dom
format-spec color ruby-mode smie windmove besi derived comint ansi-color
ring scala-mode-inf scala-mode-constants scala-mode-lib scala-mode-ui
textindent edmacro kmacro iswitchb linum color-theme wid-edit cl
finder-inf scala-mode2-autoloads info package easymenu browse-url
url-handlers url-parse auth-source cl-seq eieio eieio-core cl-macs
eieio-loaddefs password-cache json subr-x map url-vars seq byte-opt gv
bytecomp byte-compile cconv cl-loaddefs cl-lib tooltip eldoc electric
uniquify ediff-hook vc-hooks lisp-float-type mwheel term/x-win x-win
term/common-win x-dnd tool-bar dnd fontset image regexp-opt fringe
tabulated-list replace newcomment text-mode elisp-mode lisp-mode
prog-mode register page tab-bar menu-bar rfn-eshadow isearch timer
select scroll-bar mouse jit-lock font-lock syntax facemenu font-core
term/tty-colors frame minibuffer cl-generic cham georgian utf-8-lang
misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms
cp51932 hebrew greek romanian slovak czech european ethiopic indian
cyrillic chinese composite charscript charprop case-table epa-hook
jka-cmpr-hook help simple abbrev obarray cl-preloaded nadvice loaddefs
button faces cus-face macroexp files text-properties overlay sha1 md5
base64 format env code-pages mule custom widget hashtable-print-readable
backquote threads dbusbind inotify lcms2 dynamic-setting
font-render-setting cairo move-toolbar gtk x-toolkit x multi-tty
make-network-process emacs)

Memory information:
((conses 16 1879545 193206)
  (symbols 48 31820 1)
  (strings 32 261509 39501)
  (string-bytes 1 12703839)
  (vectors 16 78647)
  (vector-slots 8 1466372 125314)
  (floats 8 327 648)
  (intervals 56 212939 6194)
  (buffers 992 45))