annotate lisp/emulation/edt-mapper.el @ 111686:e8049570c647

* lisp/eshell/: Use with-silent-modifications. * lisp/eshell/esh-cmd.el (eshell-parse-command): * lisp/eshell/esh-arg.el (eshell-parse-arguments): * lisp/eshell/em-script.el (eshell-source-file): Use with-silent-modifications.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 23 Nov 2010 12:36:15 -0500
parents 280c8ae2476d
children 40af77a50adc
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 35123
diff changeset
1 ;;; edt-mapper.el --- create an EDT LK-201 map file for X-Windows Emacs
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
95631
9a74acbaf005 Remove unnecessary eval-when-compile.
Glenn Morris <rgm@gnu.org>
parents: 94658
diff changeset
3 ;; Copyright (C) 1994, 1995, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
4 ;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5
74641
11fae7eadf2d Replace `/' with a `-', to fix a problem on Cygwin.
Eli Zaretskii <eliz@gnu.org>
parents: 73744
diff changeset
6 ;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com>
11fae7eadf2d Replace `/' with a `-', to fix a problem on Cygwin.
Eli Zaretskii <eliz@gnu.org>
parents: 73744
diff changeset
7 ;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com>
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8 ;; Keywords: emulations
110015
280c8ae2476d Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
9 ;; Package: edt
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10
10691
37ced05a96d0 Update copyright.
Karl Heuer <kwzh@gnu.org>
parents: 10690
diff changeset
11 ;; This file is part of GNU Emacs.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12
94658
eb7b2376cae5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
13 ;; GNU Emacs is free software: you can redistribute it and/or modify
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14 ;; it under the terms of the GNU General Public License as published by
94658
eb7b2376cae5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
15 ;; the Free Software Foundation, either version 3 of the License, or
eb7b2376cae5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
16 ;; (at your option) any later version.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21 ;; GNU General Public License for more details.
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
94658
eb7b2376cae5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
27 ;;
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
28
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
29 ;; [Part of the GNU Emacs EDT Emulation.]
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31 ;; This emacs lisp program can be used to create an emacs lisp file
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
32 ;; that defines the mapping of the user's keyboard to the LK-201
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
33 ;; keyboard function keys and keypad keys (around which EDT has been
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
34 ;; designed). Please read the "Usage" AND "Known Problems" sections
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
35 ;; below before attempting to run this program. (The design of this
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
36 ;; file, edt-mapper.el, was heavily influenced by tpu-mapper.el.)
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
37
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
38 ;; Version 4.0 contains the following enhancements:
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
40 ;; 1. If you access a workstation using an X Server, note that the
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
41 ;; initialization file generated by edt-mapper.el will now
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
42 ;; contain the name of the X Server vendor. This is a
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
43 ;; convenience for those who have access to their Unix account
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
44 ;; from more than one type of X Server. Since different X
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
45 ;; Servers typically require different EDT emulation
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
46 ;; initialization files, edt-mapper.el will now generate these
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
47 ;; different initialization files and save them with different
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
48 ;; names.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
49
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
50 ;; 2. Also, edt-mapper.el is now capable of binding an ASCII key
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
51 ;; sequence, providing the ASCII key sequence prefix is already
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
52 ;; known by Emacs to be a prefix. As a result, some
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
53 ;; terminal/keyboard/window system configurations, which don't
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
54 ;; have a complete set of sensible function key map bindings, can
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
55 ;; still be configured for EDT Emulation.
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
56
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
57
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
58 ;; Usage:
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
59
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
60 ;; Simply load this file into emacs (version 19 or higher)
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
61 ;; using the following command.
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
62
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
63 ;; emacs -q -l edt-mapper.el
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
64
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
65 ;; The "-q" option prevents loading of your .emacs file (commands
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
66 ;; therein might confuse this program).
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
67
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
68 ;; An instruction screen showing the typical LK-201 terminal
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
69 ;; functions keys will be displayed, and you will be prompted to
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
70 ;; press the keys on your keyboard which you want to emulate the
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
71 ;; corresponding LK-201 keys.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
72
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
73 ;; Finally, you will be prompted for the name of the file to store
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
74 ;; the key definitions. If you chose the default, it will be found
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
75 ;; and loaded automatically when the EDT emulation is started. If
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
76 ;; you specify a different file name, you will need to set the
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
77 ;; variable "edt-keys-file" before starting the EDT emulation.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
78 ;; Here's how you might go about doing that in your .emacs file.
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
79
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
80 ;; (setq edt-keys-file (expand-file-name "~/.my-emacs-keys"))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
81
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
82
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
83 ;; Known Problems:
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
84
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
85 ;; Sometimes, edt-mapper will ignore a key you press, and just
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
86 ;; continue to prompt for the same key. This can happen when your
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
87 ;; window manager sucks up the key and doesn't pass it on to emacs,
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
88 ;; or it could be an emacs bug. Either way, there's nothing that
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
89 ;; edt-mapper can do about it. You must press RETURN, to skip the
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
90 ;; current key and continue. Later, you and/or your local Emacs guru
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
91 ;; can try to figure out why the key is being ignored.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
92
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
93 ;;; History:
47940
c6a3d10a0675 (top-level): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42206
diff changeset
94 ;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
95
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
96 ;; Version 4.0 2000 Added 2 New Features
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
97
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
98 ;;; Code:
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
99
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
100 ;;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
101 ;;; Decide Emacs Variant, GNU Emacs or XEmacs (aka Lucid Emacs).
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
102 ;;; Determine Window System, and X Server Vendor (if appropriate).
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
103 ;;;
85511
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
104 (defconst edt-window-system (if (featurep 'xemacs) (console-type) window-system)
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
105 "Indicates window system \(in GNU Emacs\) or console type \(in XEmacs\).")
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
106
95837
7ea2a6d03884 Drop test for Emacs < 19.
Glenn Morris <rgm@gnu.org>
parents: 95631
diff changeset
107 (declare-function x-server-vendor "xfns.c" (&optional terminal))
7ea2a6d03884 Drop test for Emacs < 19.
Glenn Morris <rgm@gnu.org>
parents: 95631
diff changeset
108
7ea2a6d03884 Drop test for Emacs < 19.
Glenn Morris <rgm@gnu.org>
parents: 95631
diff changeset
109 (defconst edt-xserver (when (eq edt-window-system 'x)
7ea2a6d03884 Drop test for Emacs < 19.
Glenn Morris <rgm@gnu.org>
parents: 95631
diff changeset
110 ;; The Cygwin window manager has a `/' in its
7ea2a6d03884 Drop test for Emacs < 19.
Glenn Morris <rgm@gnu.org>
parents: 95631
diff changeset
111 ;; name, which breaks the generated file name of
7ea2a6d03884 Drop test for Emacs < 19.
Glenn Morris <rgm@gnu.org>
parents: 95631
diff changeset
112 ;; the custom key map file. Replace `/' with a
7ea2a6d03884 Drop test for Emacs < 19.
Glenn Morris <rgm@gnu.org>
parents: 95631
diff changeset
113 ;; `-' to work around that.
7ea2a6d03884 Drop test for Emacs < 19.
Glenn Morris <rgm@gnu.org>
parents: 95631
diff changeset
114 (if (featurep 'xemacs)
7ea2a6d03884 Drop test for Emacs < 19.
Glenn Morris <rgm@gnu.org>
parents: 95631
diff changeset
115 (replace-in-string (x-server-vendor) "[ /]" "-")
7ea2a6d03884 Drop test for Emacs < 19.
Glenn Morris <rgm@gnu.org>
parents: 95631
diff changeset
116 (replace-regexp-in-string "[ /]" "-"
7ea2a6d03884 Drop test for Emacs < 19.
Glenn Morris <rgm@gnu.org>
parents: 95631
diff changeset
117 (x-server-vendor))))
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
118 "Indicates X server vendor name, if applicable.")
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
119
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
120
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
121 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
122 ;;; Key variables
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
123 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
124 (defvar edt-key nil)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
125 (defvar edt-enter nil)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
126 (defvar edt-return nil)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
127 (defvar edt-key-seq nil)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
128 (defvar edt-enter-seq nil)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
129 (defvar edt-return-seq nil)
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
130 (defvar edt-term nil)
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
131
63915
96d313e6f018 (edt-save-function-key-map, EDT-key-name): `defvar' to silence the
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
132 ;; To silence the byte-compiler
95631
9a74acbaf005 Remove unnecessary eval-when-compile.
Glenn Morris <rgm@gnu.org>
parents: 94658
diff changeset
133 (defvar EDT-key-name)
9a74acbaf005 Remove unnecessary eval-when-compile.
Glenn Morris <rgm@gnu.org>
parents: 94658
diff changeset
134 (defvar edt-save-function-key-map)
63915
96d313e6f018 (edt-save-function-key-map, EDT-key-name): `defvar' to silence the
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
135
47940
c6a3d10a0675 (top-level): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42206
diff changeset
136 ;;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
137 ;;; Determine Terminal Type (if appropriate).
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
138 ;;;
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
139
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
140 (if (and edt-window-system (not (eq edt-window-system 'tty)))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
141 (setq edt-term nil)
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
142 (setq edt-term (getenv "TERM")))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
143
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
144 ;;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
145 ;;; Make sure the window is big enough to display the instructions,
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
146 ;;; except where window cannot be re-sized.
47940
c6a3d10a0675 (top-level): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42206
diff changeset
147 ;;;
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
148
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
149 (if (and edt-window-system (not (eq edt-window-system 'tty)))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
150 (set-frame-size (selected-frame) 80 36))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
151
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
152 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
153 ;;; Create buffers - Directions and Keys
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
154 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
155 (if (not (get-buffer "Directions")) (generate-new-buffer "Directions"))
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
156 (if (not (get-buffer "Keys")) (generate-new-buffer "Keys"))
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
157
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
158 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
159 ;;; Put header in the Keys buffer
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
160 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
161 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
162 (insert "\
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
163 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
164 ;; Key definitions for the EDT emulation within GNU Emacs
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
165 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
166
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
167 (defconst *EDT-keys*
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
168 '(
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
169 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
170
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
171 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
172 ;;; Display directions
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
173 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
174 (switch-to-buffer "Directions")
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
175 (if (and edt-window-system (not (eq edt-window-system 'tty)))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
176 (insert "
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
177 EDT MAPPER
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
178
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
179 You will be asked to press keys to create a custom mapping (under a
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
180 Window Manager) of your keypad keys and function keys so that they can
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
181 emulate the LK-201 keypad and function keys or the subset of keys found
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
182 on a VT-100 series terminal keyboard. (The LK-201 keyboard is the
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
183 standard keyboard attached to VT-200 series terminals, and above.)
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
184
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
185 Sometimes, edt-mapper will ignore a key you press, and just continue to
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
186 prompt for the same key. This can happen when your window manager sucks
73744
84aef5a30c72 Fix typo in interactive message.
Juanma Barranquero <lekktu@gmail.com>
parents: 68648
diff changeset
187 up the key and doesn't pass it on to Emacs, or it could be an Emacs bug.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
188 Either way, there's nothing that edt-mapper can do about it. You must
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
189 press RETURN, to skip the current key and continue. Later, you and/or
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
190 your local system guru can try to figure out why the key is being ignored.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
191
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
192 Start by pressing the RETURN key, and continue by pressing the keys
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
193 specified in the mini-buffer. If you want to entirely omit a key,
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
194 because your keyboard does not have a corresponding key, for example,
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
195 just press RETURN at the prompt.
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
196
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
197 ")
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
198 (insert "
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
199 EDT MAPPER
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
200
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
201 You will be asked to press keys to create a custom mapping of your
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
202 keypad keys and function keys so that they can emulate the LK-201
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
203 keypad and function keys or the subset of keys found on a VT-100
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
204 series terminal keyboard. (The LK-201 keyboard is the standard
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
205 keyboard attached to VT-200 series terminals, and above.)
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
206
47940
c6a3d10a0675 (top-level): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42206
diff changeset
207 If you are using a real LK-201 keyboard, you should map the keys
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
208 exactly as they are on the keyboard.
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
209
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
210 Start by pressing the RETURN key, and continue by pressing the keys
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
211 specified in the mini-buffer. If you want to entirely omit a key,
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
212 because your keyboard does not have a corresponding key, for example,
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
213 just press RETURN at the prompt.
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
214
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
215 "))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
216
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
217 (delete-other-windows)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
218
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
219 ;;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
220 ;;; Save <CR> for future reference.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
221 ;;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
222 ;;; For GNU Emacs, running in a Window System, first hide bindings in
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
223 ;;; function-key-map.
47940
c6a3d10a0675 (top-level): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42206
diff changeset
224 ;;;
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
225 (cond
85511
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
226 ((featurep 'xemacs)
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
227 (setq edt-return-seq (read-key-sequence "Hit carriage-return <CR> to continue "))
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
228 (setq edt-return (concat "[" (format "%s" (event-key (aref edt-return-seq 0))) "]")))
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
229 (t
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
230 (if edt-window-system
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
231 (progn
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
232 (setq edt-save-function-key-map function-key-map)
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
233 (setq function-key-map (make-sparse-keymap))))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
234 (setq edt-return (read-key-sequence "Hit carriage-return <CR> to continue "))))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
235
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
236 ;;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
237 ;;; Remove prefix-key bindings to F1 and F2 in global-map so they can be
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
238 ;;; bound in the EDT Emulation mode.
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
239 ;;;
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
240 (global-unset-key [f1])
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
241 (global-unset-key [f2])
47940
c6a3d10a0675 (top-level): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42206
diff changeset
242
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
243 ;;;
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
244 ;;; Display Keypad Diagram and Begin Prompting for Keys
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
245 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
246 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
247 (delete-region (point-min) (point-max))
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
248 (if (and edt-window-system (not (eq edt-window-system 'tty)))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
249 (insert "
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
250
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
251 PRESS THE KEY SPECIFIED IN THE MINIBUFFER BELOW.
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
252
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
253 Here's a picture of the standard LK-201 keypad for reference:
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
254
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
255 _______________________ _______________________________
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
256 | HELP | DO | | F17 | F18 | F19 | F20 |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
257 | | | | | | | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
258 |_______|_______________| |_______|_______|_______|_______|
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
259 _______________________ _______________________________
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
260 | FIND |INSERT |REMOVE | | PF1 | PF2 | PF3 | PF4 |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
261 | | | | | | | | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
262 |_______|_______|_______| |_______|_______|_______|_______|
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
263 |SELECT |PREVIOU| NEXT | | KP7 | KP8 | KP9 | KP- |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
264 | | | | | | | | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
265 |_______|_______|_______| |_______|_______|_______|_______|
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
266 | UP | | KP4 | KP5 | KP6 | KP, |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
267 | | | | | | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
268 _______|_______|_______ |_______|_______|_______|_______|
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
269 | LEFT | DOWN | RIGHT | | KP1 | KP2 | KP3 | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
270 | | | | | | | | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
271 |_______|_______|_______| |_______|_______|_______| KPE |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
272 | KP0 | KPP | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
273 | | | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
274 |_______________|_______|_______|
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
275
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
276 REMEMBER: JUST PRESS RETURN TO SKIP MAPPING A KEY.
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
277
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
278 ")
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
279 (progn
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
280 (insert "
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
281 GENERATING A CUSTOM CONFIGURATION FILE FOR TERMINAL TYPE: ")
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
282 (insert (format "%s." edt-term))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
283 (insert "
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
284
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
285 PRESS THE KEY SPECIFIED IN THE MINIBUFFER BELOW.
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
286
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
287 _______________________ _______________________________
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
288 | HELP | DO | | F17 | F18 | F19 | F20 |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
289 |_______|_______________| |_______|_______|_______|_______|
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
290 _______________________ _______________________________
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
291 | FIND |INSERT |REMOVE | | PF1 | PF2 | PF3 | PF4 |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
292 |_______|_______|_______| |_______|_______|_______|_______|
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
293 |SELECT |PREVIOU| NEXT | | KP7 | KP8 | KP9 | KP- |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
294 |_______|_______|_______| |_______|_______|_______|_______|
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
295 | UP | | KP4 | KP5 | KP6 | KP, |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
296 _______|_______|_______ |_______|_______|_______|_______|
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
297 | LEFT | DOWN | RIGHT | | KP1 | KP2 | KP3 | |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
298 |_______|_______|_______| |_______|_______|_______| KPE |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
299 | KP0 | KPP | |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
300 |_______________|_______|_______|
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
301
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
302 REMEMBER: JUST PRESS RETURN TO SKIP MAPPING A KEY.")))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
303
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
304
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
305 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
306 ;;; Key mapping functions
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
307 ;;;
85511
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
308 (defun edt-map-key (ident descrip)
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
309 (interactive)
85511
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
310 (if (featurep 'xemacs)
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
311 (progn
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
312 (setq edt-key-seq (read-key-sequence (format "Press %s%s: " ident descrip)))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
313 (setq edt-key (concat "[" (format "%s" (event-key (aref edt-key-seq 0))) "]"))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
314 (cond ((not (equal edt-key edt-return))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
315 (set-buffer "Keys")
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
316 (insert (format " (\"%s\" . %s)\n" ident edt-key))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
317 (set-buffer "Directions"))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
318 ;; bogosity to get next prompt to come up, if the user hits <CR>!
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
319 ;; check periodically to see if this is still needed...
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
320 (t
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
321 (set-buffer "Keys")
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
322 (insert (format " (\"%s\" . \"\" )\n" ident))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
323 (set-buffer "Directions"))))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
324 (setq edt-key (read-key-sequence (format "Press %s%s: " ident descrip)))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
325 (cond ((not (equal edt-key edt-return))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
326 (set-buffer "Keys")
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
327 (insert (if (vectorp edt-key)
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
328 (format " (\"%s\" . %s)\n" ident edt-key)
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
329 (format " (\"%s\" . \"%s\")\n" ident edt-key)))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
330 (set-buffer "Directions"))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
331 ;; bogosity to get next prompt to come up, if the user hits <CR>!
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
332 ;; check periodically to see if this is still needed...
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
333 (t
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
334 (set-buffer "Keys")
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
335 (insert (format " (\"%s\" . \"\" )\n" ident))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
336 (set-buffer "Directions"))))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
337 edt-key)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
338
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
339 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
340 (insert "
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
341 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
342 ;; Arrows
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
343 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
344 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
345 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
346
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
347 (edt-map-key "UP" " - The Up Arrow Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
348 (edt-map-key "DOWN" " - The Down Arrow Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
349 (edt-map-key "LEFT" " - The Left Arrow Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
350 (edt-map-key "RIGHT" " - The Right Arrow Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
351
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
352
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
353 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
354 (insert "
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
355 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
356 ;; PF keys
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
357 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
358 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
359 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
360
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
361 (edt-map-key "PF1" " - The PF1 (GOLD) Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
362 (edt-map-key "PF2" " - The Keypad PF2 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
363 (edt-map-key "PF3" " - The Keypad PF3 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
364 (edt-map-key "PF4" " - The Keypad PF4 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
365
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
366 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
367 (insert "
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
368 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
369 ;; KP0-9 KP- KP, KPP and KPE
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
370 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
371 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
372 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
373
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
374 (edt-map-key "KP0" " - The Keypad 0 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
375 (edt-map-key "KP1" " - The Keypad 1 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
376 (edt-map-key "KP2" " - The Keypad 2 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
377 (edt-map-key "KP3" " - The Keypad 3 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
378 (edt-map-key "KP4" " - The Keypad 4 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
379 (edt-map-key "KP5" " - The Keypad 5 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
380 (edt-map-key "KP6" " - The Keypad 6 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
381 (edt-map-key "KP7" " - The Keypad 7 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
382 (edt-map-key "KP8" " - The Keypad 8 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
383 (edt-map-key "KP9" " - The Keypad 9 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
384 (edt-map-key "KP-" " - The Keypad - Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
385 (edt-map-key "KP," " - The Keypad , Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
386 (edt-map-key "KPP" " - The Keypad . Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
387 (edt-map-key "KPE" " - The Keypad Enter Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
388 ;; Save the enter key
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
389 (setq edt-enter edt-key)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
390 (setq edt-enter-seq edt-key-seq)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
391
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
392
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
393 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
394 (insert "
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
395 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
396 ;; Editing keypad (FIND, INSERT, REMOVE)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
397 ;; (SELECT, PREVIOUS, NEXT)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
398 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
399 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
400 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
401
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
402 (edt-map-key "FIND" " - The Find key on the editing keypad")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
403 (edt-map-key "INSERT" " - The Insert key on the editing keypad")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
404 (edt-map-key "REMOVE" " - The Remove key on the editing keypad")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
405 (edt-map-key "SELECT" " - The Select key on the editing keypad")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
406 (edt-map-key "PREVIOUS" " - The Prev Scr key on the editing keypad")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
407 (edt-map-key "NEXT" " - The Next Scr key on the editing keypad")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
408
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
409 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
410 (insert "
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
411 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
412 ;; F1-14 Help Do F17-F20
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
413 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
414 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
415 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
416
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
417 (edt-map-key "F1" " - F1 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
418 (edt-map-key "F2" " - F2 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
419 (edt-map-key "F3" " - F3 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
420 (edt-map-key "F4" " - F4 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
421 (edt-map-key "F5" " - F5 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
422 (edt-map-key "F6" " - F6 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
423 (edt-map-key "F7" " - F7 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
424 (edt-map-key "F8" " - F8 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
425 (edt-map-key "F9" " - F9 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
426 (edt-map-key "F10" " - F10 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
427 (edt-map-key "F11" " - F11 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
428 (edt-map-key "F12" " - F12 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
429 (edt-map-key "F13" " - F13 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
430 (edt-map-key "F14" " - F14 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
431 (edt-map-key "HELP" " - HELP Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
432 (edt-map-key "DO" " - DO Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
433 (edt-map-key "F17" " - F17 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
434 (edt-map-key "F18" " - F18 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
435 (edt-map-key "F19" " - F19 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
436 (edt-map-key "F20" " - F20 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
437
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
438 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
439 (delete-region (point-min) (point-max))
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
440 (insert "
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
441 ADDITIONAL FUNCTION KEYS
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
442
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
443 Your keyboard may have additional function keys which do not correspond
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
444 to any LK-201 keys. The EDT Emulation can be configured to recognize
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
445 those keys, since you may wish to add your own key bindings to those keys.
47940
c6a3d10a0675 (top-level): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42206
diff changeset
446
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
447 For example, suppose your keyboard has a keycap marked \"Line Del\" and
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
448 you wish to add it to the list of keys which can be customized by the EDT
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
449 Emulation. First, assign a unique single-word name to the key for use by
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
450 the EDT Emulation, for example, \"linedel\". Then, at the \"EDT Key
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
451 Name:\" prompt, enter \"linedel\", followed by a press of the RETURN key.
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
452 Finally, when prompted, press the \"Line Del\" key. You now will be able
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
453 to bind functions to \"linedel\" and \"Gold-linedel\" in edt-user.el in
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
454 just the same way you can customize bindings of the LK-201 function and
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
455 keypad keys.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
456
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
457 When you are done, just press RETURN at the \"EDT Key Name:\" prompt.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
458 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
459 (switch-to-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
460 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
461 ;;; Add support for extras keys
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
462 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
463 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
464 (insert "\
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
465 ;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
466 ;; Extra Keys
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
467 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
468 ")
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
469 ;;;
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
470 ;;; Restore function-key-map.
47940
c6a3d10a0675 (top-level): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42206
diff changeset
471 ;;;
85511
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
472 (if (and edt-window-system (not (featurep 'xemacs)))
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
473 (setq function-key-map edt-save-function-key-map))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
474 (setq EDT-key-name "")
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
475 (while (not
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
476 (string-equal (setq EDT-key-name (read-string "EDT Key Name: ")) ""))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
477 (edt-map-key EDT-key-name ""))
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
478
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
479 ;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
480 ; No more keys to add, so wrap up.
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
481 ;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
482 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
483 (insert "\
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
484 )
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
485 )
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
486 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
487
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
488 ;;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
489 ;;; Save the key mapping program
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
490 ;;;
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
491 ;;;
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
492 ;;; Save the key mapping file
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
493 ;;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
494 (let ((file (concat
85650
437a25964d35 * emulation/edt-mapper.el (edt-emacs-variant): Replace the only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85511
diff changeset
495 "~/.edt-" (if (featurep 'xemacs) "xemacs" "gnu")
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
496 (if edt-term (concat "-" edt-term))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
497 (if edt-xserver (concat "-" edt-xserver))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
498 (if edt-window-system (concat "-" (upcase (symbol-name edt-window-system))))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
499 "-keys")))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
500 (set-visited-file-name
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
501 (read-file-name (format "Save key mapping to file (default %s): " file) nil file)))
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
502 (save-buffer)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
503
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
504 (message "That's it! Press any key to exit")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
505 (sit-for 600)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
506 (kill-emacs t)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
507
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
508 ;; arch-tag: 9eea59c8-b8b7-4d66-b858-c8920624c518
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
509 ;;; edt-mapper.el ends here