(debug, debugger-env-macro): Use with-no-warnings while accessing and

binding unread-command-char.

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index f62b0c4836e16a48a31edf2f6c8e68f9c28aa8bd..10c4fd4f734cc2555f35baa9f0590a58204b23d4 100644 (file)
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -128,7 +128,8 @@ first will be printed into the backtrace buffer."
          (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 @@ first will be printed into the backtrace buffer."
       (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 @@ first will be printed into the backtrace buffer."
        (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 @@ first will be printed into the backtrace buffer."
       (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 @@ Applies to the frame whose line point is on in the backtrace."
           (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 @@ Applies to the frame whose line point is on in the backtrace."
           (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 @@ Applies to the frame whose line point is on in the backtrace."
         (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)