diff options
| author | Richard M. Stallman | 1997-06-09 16:42:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-06-09 16:42:34 +0000 |
| commit | 9d07cf38e762080f13ab7a6a7a6c67daf20cfedc (patch) | |
| tree | 7c2c340854b6d0f4c3b689802ee8b6f46dc27253 | |
| parent | c5ee9ef188ec64ee24b95e66691b6edade5f0193 (diff) | |
| download | emacs-9d07cf38e762080f13ab7a6a7a6c67daf20cfedc.tar.gz emacs-9d07cf38e762080f13ab7a6a7a6c67daf20cfedc.zip | |
(debug): Set overriding-terminal-local-map to nil,
don't bind it, so it won't be restored on `q'.
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index e258533bf15..d3383992f54 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el | |||
| @@ -98,13 +98,15 @@ first will be printed into the backtrace buffer." | |||
| 98 | (debugger-outer-standard-input standard-input) | 98 | (debugger-outer-standard-input standard-input) |
| 99 | (debugger-outer-standard-output standard-output) | 99 | (debugger-outer-standard-output standard-output) |
| 100 | (debugger-outer-cursor-in-echo-area cursor-in-echo-area)) | 100 | (debugger-outer-cursor-in-echo-area cursor-in-echo-area)) |
| 101 | ;; Set this instead of binding it, so that `q' | ||
| 102 | ;; will not restore it. | ||
| 103 | (setq overriding-terminal-local-map nil) | ||
| 101 | ;; Don't let these magic variables affect the debugger itself. | 104 | ;; Don't let these magic variables affect the debugger itself. |
| 102 | (let ((last-command nil) this-command track-mouse | 105 | (let ((last-command nil) this-command track-mouse |
| 103 | (unread-command-char -1) unread-command-events | 106 | (unread-command-char -1) unread-command-events |
| 104 | last-input-event last-command-event last-nonmenu-event | 107 | last-input-event last-command-event last-nonmenu-event |
| 105 | last-event-frame | 108 | last-event-frame |
| 106 | overriding-local-map | 109 | overriding-local-map |
| 107 | overriding-terminal-local-map | ||
| 108 | load-read-function | 110 | load-read-function |
| 109 | (standard-input t) (standard-output t) | 111 | (standard-input t) (standard-output t) |
| 110 | (cursor-in-echo-area nil)) | 112 | (cursor-in-echo-area nil)) |