diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-02-12 08:40:30 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-02-12 08:40:30 +0100 |
| commit | c4da0d331291d531dddc08e7fef1548e638c4663 (patch) | |
| tree | 3335a3dc2da9f4239ddaa986d6e97abb1eb48e19 /lisp/emacs-lisp/edebug.el | |
| parent | 2b97e83cc1bffdaa923c9ebb877da2e25051e1a9 (diff) | |
| download | emacs-c4da0d331291d531dddc08e7fef1548e638c4663.tar.gz emacs-c4da0d331291d531dddc08e7fef1548e638c4663.tar.bz2 emacs-c4da0d331291d531dddc08e7fef1548e638c4663.zip | |
Improve interaction between track-mouse and edebug
* lisp/emacs-lisp/edebug.el (edebug--display-1): Work around
`track-mouse' oddity (bug#675).
Diffstat (limited to 'lisp/emacs-lisp/edebug.el')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 1720393b3e5..a7e71d2ed24 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -2577,6 +2577,13 @@ See `edebug-behavior-alist' for implementations.") ;; Let's at least show a backtrace so the user can figure out ;; which function we're talking about. (debug)) + ;; If we're in a `track-mouse' setting, then any previous mouse + ;; movements will make `input-pending-p' later return true. So + ;; discard the inputs in that case. (And `discard-input' doesn't + ;; work here.) + (when track-mouse + (while (input-pending-p) + (read-event))) ;; Setup windows for edebug, determine mode, maybe enter recursive-edit. ;; Uses local variables of edebug-enter, edebug-before, edebug-after ;; and edebug-debugger. |