[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Loading tpu-edt.el changes Emacs
|
From: |
Richard M. Stallman |
|
Subject: |
Re: Loading tpu-edt.el changes Emacs |
|
Date: |
Sun, 03 Jul 2005 16:42:59 -0400 |
Does this fix it right?
*** tpu-edt.el 17 May 2005 17:21:37 -0400 1.38
--- tpu-edt.el 03 Jul 2005 15:20:21 -0400
***************
*** 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))))