209 |
(use-local-map terminal-escape-map) |
(use-local-map terminal-escape-map) |
210 |
(setq s (read-key-sequence |
(setq s (read-key-sequence |
211 |
(if current-prefix-arg |
(if current-prefix-arg |
212 |
(format "Emacs Terminal escape> %d " |
(format "Emacs Terminal escape[%s for help]> %d " |
213 |
|
(substitute-command-keys |
214 |
|
"\\<terminal-escape-map>\\[te-escape-help]") |
215 |
(prefix-numeric-value current-prefix-arg)) |
(prefix-numeric-value current-prefix-arg)) |
216 |
"Emacs Terminal escape> ")))) |
(format "Emacs Terminal escape[%s for help]> " |
217 |
|
(substitute-command-keys |
218 |
|
"\\<terminal-escape-map>\\[te-escape-help]")))))) |
219 |
(use-global-map global) |
(use-global-map global) |
220 |
(use-local-map local)) |
(use-local-map local)) |
221 |
|
|