Mercurial > emacs
comparison lisp/emulation/tpu-mapper.el @ 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 | 7a3f13e2dd57 |
| children | b98604865ea0 3619e7770f2e |
comparison
equal
deleted
inserted
replaced
| 81314:5671bcc5449a | 81315:19cac94ab3b0 |
|---|---|
| 200 (message "Press %s%s: " ident descrip) | 200 (message "Press %s%s: " ident descrip) |
| 201 (setq tpu-key-seq (read-event)) | 201 (setq tpu-key-seq (read-event)) |
| 202 (setq tpu-key (concat "[" (format "%s" tpu-key-seq) "]")) | 202 (setq tpu-key (concat "[" (format "%s" tpu-key-seq) "]")) |
| 203 (cond ((not (equal tpu-key tpu-return)) | 203 (cond ((not (equal tpu-key tpu-return)) |
| 204 (set-buffer "Keys") | 204 (set-buffer "Keys") |
| 205 (insert (format"(global-set-key %s %s)\n" tpu-key func)) | 205 (insert (format"(define-key tpu-global-map %s %s)\n" tpu-key func)) |
| 206 (set-buffer "Gold-Keys") | 206 (set-buffer "Gold-Keys") |
| 207 (insert (format "(define-key GOLD-map %s %s)\n" tpu-key gold-func)) | 207 (insert (format "(define-key tpu-gold-map %s %s)\n" tpu-key gold-func)) |
| 208 (set-buffer "Directions")) | 208 (set-buffer "Directions")) |
| 209 ;; bogosity to get next prompt to come up, if the user hits <CR>! | 209 ;; bogosity to get next prompt to come up, if the user hits <CR>! |
| 210 ;; check periodically to see if this is still needed... | 210 ;; check periodically to see if this is still needed... |
| 211 (t | 211 (t |
| 212 (format "%s" tpu-key))) | 212 (format "%s" tpu-key))) |
| 391 | 391 |
| 392 Press GOLD-k to remove this buffer and continue editing. | 392 Press GOLD-k to remove this buffer and continue editing. |
| 393 ") | 393 ") |
| 394 (goto-char (point-min)) | 394 (goto-char (point-min)) |
| 395 | 395 |
| 396 ;;; arch-tag: bab5872f-cd3a-4c1c-aedb-047b67646f6c | 396 ;; arch-tag: bab5872f-cd3a-4c1c-aedb-047b67646f6c |
| 397 ;;; tpu-mapper.el ends here | 397 ;;; tpu-mapper.el ends here |