Mercurial > emacs

changeset 51801:8da87623aaa3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(debug, debugger-env-macro): Use with-no-warnings while accessing and binding unread-command-char.
author Richard M. Stallman <rms@gnu.org>
date Mon, 07 Jul 2003 20:57:50 +0000
parents e5ae6af23b7b
children d8ab29cb1111
files lisp/emacs-lisp/debug.el
diffstat 1 files changed, 18 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/debug.el	Mon Jul 07 20:56:24 2003 +0000
+++ b/lisp/emacs-lisp/debug.el	Mon Jul 07 20:57:50 2003 +0000
@@ -128,7 +128,8 @@
 	  (debugger-outer-track-mouse track-mouse)
 	  (debugger-outer-last-command last-command)
 	  (debugger-outer-this-command this-command)
-	  (debugger-outer-unread-command-char unread-command-char)
+	  (debugger-outer-unread-command-char
+	   (with-no-warnings unread-command-char))
 	  (debugger-outer-unread-command-events unread-command-events)
 	  (debugger-outer-unread-post-input-method-events
 	   unread-post-input-method-events)
@@ -145,7 +146,7 @@
       (setq overriding-terminal-local-map nil)
       ;; 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-command-events
 	    unread-post-input-method-events
 	    last-input-event last-command-event last-nonmenu-event
 	    last-event-frame
@@ -161,6 +162,8 @@
 	(unwind-protect
 	    (save-excursion
 	      (save-window-excursion
+		(with-no-warnings
+		 (setq unread-command-char -1))
 		(pop-to-buffer debugger-buffer)
 		(debugger-mode)
 		(debugger-setup-buffer debugger-args)
@@ -214,7 +217,8 @@
       (setq track-mouse debugger-outer-track-mouse)
       (setq last-command debugger-outer-last-command)
       (setq this-command debugger-outer-this-command)
-      (setq unread-command-char debugger-outer-unread-command-char)
+      (with-no-warnings
+       (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)
@@ -487,7 +491,6 @@
           (track-mouse debugger-outer-track-mouse)
           (last-command debugger-outer-last-command)
           (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)
@@ -500,7 +503,17 @@
           (inhibit-redisplay debugger-outer-inhibit-redisplay)
           (cursor-in-echo-area debugger-outer-cursor-in-echo-area))
       (set-match-data debugger-outer-match-data)
-      (prog1 (progn ,@body)
+      (prog1
+	  (let ((save-ucc (with-no-warnings unread-command-char)))
+	    (unwind-protect
+		(progn
+		  (with-no-warnings
+		   (setq unread-command-char debugger-outer-unread-command-char))
+		  (prog1 (progn ,@body)
+		    (with-no-warnings
+		     (setq debugger-outer-unread-command-char unread-command-char))))
+	      (with-no-warnings
+	       (setq unread-command-char save-ucc))))
         (setq debugger-outer-match-data (match-data))
         (setq debugger-outer-load-read-function load-read-function)
         (setq debugger-outer-overriding-terminal-local-map
@@ -509,7 +522,6 @@
         (setq debugger-outer-track-mouse track-mouse)
         (setq debugger-outer-last-command last-command)
         (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)