annotate lisp/emulation/tpu-mapper.el @ 40217:a1a8276c8da5

*** empty log message ***
author Gerd Moellmann <gerd@gnu.org>
date Tue, 23 Oct 2001 15:50:29 +0000
parents b174db545cfd
children 0f4506820432
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: 14228
diff changeset
1 ;;; tpu-mapper.el --- create a TPU-edt X-windows keymap file
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
11595
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
3 ;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 ;; Author: Rob Riepel <riepel@networking.stanford.edu>
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu>
5140
9cde7d7fea1f Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 4548
diff changeset
7 ;; Keywords: emulations
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8
4450
325bc5407213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4421
diff changeset
9 ;; This file is part of GNU Emacs.
325bc5407213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4421
diff changeset
10
325bc5407213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4421
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
325bc5407213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4421
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
325bc5407213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4421
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
325bc5407213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4421
diff changeset
14 ;; any later version.
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
4450
325bc5407213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4421
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
325bc5407213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4421
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
325bc5407213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4421
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
325bc5407213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4421
diff changeset
19 ;; GNU General Public License for more details.
325bc5407213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4421
diff changeset
20
325bc5407213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4421
diff changeset
21 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12685
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12685
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12685
diff changeset
24 ;; Boston, MA 02111-1307, USA.
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 ;; This emacs lisp program can be used to create an emacs lisp file that
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 ;; defines the TPU-edt keypad for emacs running on x-windows. Please read
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 ;; the "Usage" AND "Known Problems" sections before attempting to run this
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 ;; program.
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 ;;; Usage:
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34
12685
2005991db844 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 11595
diff changeset
35 ;; Simply load this file into the X-windows version of emacs using the
2005991db844 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 11595
diff changeset
36 ;; following command.
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37
12685
2005991db844 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 11595
diff changeset
38 ;; emacs -q -l tpu-mapper
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 ;; The "-q" option prevents loading of your .emacs file (commands therein
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 ;; might confuse this program).
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 ;; An instruction screen showing the TPU-edt keypad will be displayed, and
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 ;; you will be prompted to press the TPU-edt editing keys. Tpu-mapper uses
11547
a39d8ae4ed2e At end, use default file name .tpu-keys.
Richard M. Stallman <rms@gnu.org>
parents: 7980
diff changeset
45 ;; the keys you press to create an Emacs Lisp file that will define a
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 ;; TPU-edt keypad for your X server. You can even re-arrange the standard
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 ;; EDT keypad to suit your tastes (or to cope with those silly Sun and PC
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 ;; keypads).
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 ;; Finally, you will be prompted for the name of the file to store the key
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 ;; definitions. If you chose the default, TPU-edt will find it and load it
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 ;; automatically. If you specify a different file name, you will need to
12685
2005991db844 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 11595
diff changeset
53 ;; set the variable "tpu-xkeys-file" before starting TPU-edt. Here's how
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 ;; you might go about doing that in your .emacs file.
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 ;; (setq tpu-xkeys-file (expand-file-name "~/.my-emacs-x-keys"))
12685
2005991db844 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 11595
diff changeset
57 ;; (tpu-edt)
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 ;;; Known Problems:
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 ;; Sometimes, tpu-mapper will ignore a key you press, and just continue to
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 ;; prompt for the same key. This can happen when your window manager sucks
11547
a39d8ae4ed2e At end, use default file name .tpu-keys.
Richard M. Stallman <rms@gnu.org>
parents: 7980
diff changeset
63 ;; up the key and doesn't pass it on to Emacs, or it could be an Emacs bug.
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 ;; Either way, there's nothing that tpu-mapper can do about it. You must
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 ;; press RETURN, to skip the current key and continue. Later, you and/or
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 ;; your local X guru can try to figure out why the key is being ignored.
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 ;;; Code:
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69
12685
2005991db844 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 11595
diff changeset
70
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 ;;; Make sure we're running X-windows and Emacs version 19
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 (cond
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 ((not (and window-system (not (string-lessp emacs-version "19"))))
11547
a39d8ae4ed2e At end, use default file name .tpu-keys.
Richard M. Stallman <rms@gnu.org>
parents: 7980
diff changeset
76 (error "tpu-mapper requires running in Emacs 19, with an X display")))
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 ;;;
11547
a39d8ae4ed2e At end, use default file name .tpu-keys.
Richard M. Stallman <rms@gnu.org>
parents: 7980
diff changeset
80 ;;; Decide whether we're running Lucid Emacs or Emacs itself.
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82 (defconst tpu-lucid-emacs19-p (string-match "Lucid" emacs-version)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 "Non-NIL if we are running Lucid Emacs version 19.")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 ;;; Key variables
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 ;;;
7980
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
89 (defvar tpu-kp4 nil)
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
90 (defvar tpu-kp5 nil)
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 (defvar tpu-key nil)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 (defvar tpu-enter nil)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 (defvar tpu-return nil)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 (defvar tpu-key-seq nil)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 (defvar tpu-enter-seq nil)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 (defvar tpu-return-seq nil)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 ;;; Make sure the window is big enough to display the instructions
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 ;;;
7980
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
102 (if tpu-lucid-emacs19-p (set-screen-size (selected-screen) 80 36)
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 (set-frame-size (selected-frame) 80 36))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 ;;; Create buffers - Directions, Keys, Gold-Keys
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 (if (not (get-buffer "Directions")) (generate-new-buffer "Directions"))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 (if (not (get-buffer "Keys")) (generate-new-buffer "Keys"))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 (if (not (get-buffer "Gold-Keys")) (generate-new-buffer "Gold-Keys"))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 ;;; Put headers in the Keys buffer
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 (set-buffer "Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 (insert "\
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 ;; Key definitions for TPU-edt
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 ;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 ;;; Display directions
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 (switch-to-buffer "Directions")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 (insert "
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 This program prompts you to press keys to create a custom keymap file
11547
a39d8ae4ed2e At end, use default file name .tpu-keys.
Richard M. Stallman <rms@gnu.org>
parents: 7980
diff changeset
130 for use with the x-windows version of Emacs and TPU-edt.
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 Start by pressing the RETURN key, and continue by pressing the keys
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 specified in the mini-buffer. You can re-arrange the TPU-edt keypad
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 by pressing any key you want at any prompt. If you want to entirely
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 omit a key, just press RETURN at the prompt.
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 Here's a picture of the standard TPU/edt keypad for reference:
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 _______________________ _______________________________
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 | HELP | Do | | | | | |
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 |KeyDefs| | | | | | |
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 |_______|_______________| |_______|_______|_______|_______|
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 _______________________ _______________________________
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144 | Find |Insert |Remove | | Gold | HELP |FndNxt | Del L |
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 | | |Sto Tex| | key |E-Help | Find |Undel L|
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 |_______|_______|_______| |_______|_______|_______|_______|
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 |Select |Pre Scr|Nex Scr| | Page | Sect |Append | Del W |
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 | Reset |Pre Win|Nex Win| | Do | Fill |Replace|Undel W|
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 |_______|_______|_______| |_______|_______|_______|_______|
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 |Move up| |Forward|Reverse|Remove | Del C |
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 | Top | |Bottom | Top |Insert |Undel C|
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 _______|_______|_______ |_______|_______|_______|_______|
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 |Mov Lef|Mov Dow|Mov Rig| | Word | EOL | Char | |
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 |StaOfLi|Bottom |EndOfLi| |ChngCas|Del EOL|SpecIns| Enter |
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 |_______|_______|_______| |_______|_______|_______| |
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 | Line |Select | Subs |
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 | Open Line | Reset | |
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 |_______________|_______|_______|
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162 (delete-other-windows)
7980
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
163 (goto-char (point-min))
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 ;;; Save <CR> for future reference
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 (cond
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 (tpu-lucid-emacs19-p
4525
03d1a39e66c9 (tpu-gnu-map-key): Repaired the key name
Richard M. Stallman <rms@gnu.org>
parents: 4450
diff changeset
170 (setq tpu-return-seq (read-key-sequence "Hit carriage-return <CR> to continue "))
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 (setq tpu-return (concat "[" (format "%s" (event-key (aref tpu-return-seq 0))) "]")))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172 (t
4525
03d1a39e66c9 (tpu-gnu-map-key): Repaired the key name
Richard M. Stallman <rms@gnu.org>
parents: 4450
diff changeset
173 (message "Hit carriage-return <CR> to continue ")
03d1a39e66c9 (tpu-gnu-map-key): Repaired the key name
Richard M. Stallman <rms@gnu.org>
parents: 4450
diff changeset
174 (setq tpu-return-seq (read-event))
12685
2005991db844 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 11595
diff changeset
175 (setq tpu-return (concat "[" (format "%s" tpu-return-seq) "]"))))
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 ;;; Key mapping functions
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180 ;;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181 (defun tpu-lucid-map-key (ident descrip func gold-func)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 (interactive)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 (setq tpu-key-seq (read-key-sequence (format "Press %s%s: " ident descrip)))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 (setq tpu-key (concat "[" (format "%s" (event-key (aref tpu-key-seq 0))) "]"))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 (cond ((not (equal tpu-key tpu-return))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 (set-buffer "Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 (insert (format"(global-set-key %s %s)\n" tpu-key func))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 (set-buffer "Gold-Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189 (insert (format "(define-key GOLD-map %s %s)\n" tpu-key gold-func))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 (set-buffer "Directions"))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191 ;; bogosity to get next prompt to come up, if the user hits <CR>!
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 ;; check periodically to see if this is still needed...
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 (t
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194 (format "%s" tpu-key)))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 tpu-key)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196
11547
a39d8ae4ed2e At end, use default file name .tpu-keys.
Richard M. Stallman <rms@gnu.org>
parents: 7980
diff changeset
197 (defun tpu-emacs-map-key (ident descrip func gold-func)
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198 (interactive)
4525
03d1a39e66c9 (tpu-gnu-map-key): Repaired the key name
Richard M. Stallman <rms@gnu.org>
parents: 4450
diff changeset
199 (message "Press %s%s: " ident descrip)
03d1a39e66c9 (tpu-gnu-map-key): Repaired the key name
Richard M. Stallman <rms@gnu.org>
parents: 4450
diff changeset
200 (setq tpu-key-seq (read-event))
03d1a39e66c9 (tpu-gnu-map-key): Repaired the key name
Richard M. Stallman <rms@gnu.org>
parents: 4450
diff changeset
201 (setq tpu-key (concat "[" (format "%s" tpu-key-seq) "]"))
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 (cond ((not (equal tpu-key tpu-return))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203 (set-buffer "Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204 (insert (format"(global-set-key %s %s)\n" tpu-key func))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 (set-buffer "Gold-Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206 (insert (format "(define-key GOLD-map %s %s)\n" tpu-key gold-func))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 (set-buffer "Directions"))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208 ;; bogosity to get next prompt to come up, if the user hits <CR>!
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 ;; check periodically to see if this is still needed...
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 (t
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 (format "%s" tpu-key)))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 tpu-key)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213
11547
a39d8ae4ed2e At end, use default file name .tpu-keys.
Richard M. Stallman <rms@gnu.org>
parents: 7980
diff changeset
214 (fset 'tpu-map-key (if tpu-lucid-emacs19-p 'tpu-lucid-map-key 'tpu-emacs-map-key))
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 (set-buffer "Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218 (insert "
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 ;; Arrows
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220 ;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 (set-buffer "Gold-Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223 (insert "
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224 ;; GOLD Arrows
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225 ;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 (set-buffer "Directions")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 (tpu-map-key "Up-Arrow" "" "'tpu-previous-line" "'tpu-move-to-beginning")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 (tpu-map-key "Down-arrow" "" "'tpu-next-line" "'tpu-move-to-end")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 (tpu-map-key "Right-arrow" "" "'tpu-forward-char" "'end-of-line")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232 (tpu-map-key "Left-arrow" "" "'tpu-backward-char" "'beginning-of-line")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 (set-buffer "Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
236 (insert "
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
237 ;; PF keys
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238 ;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 (set-buffer "Gold-Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241 (insert "
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 ;; GOLD PF keys
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 ;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245 (set-buffer "Directions")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
247 (tpu-map-key "PF1" " - The GOLD key" "GOLD-map" "'keyboard-quit")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
248 (tpu-map-key "PF2" " - The Keypad Help key" "'tpu-help" "'help-for-help")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249 (tpu-map-key "PF3" " - The Find/Find-Next key" "'tpu-search-again" "'tpu-search")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250 (tpu-map-key "PF4" " - The Del/Undelete Line key" "'tpu-delete-current-line" "'tpu-undelete-lines")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
252 (set-buffer "Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 (insert "
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254 ;; KP0-9 KP- KP, KP. and KPenter
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 ;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257 (set-buffer "Gold-Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 (insert "
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 ;; GOLD KP0-9 KP- KP, and KPenter
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 ;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 (set-buffer "Directions")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 (tpu-map-key "KP-0" " - The Line/Open-Line key" "'tpu-line" "'open-line")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 (tpu-map-key "KP-1" " - The Word/Change-Case key" "'tpu-word" "'tpu-change-case")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 (tpu-map-key "KP-2" " - The EOL/Delete-EOL key" "'tpu-end-of-line" "'tpu-delete-to-eol")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267 (tpu-map-key "KP-3" " - The Character/Special-Insert key" "'tpu-char" "'tpu-special-insert")
7980
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
268 (setq tpu-kp4 (tpu-map-key "KP-4" " - The Forward/Bottom key" "'tpu-advance-direction" "'tpu-move-to-end"))
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
269 (setq tpu-kp5 (tpu-map-key "KP-5" " - The Reverse/Top key" "'tpu-backup-direction" "'tpu-move-to-beginning"))
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 (tpu-map-key "KP-6" " - The Remove/Insert key" "'tpu-cut" "'tpu-paste")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 (tpu-map-key "KP-7" " - The Page/Do key" "'tpu-page" "'execute-extended-command")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 (tpu-map-key "KP-8" " - The Section/Fill key" "'tpu-scroll-window" "'tpu-fill")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 (tpu-map-key "KP-9" " - The Append/Replace key" "'tpu-append-region" "'tpu-replace")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 (tpu-map-key "KP--" " - The Delete/Undelete Word key" "'tpu-delete-current-word" "'tpu-undelete-words")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 (tpu-map-key "KP-," " - The Delete/Undelete Character key" "'tpu-delete-current-char" "'tpu-undelete-char")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 (tpu-map-key "KP-." " - The Select/Reset key" "'tpu-select" "'tpu-unselect")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 (tpu-map-key "KP-Enter" " - The Enter key on the numeric keypad" "'newline" "'tpu-substitute")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 ;; Save the enter key
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 (setq tpu-enter tpu-key)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 (setq tpu-enter-seq tpu-key-seq)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 (set-buffer "Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 (insert "
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 ;; Editing keypad (find, insert, remove)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 ;; (select, prev, next)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 ;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 (set-buffer "Gold-Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 (insert "
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 ;; GOLD Editing keypad (find, insert, remove)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 ;; (select, prev, next)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
292 ;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 (set-buffer "Directions")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 (tpu-map-key "Find" " - The Find key on the editing keypad" "'tpu-search" "'nil")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 (tpu-map-key "Insert" " - The Insert key on the editing keypad" "'tpu-paste" "'nil")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 (tpu-map-key "Remove" " - The Remove key on the editing keypad" "'tpu-cut" "'tpu-store-text")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 (tpu-map-key "Select" " - The Select key on the editing keypad" "'tpu-select" "'tpu-unselect")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300 (tpu-map-key "Prev Scr" " - The Prev Scr key on the editing keypad" "'tpu-scroll-window-down" "'tpu-previous-window")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 (tpu-map-key "Next Scr" " - The Next Scr key on the editing keypad" "'tpu-scroll-window-up" "'tpu-next-window")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 (set-buffer "Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 (insert "
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 ;; F10-14 Help Do F17
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 ;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 (set-buffer "Gold-Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 (insert "
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310 ;; GOLD F10-14 Help Do F17
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 ;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 (set-buffer "Directions")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
314
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315 (tpu-map-key "F10" " - Invokes the Exit function on VT200+ terminals" "'tpu-exit" "'nil")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 (tpu-map-key "F11" " - Inserts an Escape character into the text" "'tpu-insert-escape" "'nil")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 (tpu-map-key "Backspace" " - Not Delete nor ^H! Sometimes on the F12 key" "'tpu-next-beginning-of-line" "'nil")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318 (tpu-map-key "F13" " - Invokes the delete previous word function" "'tpu-delete-previous-word" "'nil")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 (tpu-map-key "F14" " - Toggles insert/overstrike modes" "'tpu-toggle-overwrite-mode" "'nil")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 (tpu-map-key "Help" " - Brings up the help screen, same as PF2" "'tpu-help" "'describe-bindings")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 (tpu-map-key "Do" " - Invokes the COMMAND function" "'execute-extended-command" "'nil")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322 (tpu-map-key "F17" "" "'tpu-goto-breadcrumb" "'tpu-drop-breadcrumb")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324 (set-buffer "Gold-Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 (cond
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326 ((not (equal tpu-enter tpu-return))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
327 (insert "
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 ;; Minibuffer map additions to make KP_enter = RET
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 ;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332 (insert (format "(define-key minibuffer-local-map %s 'exit-minibuffer)\n" tpu-enter))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333 (insert (format "(define-key minibuffer-local-ns-map %s 'exit-minibuffer)\n" tpu-enter))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334 (insert (format "(define-key minibuffer-local-completion-map %s 'exit-minibuffer)\n" tpu-enter))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335 (insert (format "(define-key minibuffer-local-must-match-map %s 'minibuffer-complete-and-exit)\n" tpu-enter))))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336
7980
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
337 (cond
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
338 ((not (or (equal tpu-kp4 tpu-return) (equal tpu-kp5 tpu-return)))
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
339 (insert "
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
340 ;; Minibuffer map additions to allow KP-4/5 termination of search strings.
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
341 ;;
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
342 ")
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
343
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
344 (insert (format "(define-key minibuffer-local-map %s 'tpu-search-forward-exit)\n" tpu-kp4))
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
345 (insert (format "(define-key minibuffer-local-map %s 'tpu-search-backward-exit)\n" tpu-kp5))))
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
346
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347 (insert "
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
348 ;; Define the tpu-help-enter/return symbols
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349 ;;
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350 ")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351
4525
03d1a39e66c9 (tpu-gnu-map-key): Repaired the key name
Richard M. Stallman <rms@gnu.org>
parents: 4450
diff changeset
352 (cond (tpu-lucid-emacs19-p
03d1a39e66c9 (tpu-gnu-map-key): Repaired the key name
Richard M. Stallman <rms@gnu.org>
parents: 4450
diff changeset
353 (insert (format "(setq tpu-help-enter \"%s\")\n" tpu-enter-seq))
4548
fb0f96c4154b Insert setqs for tpu-help-... variables.
Richard M. Stallman <rms@gnu.org>
parents: 4525
diff changeset
354 (insert (format "(setq tpu-help-return \"%s\")\n" tpu-return-seq))
fb0f96c4154b Insert setqs for tpu-help-... variables.
Richard M. Stallman <rms@gnu.org>
parents: 4525
diff changeset
355 (insert "(setq tpu-help-N \"[#<keypress-event N>]\")\n")
fb0f96c4154b Insert setqs for tpu-help-... variables.
Richard M. Stallman <rms@gnu.org>
parents: 4525
diff changeset
356 (insert "(setq tpu-help-n \"[#<keypress-event n>]\")\n")
fb0f96c4154b Insert setqs for tpu-help-... variables.
Richard M. Stallman <rms@gnu.org>
parents: 4525
diff changeset
357 (insert "(setq tpu-help-P \"[#<keypress-event P>]\")\n")
fb0f96c4154b Insert setqs for tpu-help-... variables.
Richard M. Stallman <rms@gnu.org>
parents: 4525
diff changeset
358 (insert "(setq tpu-help-p \"[#<keypress-event p>]\")\n"))
4525
03d1a39e66c9 (tpu-gnu-map-key): Repaired the key name
Richard M. Stallman <rms@gnu.org>
parents: 4450
diff changeset
359 (t
03d1a39e66c9 (tpu-gnu-map-key): Repaired the key name
Richard M. Stallman <rms@gnu.org>
parents: 4450
diff changeset
360 (insert (format "(setq tpu-help-enter \"%s\")\n" tpu-enter))))
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
361
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362 (append-to-buffer "Keys" 1 (point))
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363 (set-buffer "Keys")
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
365 ;;;
11595
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
366 ;;; Save the key mapping program
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367 ;;;
14228
7b43c39dbcfa Use `convert-standard-filename' to set the name
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
368 (let ((file
7b43c39dbcfa Use `convert-standard-filename' to set the name
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
369 (convert-standard-filename
7b43c39dbcfa Use `convert-standard-filename' to set the name
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
370 (if tpu-lucid-emacs19-p "~/.tpu-lucid-keys" "~/.tpu-keys"))))
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
371 (set-visited-file-name
7980
0e9eddc5d598 Change size of selected screen. Reposition after
Richard M. Stallman <rms@gnu.org>
parents: 5140
diff changeset
372 (read-file-name (format "Save key mapping to file (default %s): " file) "" file)))
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
373 (save-buffer)
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374
11595
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
375 ;;;
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
376 ;;; Load the newly defined keys and clean up
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
377 ;;;
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
378 (eval-current-buffer)
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
379 (kill-buffer (current-buffer))
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
380 (kill-buffer "*scratch*")
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
381 (kill-buffer "Gold-Keys")
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
382
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
383 ;;;
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
384 ;;; Let them know it worked.
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
385 ;;;
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
386 (switch-to-buffer "Directions")
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
387 (erase-buffer)
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
388 (insert "
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
389 A custom TPU-edt keymap file has been created.
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
390
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
391 Press GOLD-k to remove this buffer and continue editing.
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
392 ")
74168f918db7 Eval key definitions and clean up upon completion.
Richard M. Stallman <rms@gnu.org>
parents: 11547
diff changeset
393 (goto-char (point-min))
4421
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394
95bb7e28d761 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395 ;;; tpu-mapper.el ends here