From c8791c6a508cfe45dda766c2f3b9e1dbb314fc4e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 12 Jun 2007 04:56:35 +0000 Subject: [PATCH] (tpu-emacs-map-key): Use new keymap names. --- lisp/ChangeLog | 2 ++ lisp/emulation/tpu-mapper.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ccca34707c3..f28aac05b4f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2007-06-12 Stefan Monnier + * emulation/tpu-mapper.el (tpu-emacs-map-key): Use new keymap names. + * emulation/tpu-edt.el (tpu-gold-map): Rename from GOLD-map. (tpu-lucid-emacs-p): Remove. Use (featurep 'xemacs) instead. (CSI-map, GOLD-CSI-map, GOLD-SS3-map, SS3-map): Delete vars. diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el index 975e61c8df3..eeaa5c7c560 100644 --- a/lisp/emulation/tpu-mapper.el +++ b/lisp/emulation/tpu-mapper.el @@ -202,9 +202,9 @@ (setq tpu-key (concat "[" (format "%s" tpu-key-seq) "]")) (cond ((not (equal tpu-key tpu-return)) (set-buffer "Keys") - (insert (format"(global-set-key %s %s)\n" tpu-key func)) + (insert (format"(define-key tpu-global-map %s %s)\n" tpu-key func)) (set-buffer "Gold-Keys") - (insert (format "(define-key GOLD-map %s %s)\n" tpu-key gold-func)) + (insert (format "(define-key tpu-gold-map %s %s)\n" tpu-key gold-func)) (set-buffer "Directions")) ;; bogosity to get next prompt to come up, if the user hits ! ;; check periodically to see if this is still needed... @@ -393,5 +393,5 @@ ") (goto-char (point-min)) -;;; arch-tag: bab5872f-cd3a-4c1c-aedb-047b67646f6c +;; arch-tag: bab5872f-cd3a-4c1c-aedb-047b67646f6c ;;; tpu-mapper.el ends here -- 2.11.4.GIT