diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-08-06 05:38:11 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-08-06 05:38:11 +0000 |
| commit | 0359db825139f014c671e519485e80aa3683764d (patch) | |
| tree | cc827dae4035158610fc0561cd6b64cf95043e29 /lisp/emacs-lisp | |
| parent | bbb398a13f9a3c91029f5756c8d86fa9691f4c08 (diff) | |
| download | emacs-0359db825139f014c671e519485e80aa3683764d.tar.gz emacs-0359db825139f014c671e519485e80aa3683764d.tar.bz2 emacs-0359db825139f014c671e519485e80aa3683764d.zip | |
(debugger-outer-unread-post-input-method-events): New variable.
(debug): Bind debugger-outer-unread-post-input-method-events.
Bind unread-post-input-method-events to nil.
(debugger-env-macro): Likewise.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index ed5f1ae493d..fa874f5ae60 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -65,6 +65,7 @@ (defvar debugger-outer-this-command) (defvar debugger-outer-unread-command-char) (defvar debugger-outer-unread-command-events) +(defvar debugger-outer-unread-post-input-method-events) (defvar debugger-outer-last-input-event) (defvar debugger-outer-last-command-event) (defvar debugger-outer-last-nonmenu-event) @@ -107,6 +108,8 @@ first will be printed into the backtrace buffer." (debugger-outer-this-command this-command) (debugger-outer-unread-command-char unread-command-char) (debugger-outer-unread-command-events unread-command-events) + (debugger-outer-unread-post-input-method-events + unread-post-input-method-events) (debugger-outer-last-input-event last-input-event) (debugger-outer-last-command-event last-command-event) (debugger-outer-last-nonmenu-event last-nonmenu-event) @@ -120,6 +123,7 @@ first will be printed into the backtrace buffer." ;; Don't let these magic variables affect the debugger itself. (let ((last-command nil) this-command track-mouse (unread-command-char -1) unread-command-events + unread-post-input-method-events last-input-event last-command-event last-nonmenu-event last-event-frame overriding-local-map @@ -214,6 +218,8 @@ first will be printed into the backtrace buffer." (setq this-command debugger-outer-this-command) (setq unread-command-char debugger-outer-unread-command-char) (setq unread-command-events debugger-outer-unread-command-events) + (setq unread-post-input-method-events + debugger-outer-unread-post-input-method-events) (setq last-input-event debugger-outer-last-input-event) (setq last-command-event debugger-outer-last-command-event) (setq last-nonmenu-event debugger-outer-last-nonmenu-event) @@ -348,6 +354,8 @@ Applies to the frame whose line point is on in the backtrace." (this-command debugger-outer-this-command) (unread-command-char debugger-outer-unread-command-char) (unread-command-events debugger-outer-unread-command-events) + (unread-post-input-method-events + debugger-outer-unread-post-input-method-events) (last-input-event debugger-outer-last-input-event) (last-command-event debugger-outer-last-command-event) (last-nonmenu-event debugger-outer-last-nonmenu-event) @@ -371,6 +379,8 @@ Applies to the frame whose line point is on in the backtrace." (setq debugger-outer-this-command this-command) (setq debugger-outer-unread-command-char unread-command-char) (setq debugger-outer-unread-command-events unread-command-events) + (setq debugger-outer-unread-post-input-method-events + unread-post-input-method-events) (setq debugger-outer-last-input-event last-input-event) (setq debugger-outer-last-command-event last-command-event) (setq debugger-outer-last-nonmenu-event last-nonmenu-event) |