bug#20074: edebug tracing can't be stopped with 'S'

[Mario Valencia <mariovalspi@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 3361 bytes --]

I start emacs with "runemacs -Q", on windows 8.
Then i write the following function in the scratch buffer:

(defun forever ()
  (interactive)
  (while t (message "doing nothing")))

I then press C-u C-M-x to instrument the function for debugging.  Then i
do M-x forever. Then i press 't' to start tracing, and edebug starts
tracing the code correctly. However, if i press 'S' to stop, it doesn't
work. Pressing many 'S' commands repeatedly apparently only cause edebug
to evaluate the 'while' expression faster. Pressing 'q', <SPC>, 'n', do
not seem to stop edebug either, they only appear to speed up the
evaluation of the code. I have to press C-g then 'q' to return me to the
toplevel.

In GNU Emacs 24.4.1 (i686-pc-mingw32)
 of 2014-10-24 on LEG570
Windowing system distributor `Microsoft Corp.', version 6.3.9600
Configured using:
 `configure --prefix=/c/usr'

Important settings:
  value of $LANG: ESM
  locale-coding-system: cp1252

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
( d e f u n SPC f o r e v e r SPC ( ) <return> ( i
n t e r a c t i v e ) <return> ( m e s s a g e SPC
" d o i n t <backspace> g SPC n o t h i n g " ) ) <up>
<return> ( w h i l t <backspace> e SPC t <down> <tab>
C-e ) C-u C-M-x M-x f o r e v e r <return> t S S S
S S S S S S S S S S S S S S S S S T t S c c g g g g
g g g g q q q q q q q q q C-g q <help-echo> <help-echo>
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo>
<menu-bar> <help-menu> <send-emacs-bug-report>

Recent messages:
doing nothing
Result: "doing nothing"
doing nothing
Result: "doing nothing"
doing nothing
Result: "doing nothing"
doing nothing
Result: "doing nothing"
Quit
Back to top level.

Load-path shadows:
None found.

Features:
(shadow sort gnus-util mail-extr emacsbug message format-spec rfc822 mml
mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev
gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util
help-fns mail-prsvr mail-utils edebug easymenu cl-loaddefs cl-lib
time-date tooltip electric uniquify ediff-hook vc-hooks lisp-float-type
mwheel dos-w32 ls-lisp w32-common-fns disp-table w32-win w32-vars
tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment
lisp-mode prog-mode register page menu-bar rfn-eshadow timer select
scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cham
georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao
korean japanese hebrew greek romanian slovak czech european ethiopic
indian cyrillic chinese case-table epa-hook jka-cmpr-hook help simple
abbrev minibuffer 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 make-network-process
w32notify w32 multi-tty emacs)

Memory information:
((conses 8 77731 5671)
 (symbols 32 18075 0)
 (miscs 32 35 96)
 (strings 16 12535 3467)
 (string-bytes 1 339295)
 (vectors 8 9742)
 (vector-slots 4 388212 4546)
 (floats 8 55 244)
 (intervals 28 240 35)
 (buffers 508 11))

[-- Attachment #2: Type: text/html, Size: 4737 bytes --]