(tpu-emacs-map-key): Use new keymap names.

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  <monnier@iro.umontreal.ca>
 
+        * 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 <CR>!
         ;; 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