Mercurial > emacs

changeset 22921:48b85e4a4dd3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Kenichi Handa <handa@m17n.org>
date Thu, 06 Aug 1998 05:38:11 +0000
parents f80a1ca0112f
children dc1913c204c9
files lisp/emacs-lisp/debug.el
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/debug.el	Thu Aug 06 05:38:11 1998 +0000
+++ b/lisp/emacs-lisp/debug.el	Thu Aug 06 05:38:11 1998 +0000
@@ -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 @@
 	(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 @@
     ;; 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 @@
     (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 @@
 	   (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 @@
 	 (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)