[Emacs-diffs] Changes to emacs/lisp/emulation/tpu-edt.el

[Richard M . Stallman]

Index: emacs/lisp/emulation/tpu-edt.el
diff -c emacs/lisp/emulation/tpu-edt.el:1.38 
emacs/lisp/emulation/tpu-edt.el:1.39
*** emacs/lisp/emulation/tpu-edt.el:1.38        Tue May 17 17:29:06 2005
--- emacs/lisp/emulation/tpu-edt.el     Sun Jul  3 19:20:21 2005
***************
*** 341,347 ****
    "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)
    "Original global keymap.")
  
  (and tpu-lucid-emacs19-p
--- 341,347 ----
    "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 global-map
    "Original global keymap.")
  
  (and tpu-lucid-emacs19-p
***************
*** 2017,2024 ****
  ;;;
  ;;;  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
--- 2017,2022 ----
***************
*** 2503,2508 ****
--- 2501,2510 ----
      (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,2522 ****
      (setq-default page-delimiter "^\f")
      (setq-default truncate-lines nil)
      (setq scroll-step 0)
!     (setq global-map (copy-keymap tpu-original-global-map))
      (use-global-map global-map)
      (setq tpu-edt-mode nil))))
  
--- 2518,2524 ----
      (setq-default page-delimiter "^\f")
      (setq-default truncate-lines nil)
      (setq scroll-step 0)
!     (setq global-map tpu-original-global-map)
      (use-global-map global-map)
      (setq tpu-edt-mode nil))))