diff options
| author | Stefan Monnier <[email protected]> | 2007-06-12 04:56:35 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2007-06-12 04:56:35 +0000 |
| commit | c8791c6a508cfe45dda766c2f3b9e1dbb314fc4e (patch) | |
| tree | 99c55860b7df491dc4ff0c14477bcc20f883ed76 /lisp/emulation/tpu-mapper.el | |
| parent | 86dd4d035fd5e742a06bd2ad3b144deb765f88a8 (diff) | |
(tpu-emacs-map-key): Use new keymap names.
Diffstat (limited to 'lisp/emulation/tpu-mapper.el')
| -rw-r--r-- | lisp/emulation/tpu-mapper.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el index 975e61c8df..eeaa5c7c56 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 |