Mercurial > emacs
changeset 81315:19cac94ab3b0
(tpu-emacs-map-key): Use new keymap names.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 12 Jun 2007 04:56:35 +0000 |
| parents | 5671bcc5449a |
| children | b1c3e248f6cd |
| files | lisp/ChangeLog lisp/emulation/tpu-mapper.el |
| diffstat | 2 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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