annotate lisp/emulation/edt-mapper.el @ 112447:bcecab2ad22d

* nsterm.m (x_set_offset): Set dont_constrain to 0 so the call to setFrameTopLeftPoint is constrained.
author Jan D. <jan.h.d@swipnet.se>
date Sun, 23 Jan 2011 14:28:14 +0100
parents ef719132ddfa
children
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,
112218
376148b31b5e Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents: 112050
diff changeset
4 ;; 2007, 2008, 2009, 2010, 2011 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 ;;;
112049
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
145 ;;; Implements a workaround for a feature that was added to simple.el.
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
146 ;;;
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
147 ;;; Many function keys have no Emacs functions assigned to them by
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
148 ;;; default. A subset of these are typically assigned functions in the
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
149 ;;; EDT emulation. This includes all the keypad keys and a some others
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
150 ;;; like Delete.
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
151 ;;;
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
152 ;;; Logic in simple.el maps some of these unassigned function keys to
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
153 ;;; ordinary typing keys. Where this is the case, a call to
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
154 ;;; read-key-sequence, below, does not return the name of the function
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
155 ;;; key pressd by the user but, instead, it returns the name of the
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
156 ;;; key to which it has been mapped. It needs to know the name of the
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
157 ;;; key pressed by the user. As a workaround, we assign a function to
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
158 ;;; each of the unassigned function keys of interest, here. These
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
159 ;;; assignments override the mapping to other keys and are only
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
160 ;;; temporary since, when edt-mapper is finished executing, it causes
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
161 ;;; Emacs to exit.
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
162 ;;;
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
163
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
164 (mapc
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
165 (lambda (function-key)
112050
44c22a3327ec Fix error in last commit.
Chong Yidong <cyd@stupidchicken.com>
parents: 112049
diff changeset
166 (if (not (lookup-key (current-global-map) function-key))
44c22a3327ec Fix error in last commit.
Chong Yidong <cyd@stupidchicken.com>
parents: 112049
diff changeset
167 (define-key (current-global-map) function-key 'forward-char)))
112049
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
168 '([kp-0] [kp-1] [kp-2] [kp-3] [kp-4]
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
169 [kp-5] [kp-6] [kp-7] [kp-8] [kp-9]
112050
44c22a3327ec Fix error in last commit.
Chong Yidong <cyd@stupidchicken.com>
parents: 112049
diff changeset
170 [kp-space]
44c22a3327ec Fix error in last commit.
Chong Yidong <cyd@stupidchicken.com>
parents: 112049
diff changeset
171 [kp-tab]
112049
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
172 [kp-enter]
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
173 [kp-multiply]
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
174 [kp-add]
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
175 [kp-separator]
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
176 [kp-subtract]
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
177 [kp-decimal]
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
178 [kp-divide]
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
179 [kp-equal]
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
180 [backspace]
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
181 [delete]
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
182 [tab]
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
183 [linefeed]
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
184 [clear]))
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
185
4a7382958ef1 * emulation/edt-mapper.el: Override mapping of function keys
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
186 ;;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
187 ;;; 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
188 ;;; except where window cannot be re-sized.
47940
c6a3d10a0675 (top-level): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42206
diff changeset
189 ;;;
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
190
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
191 (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
192 (set-frame-size (selected-frame) 80 36))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
193
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
194 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
195 ;;; Create buffers - Directions and Keys
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
196 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
197 (if (not (get-buffer "Directions")) (generate-new-buffer "Directions"))
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
198 (if (not (get-buffer "Keys")) (generate-new-buffer "Keys"))
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
199
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
200 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
201 ;;; Put header in the Keys buffer
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
202 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
203 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
204 (insert "\
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
205 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
206 ;; Key definitions for the EDT emulation within GNU Emacs
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
207 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
208
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
209 (defconst *EDT-keys*
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
210 '(
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
211 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
212
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
213 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
214 ;;; Display directions
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
215 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
216 (switch-to-buffer "Directions")
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
217 (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
218 (insert "
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
219 EDT MAPPER
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
220
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
221 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
222 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
223 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
224 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
225 standard keyboard attached to VT-200 series terminals, and above.)
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
226
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
227 Sometimes, edt-mapper will ignore a key you press, and just continue to
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
228 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
229 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
230 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
231 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
232 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
233
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
234 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
235 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
236 because your keyboard does not have a corresponding key, for example,
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
237 just press RETURN at the prompt.
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
238
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
239 ")
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
240 (insert "
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
241 EDT MAPPER
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
242
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
243 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
244 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
245 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
246 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
247 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
248
47940
c6a3d10a0675 (top-level): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42206
diff changeset
249 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
250 exactly as they are on the keyboard.
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
251
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
252 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
253 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
254 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
255 just press RETURN at the prompt.
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
256
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
257 "))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
258
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
259 (delete-other-windows)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
260
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
261 ;;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
262 ;;; Save <CR> for future reference.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
263 ;;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
264 ;;; 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
265 ;;; function-key-map.
47940
c6a3d10a0675 (top-level): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42206
diff changeset
266 ;;;
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
267 (cond
85511
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
268 ((featurep 'xemacs)
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
269 (setq edt-return-seq (read-key-sequence "Hit carriage-return <CR> to continue "))
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
270 (setq edt-return (concat "[" (format "%s" (event-key (aref edt-return-seq 0))) "]")))
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
271 (t
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
272 (if edt-window-system
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
273 (progn
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
274 (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
275 (setq function-key-map (make-sparse-keymap))))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
276 (setq edt-return (read-key-sequence "Hit carriage-return <CR> to continue "))))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
277
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 ;;; 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
280 ;;; bound in the EDT Emulation mode.
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
281 ;;;
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
282 (global-unset-key [f1])
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
283 (global-unset-key [f2])
47940
c6a3d10a0675 (top-level): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42206
diff changeset
284
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
285 ;;;
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
286 ;;; Display Keypad Diagram and Begin Prompting for Keys
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
287 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
288 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
289 (delete-region (point-min) (point-max))
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
290 (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
291 (insert "
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
292
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
293 PRESS THE KEY SPECIFIED IN THE MINIBUFFER BELOW.
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
294
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
295 Here's a picture of the standard LK-201 keypad for reference:
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
296
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
297 _______________________ _______________________________
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
298 | HELP | DO | | F17 | F18 | F19 | F20 |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
299 | | | | | | | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
300 |_______|_______________| |_______|_______|_______|_______|
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
301 _______________________ _______________________________
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
302 | FIND |INSERT |REMOVE | | PF1 | PF2 | PF3 | PF4 |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
303 | | | | | | | | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
304 |_______|_______|_______| |_______|_______|_______|_______|
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
305 |SELECT |PREVIOU| NEXT | | KP7 | KP8 | KP9 | KP- |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
306 | | | | | | | | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
307 |_______|_______|_______| |_______|_______|_______|_______|
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
308 | UP | | KP4 | KP5 | KP6 | KP, |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
309 | | | | | | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
310 _______|_______|_______ |_______|_______|_______|_______|
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
311 | LEFT | DOWN | RIGHT | | KP1 | KP2 | KP3 | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
312 | | | | | | | | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
313 |_______|_______|_______| |_______|_______|_______| KPE |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
314 | KP0 | KPP | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
315 | | | |
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
316 |_______________|_______|_______|
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
317
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
318 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
319
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
320 ")
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
321 (progn
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
322 (insert "
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
323 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
324 (insert (format "%s." edt-term))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
325 (insert "
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
326
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
327 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
328
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
329 _______________________ _______________________________
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
330 | HELP | DO | | F17 | F18 | F19 | F20 |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
331 |_______|_______________| |_______|_______|_______|_______|
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
332 _______________________ _______________________________
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
333 | FIND |INSERT |REMOVE | | PF1 | PF2 | PF3 | PF4 |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
334 |_______|_______|_______| |_______|_______|_______|_______|
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
335 |SELECT |PREVIOU| NEXT | | KP7 | KP8 | KP9 | KP- |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
336 |_______|_______|_______| |_______|_______|_______|_______|
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
337 | UP | | KP4 | KP5 | KP6 | KP, |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
338 _______|_______|_______ |_______|_______|_______|_______|
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
339 | LEFT | DOWN | RIGHT | | KP1 | KP2 | KP3 | |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
340 |_______|_______|_______| |_______|_______|_______| KPE |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
341 | KP0 | KPP | |
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
342 |_______________|_______|_______|
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
343
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
344 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
345
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
346
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
347 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
348 ;;; Key mapping functions
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
349 ;;;
85511
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
350 (defun edt-map-key (ident descrip)
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
351 (interactive)
85511
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
352 (if (featurep 'xemacs)
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
353 (progn
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
354 (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
355 (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
356 (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
357 (set-buffer "Keys")
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
358 (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
359 (set-buffer "Directions"))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
360 ;; 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
361 ;; 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
362 (t
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
363 (set-buffer "Keys")
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
364 (insert (format " (\"%s\" . \"\" )\n" ident))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
365 (set-buffer "Directions"))))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
366 (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
367 (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
368 (set-buffer "Keys")
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
369 (insert (if (vectorp edt-key)
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
370 (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
371 (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
372 (set-buffer "Directions"))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
373 ;; 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
374 ;; 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
375 (t
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
376 (set-buffer "Keys")
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
377 (insert (format " (\"%s\" . \"\" )\n" ident))
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
378 (set-buffer "Directions"))))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
379 edt-key)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
380
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
381 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
382 (insert "
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
383 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
384 ;; Arrows
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
385 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
386 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
387 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
388
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
389 (edt-map-key "UP" " - The Up Arrow Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
390 (edt-map-key "DOWN" " - The Down Arrow Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
391 (edt-map-key "LEFT" " - The Left Arrow Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
392 (edt-map-key "RIGHT" " - The Right Arrow Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
393
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
394
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
395 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
396 (insert "
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
397 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
398 ;; PF keys
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
399 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
400 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
401 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
402
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
403 (edt-map-key "PF1" " - The PF1 (GOLD) Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
404 (edt-map-key "PF2" " - The Keypad PF2 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
405 (edt-map-key "PF3" " - The Keypad PF3 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
406 (edt-map-key "PF4" " - The Keypad PF4 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
407
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
408 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
409 (insert "
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
410 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
411 ;; KP0-9 KP- KP, KPP and KPE
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
412 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
413 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
414 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
415
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
416 (edt-map-key "KP0" " - The Keypad 0 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
417 (edt-map-key "KP1" " - The Keypad 1 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
418 (edt-map-key "KP2" " - The Keypad 2 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
419 (edt-map-key "KP3" " - The Keypad 3 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
420 (edt-map-key "KP4" " - The Keypad 4 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
421 (edt-map-key "KP5" " - The Keypad 5 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
422 (edt-map-key "KP6" " - The Keypad 6 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
423 (edt-map-key "KP7" " - The Keypad 7 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
424 (edt-map-key "KP8" " - The Keypad 8 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
425 (edt-map-key "KP9" " - The Keypad 9 Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
426 (edt-map-key "KP-" " - The Keypad - Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
427 (edt-map-key "KP," " - The Keypad , Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
428 (edt-map-key "KPP" " - The Keypad . Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
429 (edt-map-key "KPE" " - The Keypad Enter Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
430 ;; Save the enter key
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
431 (setq edt-enter edt-key)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
432 (setq edt-enter-seq edt-key-seq)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
433
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
434
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
435 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
436 (insert "
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
437 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
438 ;; Editing keypad (FIND, INSERT, REMOVE)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
439 ;; (SELECT, PREVIOUS, NEXT)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
440 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
441 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
442 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
443
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
444 (edt-map-key "FIND" " - The Find key on the editing keypad")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
445 (edt-map-key "INSERT" " - The Insert key on the editing keypad")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
446 (edt-map-key "REMOVE" " - The Remove key on the editing keypad")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
447 (edt-map-key "SELECT" " - The Select key on the editing keypad")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
448 (edt-map-key "PREVIOUS" " - The Prev Scr key on the editing keypad")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
449 (edt-map-key "NEXT" " - The Next Scr key on the editing keypad")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
450
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
451 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
452 (insert "
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
453 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
454 ;; F1-14 Help Do F17-F20
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
455 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
456 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
457 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
458
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
459 (edt-map-key "F1" " - F1 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
460 (edt-map-key "F2" " - F2 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
461 (edt-map-key "F3" " - F3 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
462 (edt-map-key "F4" " - F4 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
463 (edt-map-key "F5" " - F5 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
464 (edt-map-key "F6" " - F6 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
465 (edt-map-key "F7" " - F7 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
466 (edt-map-key "F8" " - F8 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
467 (edt-map-key "F9" " - F9 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
468 (edt-map-key "F10" " - F10 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
469 (edt-map-key "F11" " - F11 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
470 (edt-map-key "F12" " - F12 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
471 (edt-map-key "F13" " - F13 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
472 (edt-map-key "F14" " - F14 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
473 (edt-map-key "HELP" " - HELP Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
474 (edt-map-key "DO" " - DO Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
475 (edt-map-key "F17" " - F17 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
476 (edt-map-key "F18" " - F18 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
477 (edt-map-key "F19" " - F19 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
478 (edt-map-key "F20" " - F20 Function Key")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
479
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
480 (set-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
481 (delete-region (point-min) (point-max))
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
482 (insert "
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
483 ADDITIONAL FUNCTION KEYS
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
484
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
485 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
486 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
487 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
488
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
489 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
490 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
491 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
492 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
493 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
494 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
495 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
496 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
497 keypad keys.
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
498
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
499 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
500 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
501 (switch-to-buffer "Directions")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
502 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
503 ;;; Add support for extras keys
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
504 ;;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
505 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
506 (insert "\
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
507 ;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
508 ;; Extra Keys
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
509 ;;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
510 ")
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
511 ;;;
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
512 ;;; Restore function-key-map.
47940
c6a3d10a0675 (top-level): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42206
diff changeset
513 ;;;
85511
f873840f9fea * emulation/edt-mapper.el (function-key-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78218
diff changeset
514 (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
515 (setq function-key-map edt-save-function-key-map))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
516 (setq EDT-key-name "")
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
517 (while (not
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
518 (string-equal (setq EDT-key-name (read-string "EDT Key Name: ")) ""))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
519 (edt-map-key EDT-key-name ""))
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
520
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
521 ;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
522 ; No more keys to add, so wrap up.
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
523 ;
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
524 (set-buffer "Keys")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
525 (insert "\
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
526 )
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
527 )
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
528 ")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
529
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
530 ;;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
531 ;;; Save the key mapping program
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
532 ;;;
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
533 ;;;
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
534 ;;; Save the key mapping file
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
535 ;;;
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
536 (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
537 "~/.edt-" (if (featurep 'xemacs) "xemacs" "gnu")
35123
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
538 (if edt-term (concat "-" edt-term))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
539 (if edt-xserver (concat "-" edt-xserver))
767b546e1676 Update to version 4.0. Provide support
Gerd Moellmann <gerd@gnu.org>
parents: 18942
diff changeset
540 (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
541 "-keys")))
10690
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
542 (set-visited-file-name
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
543 (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
544 (save-buffer)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
545
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
546 (message "That's it! Press any key to exit")
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
547 (sit-for 600)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
548 (kill-emacs t)
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
549
d41e77a56fd9 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
550 ;;; edt-mapper.el ends here