changeset 63959:112062b959bd

(tpu-original-global-map): Don't copy global-map, save the same map. (global-map): Don't alter it at top level. (tpu-edt-on): Save global map in tpu-original-global-map, then copy. Then alter it here instead. (tpu-edt-off): Set global-map to the saved one.
author Richard M. Stallman <rms@gnu.org>
date Sun, 03 Jul 2005 19:20:21 +0000
parents 180214c3bcc9
children 4b67deb7c72e
files lisp/emulation/tpu-edt.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/tpu-edt.el	Sun Jul 03 19:05:47 2005 +0000
+++ b/lisp/emulation/tpu-edt.el	Sun Jul 03 19:20:21 2005 +0000
@@ -341,7 +341,7 @@
   "Maps the function keys on the VT100 keyboard preceded by GOLD-SS3.")
 
 (defvar tpu-global-map nil "TPU-edt global keymap.")
-(defvar tpu-original-global-map (copy-keymap global-map)
+(defvar tpu-original-global-map global-map
   "Original global keymap.")
 
 (and tpu-lucid-emacs19-p
@@ -2017,8 +2017,6 @@
 ;;;
 ;;;  Define keymaps
 ;;;
-(define-key global-map "\e[" CSI-map)                         ; CSI map
-(define-key global-map "\eO" SS3-map)                         ; SS3 map
 (define-key SS3-map "P" GOLD-map)                             ; GOLD map
 (define-key GOLD-map "\e[" GOLD-CSI-map)                      ; GOLD-CSI map
 (define-key GOLD-map "\eO" GOLD-SS3-map)                      ; GOLD-SS3 map
@@ -2503,6 +2501,10 @@
     (setq-default page-delimiter "\f")
     (setq-default truncate-lines t)
     (setq scroll-step 1)
+    (setq tpu-original-global-map global-map)
+    (setq global-map (copy-keymap global-map))
+    (define-key global-map "\e[" CSI-map)
+    (define-key global-map "\eO" SS3-map)
     (setq tpu-edt-mode t))))
 
 (defun tpu-edt-off nil
@@ -2516,7 +2518,7 @@
     (setq-default page-delimiter "^\f")
     (setq-default truncate-lines nil)
     (setq scroll-step 0)
-    (setq global-map (copy-keymap tpu-original-global-map))
+    (setq global-map tpu-original-global-map)
     (use-global-map global-map)
     (setq tpu-edt-mode nil))))