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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ccca34707c3326e3d7a2a0d27449284e5c351897..f28aac05b4f01a94c16b9398d5ab3e38f9f6c108 100644 (file)
--- 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 975e61c8df3b9c8a66edd551cd084c1b14a8e9d4..eeaa5c7c560e5abf2d23f430b5572ea920bb04bf 100644 (file)
--- 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