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

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))

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

[Lars Ingebrigtsen]

Platon Pronko <platon7pronko@gmail.com> writes:

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

Very odd.  If we instrument `ding', then we get the following backtrace:

Debugger entered--entering a function:
* ding()
  undefined()
  call-last-kbd-macro(nil kmacro-loop-setup-function)
  kmacro-call-macro(nil nil)
  kmacro-end-and-call-macro(nil)
  funcall-interactively(kmacro-end-and-call-macro nil)
  call-interactively(kmacro-end-and-call-macro nil nil)
  command-execute(kmacro-end-and-call-macro)

So it seems to be saying that it thinks that the "," is undefined?  Does
anybody understand what's going on here?  My last-kbd-macro is

[19 44 with-input-method]

and 44 is a comma, which should be w in this input method...

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

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

[Eli Zaretskii]

> From: Lars Ingebrigtsen <larsi@gnus.org>
> Date: Thu, 22 Oct 2020 16:02:17 +0200
> Cc: 41526@debbugs.gnu.org
> 
> Platon Pronko <platon7pronko@gmail.com> writes:
> 
> > 8. Observe the error message: "Keyboard macro terminated by a command ringing the bell"
> 
> Very odd.  If we instrument `ding', then we get the following backtrace:
> 
> Debugger entered--entering a function:
> * ding()
>   undefined()
>   call-last-kbd-macro(nil kmacro-loop-setup-function)
>   kmacro-call-macro(nil nil)
>   kmacro-end-and-call-macro(nil)
>   funcall-interactively(kmacro-end-and-call-macro nil)
>   call-interactively(kmacro-end-and-call-macro nil nil)
>   command-execute(kmacro-end-and-call-macro)
> 
> So it seems to be saying that it thinks that the "," is undefined?  Does
> anybody understand what's going on here?  My last-kbd-macro is
> 
> [19 44 with-input-method]
> 
> and 44 is a comma, which should be w in this input method...

Could this be due to the shenanigans we play during input-method input
to avoid recording keys twice?