# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1181624195 0
# Node ID 19cac94ab3b0813beff18b875d8846ced4b9cc3c
# Parent  5671bcc5449ab3330af0a5247f871e9b10fb447f
(tpu-emacs-map-key): Use new keymap names.

diff -r 5671bcc5449a -r 19cac94ab3b0 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jun 12 04:55:40 2007 +0000
+++ b/lisp/ChangeLog	Tue Jun 12 04:56:35 2007 +0000
@@ -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 -r 5671bcc5449a -r 19cac94ab3b0 lisp/emulation/tpu-mapper.el
--- a/lisp/emulation/tpu-mapper.el	Tue Jun 12 04:55:40 2007 +0000
+++ b/lisp/emulation/tpu-mapper.el	Tue Jun 12 04:56:35 2007 +0000
@@ -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