Mercurial > emacs

changeset 18166:84c0a412aa71

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(debug, debugger-eval-expression): Treat overriding-terminal-local-map like overriding-local-map. (debugger-outer-overriding-terminal-local-map): New variable.
author Richard M. Stallman <rms@gnu.org>
date Sun, 08 Jun 1997 12:25:25 +0000
parents 7c8db921ea0f
children 6da1b5250673
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	Sun Jun 08 03:58:22 1997 +0000
+++ b/lisp/emacs-lisp/debug.el	Sun Jun 08 12:25:25 1997 +0000
@@ -43,6 +43,7 @@
 (defvar debugger-outer-match-data)
 (defvar debugger-outer-load-read-function)
 (defvar debugger-outer-overriding-local-map)
+(defvar debugger-outer-overriding-terminal-local-map)
 (defvar debugger-outer-track-mouse)
 (defvar debugger-outer-last-command)
 (defvar debugger-outer-this-command)
@@ -83,6 +84,8 @@
 	(debugger-outer-match-data (match-data))
 	(debugger-outer-load-read-function load-read-function)
 	(debugger-outer-overriding-local-map overriding-local-map)
+	(debugger-outer-overriding-terminal-local-map
+	 overriding-terminal-local-map)
 	(debugger-outer-track-mouse track-mouse)
 	(debugger-outer-last-command last-command)
 	(debugger-outer-this-command this-command)
@@ -101,6 +104,7 @@
 	  last-input-event last-command-event last-nonmenu-event
 	  last-event-frame
 	  overriding-local-map
+	  overriding-terminal-local-map
 	  load-read-function
 	  (standard-input t) (standard-output t)
 	  (cursor-in-echo-area nil))
@@ -181,6 +185,8 @@
     ;; in case the user set them with the `e' command.
     (setq load-read-function debugger-outer-load-read-function)
     (setq overriding-local-map debugger-outer-overriding-local-map)
+    (setq overriding-terminal-local-map
+	  debugger-outer-overriding-terminal-local-map)
     (setq track-mouse debugger-outer-track-mouse)
     (setq last-command debugger-outer-last-command)
     (setq this-command debugger-outer-this-command)
@@ -328,12 +334,16 @@
 	  (standard-output debugger-outer-standard-output)
 	  (cursor-in-echo-area debugger-outer-cursor-in-echo-area)
 	  (overriding-local-map debugger-outer-overriding-local-map)
+	  (overriding-terminal-local-map
+	   debugger-outer-overriding-terminal-local-map)
 	  (load-read-function debugger-outer-load-read-function))
       (store-match-data debugger-outer-match-data)
       (prog1 (eval-expression exp)
 	(setq debugger-outer-match-data (match-data))
 	(setq debugger-outer-load-read-function load-read-function)
 	(setq debugger-outer-overriding-local-map overriding-local-map)
+	(setq debugger-outer-overriding-terminal-local-map
+	      overriding-terminal-local-map)
 	(setq debugger-outer-track-mouse track-mouse)
 	(setq debugger-outer-last-command last-command)
 	(setq debugger-outer-this-command this-command)