aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emulation
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/emulation')
-rw-r--r--lisp/emulation/edt-mapper.el70
1 files changed, 35 insertions, 35 deletions
diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el
index 725eab41d20..c8b7e894552 100644
--- a/lisp/emulation/edt-mapper.el
+++ b/lisp/emulation/edt-mapper.el
@@ -297,26 +297,26 @@
297 297
298 Here's a picture of the standard LK-201 keypad for reference: 298 Here's a picture of the standard LK-201 keypad for reference:
299 299
300 _______________________ _______________________________ 300 ________________________ _______________________________
301 | HELP | DO | | F17 | F18 | F19 | F20 | 301 | HELP | DO | | F17 | F18 | F19 | F20 |
302 | | | | | | | | 302 | | | | | | | |
303 |_______|_______________| |_______|_______|_______|_______| 303 |_______|________________| |_______|_______|_______|_______|
304 _______________________ _______________________________ 304 ________________________ _______________________________
305 | FIND |INSERT |REMOVE | | PF1 | PF2 | PF3 | PF4 | 305 | FIND |INSERT |REMOVE | | PF1 | PF2 | PF3 | PF4 |
306 | | | | | | | | | 306 | | | | | | | | |
307 |_______|_______|_______| |_______|_______|_______|_______| 307 |_______|________|_______| |_______|_______|_______|_______|
308 |SELECT |PREVIOU| NEXT | | KP7 | KP8 | KP9 | KP- | 308 |SELECT |PREVIOUS|NEXT | | KP7 | KP8 | KP9 | KP- |
309 | | | | | | | | | 309 | | | | | | | | |
310 |_______|_______|_______| |_______|_______|_______|_______| 310 |_______|________|_______| |_______|_______|_______|_______|
311 | UP | | KP4 | KP5 | KP6 | KP, | 311 | UP | | KP4 | KP5 | KP6 | KP, |
312 | | | | | | | 312 | | | | | | |
313 _______|_______|_______ |_______|_______|_______|_______| 313 _______|________|_______ |_______|_______|_______|_______|
314 | LEFT | DOWN | RIGHT | | KP1 | KP2 | KP3 | | 314 | LEFT | DOWN | RIGHT | | KP1 | KP2 | KP3 | |
315 | | | | | | | | | 315 | | | | | | | | |
316 |_______|_______|_______| |_______|_______|_______| KPE | 316 |_______|________|_______| |_______|_______|_______| KPE |
317 | KP0 | KPP | | 317 | KP0 | KPP | |
318 | | | | 318 | | | |
319 |_______________|_______|_______| 319 |_______________|_______|_______|
320 320
321 REMEMBER: JUST PRESS RETURN TO SKIP MAPPING A KEY. 321 REMEMBER: JUST PRESS RETURN TO SKIP MAPPING A KEY.
322 322
@@ -329,20 +329,20 @@
329 329
330 PRESS THE KEY SPECIFIED IN THE MINIBUFFER BELOW. 330 PRESS THE KEY SPECIFIED IN THE MINIBUFFER BELOW.
331 331
332 _______________________ _______________________________ 332 ________________________ _______________________________
333 | HELP | DO | | F17 | F18 | F19 | F20 | 333 | HELP | DO | | F17 | F18 | F19 | F20 |
334 |_______|_______________| |_______|_______|_______|_______| 334 |_______|________________| |_______|_______|_______|_______|
335 _______________________ _______________________________ 335 ________________________ _______________________________
336 | FIND |INSERT |REMOVE | | PF1 | PF2 | PF3 | PF4 | 336 | FIND |INSERT |REMOVE | | PF1 | PF2 | PF3 | PF4 |
337 |_______|_______|_______| |_______|_______|_______|_______| 337 |_______|________|_______| |_______|_______|_______|_______|
338 |SELECT |PREVIOU| NEXT | | KP7 | KP8 | KP9 | KP- | 338 |SELECT |PREVIOUS| NEXT | | KP7 | KP8 | KP9 | KP- |
339 |_______|_______|_______| |_______|_______|_______|_______| 339 |_______|________|_______| |_______|_______|_______|_______|
340 | UP | | KP4 | KP5 | KP6 | KP, | 340 | UP | | KP4 | KP5 | KP6 | KP, |
341 _______|_______|_______ |_______|_______|_______|_______| 341 _______|________|_______ |_______|_______|_______|_______|
342 | LEFT | DOWN | RIGHT | | KP1 | KP2 | KP3 | | 342 | LEFT | DOWN | RIGHT | | KP1 | KP2 | KP3 | |
343 |_______|_______|_______| |_______|_______|_______| KPE | 343 |_______|________|_______| |_______|_______|_______| KPE |
344 | KP0 | KPP | | 344 | KP0 | KPP | |
345 |_______________|_______|_______| 345 |_______________|_______|_______|
346 346
347 REMEMBER: JUST PRESS RETURN TO SKIP MAPPING A KEY."))) 347 REMEMBER: JUST PRESS RETURN TO SKIP MAPPING A KEY.")))
348 348
@@ -353,7 +353,7 @@
353(defun edt-map-key (ident descrip) 353(defun edt-map-key (ident descrip)
354 (interactive) 354 (interactive)
355 (if (featurep 'xemacs) 355 (if (featurep 'xemacs)
356 (progn 356 (progn
357 (setq edt-key-seq (read-key-sequence (format "Press %s%s: " ident descrip))) 357 (setq edt-key-seq (read-key-sequence (format "Press %s%s: " ident descrip)))
358 (setq edt-key (concat "[" (format "%s" (event-key (aref edt-key-seq 0))) "]")) 358 (setq edt-key (concat "[" (format "%s" (event-key (aref edt-key-seq 0))) "]"))
359 (cond ((not (equal edt-key edt-return)) 359 (cond ((not (equal edt-key edt-return))