Mercurial > emacs
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))))