From: Stefan Monnier Date: Tue, 12 Jun 2007 04:56:35 +0000 (+0000) Subject: (tpu-emacs-map-key): Use new keymap names. X-Git-Tag: emacs-pretest-23.0.90~12360 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8791c6a508cfe45dda766c2f3b9e1dbb314fc4e;p=emacs.git (tpu-emacs-map-key): Use new keymap names. --- 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