|
0
|
1 ;;; tpu-doc.el --- Documentation for TPU-edt
|
|
|
2
|
|
|
3 ;; Copyright (C) 1993 Free Software Foundation, Inc.
|
|
|
4
|
|
|
5 ;; Author: Rob Riepel <riepel@networking.stanford.edu>
|
|
|
6 ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu>
|
|
|
7 ;; Keywords: emulations
|
|
|
8
|
|
|
9 ;; This file is part of XEmacs.
|
|
|
10
|
|
|
11 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
12 ;; under the terms of the GNU General Public License as published by
|
|
|
13 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
14 ;; any later version.
|
|
|
15
|
|
|
16 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
19 ;; General Public License for more details.
|
|
|
20
|
|
|
21 ;; You should have received a copy of the GNU General Public License
|
|
16
|
22 ;; along with XEmacs; see the file COPYING. If not, write to the
|
|
|
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
24 ;; Boston, MA 02111-1307, USA.
|
|
0
|
25
|
|
|
26 (defconst tpu-doc-revision "!Revision: 1.6 !"
|
|
|
27 "TPU-edt documentation revision number.")
|
|
|
28
|
|
|
29
|
|
|
30 ;; This is documentation for the TPU-edt editor for GNU emacs. Major
|
|
|
31 ;; sections of this document are separated with lines that begin with
|
|
|
32 ;; ";; %% <topic>", where <topic> is what is discussed in that section.
|
|
|
33
|
|
|
34
|
|
|
35 ;; %% Contents
|
|
|
36
|
|
|
37 ;; % Introduction
|
|
|
38 ;; % Terminal Support
|
|
|
39 ;; % X-windows Support
|
|
|
40 ;; % Differences Between TPU-edt and the Real Thing
|
|
|
41 ;; % Starting TPU-edt
|
|
|
42 ;; % TPU-edt Default Editing Keypad, Control and Gold Key Bindings
|
|
|
43 ;; % Optional TPU-edt Extensions
|
|
|
44 ;; % Customizing TPU-edt using the Emacs Initialization File
|
|
|
45 ;; % Compiling TPU-edt
|
|
|
46 ;; % Regular expressions in TPU-edt
|
|
|
47 ;; % Etcetera
|
|
|
48
|
|
|
49
|
|
|
50 ;; %% Introduction
|
|
|
51
|
|
|
52 ;; TPU-edt is based on tpu.el by Jeff Kowalski. TPU-edt endeavors
|
|
|
53 ;; to be even more like TPU's EDT emulation than the original tpu.el.
|
|
|
54 ;; Considerable effort has been expended to that end. Still, emacs
|
|
|
55 ;; is emacs and there are differences between TPU-edt and the real
|
|
|
56 ;; thing. Please read the "Differences Between TPU-edt and the Real
|
|
|
57 ;; Thing" and "Starting TPU-edt" sections before running TPU-edt.
|
|
|
58
|
|
|
59
|
|
|
60 ;; %% Terminal Support
|
|
|
61
|
|
|
62 ;; TPU-edt, like it's VMS cousin, works on VT-series terminals with
|
|
|
63 ;; DEC style keyboards. VT terminal emulators, including xterm with
|
|
|
64 ;; the appropriate key translations, work just fine too.
|
|
|
65
|
|
|
66
|
|
|
67 ;; %% X-windows Support
|
|
|
68
|
|
|
69 ;; Starting with version 19 of emacs, TPU-edt works with X-windows.
|
|
|
70 ;; This is accomplished through a TPU-edt X keymap. The emacs lisp
|
|
|
71 ;; program tpu-mapper.el creates this map and stores it in a file.
|
|
|
72 ;; Tpu-mapper will be run automatically the first time you invoke
|
|
|
73 ;; the X-windows version of emacs, or you can run it by hand. See
|
|
|
74 ;; the commentary in tpu-mapper.el for details.
|
|
|
75
|
|
|
76
|
|
|
77 ;; %% Differences Between TPU-edt and the Real Thing (not Coke (r))
|
|
|
78
|
|
|
79 ;; Emacs (version 18.58) doesn't support text highlighting, so selected
|
|
|
80 ;; regions are not shown in inverse video. Emacs uses the concept of
|
|
|
81 ;; "the mark". The mark is set at one end of a selected region; the
|
|
|
82 ;; cursor is at the other. The letter "M" appears in the mode line
|
|
|
83 ;; when the mark is set. The native emacs command ^X^X (Control-X
|
|
|
84 ;; twice) exchanges the cursor with the mark; this provides a handy
|
|
|
85 ;; way to find the location of the mark.
|
|
|
86
|
|
|
87 ;; In TPU the cursor can be either bound or free. Bound means the
|
|
|
88 ;; cursor cannot wander outside the text of the file being edited.
|
|
|
89 ;; Free means the arrow keys can move the cursor past the ends of
|
|
|
90 ;; lines. Free is the default mode in TPU; bound is the only mode
|
|
|
91 ;; in EDT. Bound is the only mode in the base version of TPU-edt;
|
|
|
92 ;; optional extensions add an approximation of free mode.
|
|
|
93
|
|
|
94 ;; Like TPU, emacs uses multiple buffers. Some buffers are used to
|
|
|
95 ;; hold files you are editing; other "internal" buffers are used for
|
|
|
96 ;; emacs' own purposes (like showing you help). Here are some commands
|
|
|
97 ;; for dealing with buffers.
|
|
|
98
|
|
|
99 ;; Gold-B moves to next buffer, including internal buffers
|
|
|
100 ;; Gold-N moves to next buffer containing a file
|
|
|
101 ;; Gold-M brings up a buffer menu (like TPU "show buffers")
|
|
|
102
|
|
|
103 ;; Emacs is very fond of throwing up new windows. Dealing with all
|
|
|
104 ;; these windows can be a little confusing at first, so here are a few
|
|
|
105 ;; commands to that may help:
|
|
|
106
|
|
|
107 ;; Gold-Next_Scr moves to the next window on the screen
|
|
|
108 ;; Gold-Prev_Scr moves to the previous window on the screen
|
|
|
109 ;; Gold-TAB also moves to the next window on the screen
|
|
|
110
|
|
|
111 ;; Control-x 1 deletes all but the current window
|
|
|
112 ;; Control-x 0 deletes the current window
|
|
|
113
|
|
|
114 ;; Note that the buffers associated with deleted windows still exist!
|
|
|
115
|
|
|
116 ;; Like TPU, TPU-edt has a "command" function, invoked with Gold-KP7 or
|
|
|
117 ;; Do. Most of the commands available are emacs commands. Some TPU
|
|
|
118 ;; commands are available, they are: replace, exit, quit, include, and
|
|
|
119 ;; Get (unfortunately, "get" is an internal emacs function, so we are
|
|
|
120 ;; stuck with "Get" - to make life easier, Get is available as Gold-g).
|
|
|
121
|
|
|
122 ;; Support for recall of commands, file names, and search strings was
|
|
|
123 ;; added to emacs in version 19. For version 18 of emacs, optional
|
|
|
124 ;; extensions are available to add this recall capability (see "Optional
|
|
|
125 ;; TPU-edt Extensions" below). The history of strings recalled in both
|
|
|
126 ;; versions of emacs differs slightly from TPU/edt, but it is still very
|
|
|
127 ;; convenient.
|
|
|
128
|
|
|
129 ;; Help is available! The traditional help keys (Help and PF2) display
|
|
|
130 ;; a three page help file showing the default keypad layout, control key
|
|
|
131 ;; functions, and Gold key functions. Pressing any key inside of help
|
|
|
132 ;; splits the screen and prints a description of the function of the
|
|
|
133 ;; pressed key. Gold-PF2 invokes the native emacs help, with it's
|
|
|
134 ;; zillions of options. Gold-Help shows all the current key bindings.
|
|
|
135
|
|
|
136 ;; Thanks to emacs, TPU-edt has some extensions that may make your life
|
|
|
137 ;; easier, or at least more interesting. For example, Gold-r toggles
|
|
|
138 ;; TPU-edt rectangular mode. In rectangular mode, Remove and Insert work
|
|
|
139 ;; on rectangles. Likewise, Gold-* toggles TPU-edt regular expression
|
|
|
140 ;; mode. In regular expression mode Find, Find Next, and the line-mode
|
|
|
141 ;; replace command work with regular expressions. [A regular expression
|
|
|
142 ;; is a pattern that denotes a set of strings; like VMS wildcards.]
|
|
|
143
|
|
|
144 ;; Emacs also gives TPU-edt the undo and occur functions. Undo does
|
|
|
145 ;; what it says; it undoes the last change. Multiple undos in a row
|
|
|
146 ;; undo multiple changes. For your convenience, undo is available on
|
|
|
147 ;; Gold-u. Occur shows all the lines containing a specific string in
|
|
|
148 ;; another window. Moving to that window, and typing ^C^C (Control-C
|
|
|
149 ;; twice) on a particular line moves you back to the original window
|
|
|
150 ;; at that line. Occur is on Gold-o.
|
|
|
151
|
|
|
152 ;; Finally, as you edit, remember that all the power of emacs is at
|
|
|
153 ;; your disposal. It really is a fantastic tool. You may even want to
|
|
|
154 ;; take some time and read the emacs tutorial; perhaps not to learn the
|
|
|
155 ;; native emacs key bindings, but to get a feel for all the things
|
|
|
156 ;; emacs can do for you. The emacs tutorial is available from the
|
|
|
157 ;; emacs help function: "Gold-PF2 t"
|
|
|
158
|
|
|
159
|
|
|
160 ;; %% Starting TPU-edt
|
|
|
161
|
|
|
162 ;; In order to use TPU-edt, the TPU-edt editor definitions, contained
|
|
|
163 ;; in tpu-edt.el, need to be loaded when emacs is run. This can be
|
|
|
164 ;; done in a couple of ways. The first is by explicitly requesting
|
|
|
165 ;; loading of the TPU-edt emacs definition file on the command line:
|
|
|
166
|
|
|
167 ;; prompt> emacs -l /path/to/definitions/tpu-edt.el
|
|
|
168
|
|
|
169 ;; If TPU-edt is installed on your system, that is, if tpu-edt.el is in
|
|
|
170 ;; a directory like /usr/local/emacs/lisp, along with dozens of other
|
|
|
171 ;; .el files, you should be able to use the command:
|
|
|
172
|
|
|
173 ;; prompt> emacs -l tpu-edt
|
|
|
174
|
|
|
175 ;; If you like TPU-edt and want to use it all the time, you can load
|
|
|
176 ;; the TPU-edt definitions using the emacs initialization file, .emacs.
|
|
|
177 ;; Simply create a .emacs file in your home directory containing the
|
|
|
178 ;; line:
|
|
|
179
|
|
|
180 ;; (load "/path/to/definitions/tpu-edt")
|
|
|
181
|
|
|
182 ;; or, if (as above) TPU-edt is installed on your system:
|
|
|
183
|
|
|
184 ;; (load "tpu-edt")
|
|
|
185
|
|
|
186 ;; Once TPU-edt has been loaded, you will be using an editor with the
|
|
|
187 ;; interface shown in the next section (A section that is suitable for
|
|
|
188 ;; cutting out of this document and pasting next to your terminal!).
|
|
|
189
|
|
|
190
|
|
|
191 ;; %% TPU-edt Default Editing Keypad, Control and Gold Key Bindings
|
|
|
192 ;;
|
|
|
193 ;; _______________________ _______________________________
|
|
|
194 ;; | HELP | Do | | | | | |
|
|
|
195 ;; |KeyDefs| | | | | | |
|
|
|
196 ;; |_______|_______________| |_______|_______|_______|_______|
|
|
|
197 ;; _______________________ _______________________________
|
|
|
198 ;; | Find |Insert |Remove | | Gold | HELP |FndNxt | Del L |
|
|
|
199 ;; | | |Sto Tex| | key |E-Help | Find |Undel L|
|
|
|
200 ;; |_______|_______|_______| |_______|_______|_______|_______|
|
|
|
201 ;; |Select |Pre Scr|Nex Scr| | Page | Sect |Append | Del W |
|
|
|
202 ;; | Reset |Pre Win|Nex Win| | Do | Fill |Replace|Undel W|
|
|
|
203 ;; |_______|_______|_______| |_______|_______|_______|_______|
|
|
|
204 ;; |Move up| |Forward|Reverse|Remove | Del C |
|
|
|
205 ;; | Top | |Bottom | Top |Insert |Undel C|
|
|
|
206 ;; _______|_______|_______ |_______|_______|_______|_______|
|
|
|
207 ;; |Mov Lef|Mov Dow|Mov Rig| | Word | EOL | Char | |
|
|
|
208 ;; |StaOfLi|Bottom |EndOfLi| |ChngCas|Del EOL|SpecIns| Enter |
|
|
|
209 ;; |_______|_______|_______| |_______|_______|_______| |
|
|
|
210 ;; | Line |Select | Subs |
|
|
|
211 ;; | Open Line | Reset | |
|
|
|
212 ;; |_______________|_______|_______|
|
|
|
213 ;; Control Characters
|
|
|
214 ;;
|
|
|
215 ;; ^A toggle insert and overwrite ^L insert page break
|
|
|
216 ;; ^B recall ^R remember, re-center
|
|
|
217 ;; ^E end of line ^U delete to beginning of line
|
|
|
218 ;; ^G cancel current operation ^V quote
|
|
|
219 ;; ^H beginning of line ^W refresh
|
|
|
220 ;; ^J delete previous word ^Z exit
|
|
|
221 ;; ^K learn ^X^X exchange point and mark
|
|
|
222 ;;
|
|
|
223 ;;
|
|
|
224 ;; Gold-<key> Functions
|
|
|
225 ;; -----------------------------------------------------------------
|
|
|
226 ;; W Write - save current buffer
|
|
|
227 ;; K Kill buffer - abandon edits and delete buffer
|
|
|
228 ;;
|
|
|
229 ;; E Exit - save current buffer and ask about others
|
|
|
230 ;; X eXit - save all modified buffers and exit
|
|
|
231 ;; Q Quit - exit without saving anything
|
|
|
232 ;;
|
|
|
233 ;; G Get - load a file into a new edit buffer
|
|
|
234 ;; I Include - include a file in this buffer
|
|
|
235 ;;
|
|
|
236 ;; B next Buffer - display the next buffer (all buffers)
|
|
|
237 ;; N Next file buffer - display next buffer containing a file
|
|
|
238 ;; M buffer Menu - display a list of all buffers
|
|
|
239 ;;
|
|
|
240 ;; U Undo - undo the last edit
|
|
|
241 ;; C Recall - edit and possibly repeat previous commands
|
|
|
242 ;;
|
|
|
243 ;; O Occur - show following lines containing REGEXP
|
|
|
244 ;; S Search and substitute - line mode REPLACE command
|
|
|
245 ;;
|
|
|
246 ;; ? Spell check - check spelling in a region or entire buffer
|
|
|
247 ;;
|
|
|
248 ;; R Toggle Rectangular mode for remove and insert
|
|
|
249 ;; * Toggle regular expression mode for search and substitute
|
|
|
250 ;;
|
|
|
251 ;; V Show TPU-edt version
|
|
|
252 ;; -----------------------------------------------------------------
|
|
|
253
|
|
|
254
|
|
|
255 ;; %% Optional TPU-edt Extensions
|
|
|
256
|
|
|
257 ;; Several optional packages have been included in this distribution
|
|
|
258 ;; of TPU-edt. The following is a brief description of each package.
|
|
|
259 ;; See the {package}.el file for more detailed information and usage
|
|
|
260 ;; instructions.
|
|
|
261
|
|
|
262 ;; tpu-extras - TPU/edt scroll margins and free cursor mode.
|
|
|
263 ;; tpu-recall - String, file name, and command history.
|
|
|
264 ;; vt-control - VTxxx terminal width and keypad controls.
|
|
|
265
|
|
|
266 ;; Packages are normally loaded from the emacs initialization file
|
|
|
267 ;; (discussed below). If a package is not installed in the emacs
|
|
|
268 ;; lisp directory, it can be loaded by specifying the complete path
|
|
|
269 ;; to the package file. However, it is preferable to modify the
|
|
|
270 ;; emacs load-path variable to include the directory where packages
|
|
|
271 ;; are stored. This way, packages can be loaded by name, just as if
|
|
|
272 ;; they were installed. The first part of the sample .emacs file
|
|
|
273 ;; below shows how to make such a modification.
|
|
|
274
|
|
|
275
|
|
|
276 ;; %% Customizing TPU-edt using the Emacs Initialization File
|
|
|
277
|
|
|
278 ;; .emacs - a sample emacs initialization file
|
|
|
279
|
|
|
280 ;; This is a sample emacs initialization file. It shows how to invoke
|
|
|
281 ;; TPU-edt, and how to customize it.
|
|
|
282
|
|
|
283 ;; The load-path is where emacs looks for files to fulfill load requests.
|
|
|
284 ;; If TPU-edt is not installed in a standard emacs directory, the load-path
|
|
|
285 ;; should be updated to include the directory where the TPU-edt files are
|
|
|
286 ;; stored. Modify and un-comment the following section if TPU-ed is not
|
|
|
287 ;; installed on your system - be sure to leave the double quotes!
|
|
|
288
|
|
|
289 ;; (setq load-path
|
|
|
290 ;; (append (list (expand-file-name "/path/to/tpu-edt/files"))
|
|
|
291 ;; load-path))
|
|
|
292
|
|
|
293 ;; Load TPU-edt
|
|
|
294 (load "tpu-edt")
|
|
|
295
|
|
|
296 ;; Load the optional goodies - scroll margins, free cursor mode, command
|
|
|
297 ;; and string recall. But don't complain if the file aren't available.
|
|
|
298 (load "tpu-extras" t)
|
|
|
299 (load "tpu-recall" t)
|
|
|
300
|
|
|
301 ;; Uncomment this line to set scroll margins 10% (top) and 15% (bottom).
|
|
|
302 ;(and (fboundp 'tpu-set-scroll-margins) (tpu-set-scroll-margins "10%" "15%"))
|
|
|
303
|
|
|
304 ;; Load the vtxxx terminal control functions, but don't complain if
|
|
2
|
305 ;; the file is not found.
|
|
0
|
306 (load "vt-control" t)
|
|
|
307
|
|
|
308 ;; TPU-edt treats words like EDT; here's how to add word separators.
|
|
|
309 ;; Note that backslash (\) and double quote (") are quoted with '\'.
|
|
|
310 (tpu-add-word-separators "]\\[-_,.\"=+()'/*#:!&;$")
|
|
|
311
|
|
|
312 ;; Emacs is happy to save files without a final newline; other Unix programs
|
|
|
313 ;; hate that! This line will make sure that files end with newlines.
|
|
|
314 (setq require-final-newline t)
|
|
|
315
|
|
|
316 ;; Emacs has the ability to automatically run code embedded in files
|
|
|
317 ;; you edit. This line makes emacs ask if you want to run the code.
|
|
|
318 (if tpu-emacs19-p (setq enable-local-variables "ask")
|
|
|
319 (setq inhibit-local-variables t))
|
|
|
320
|
|
|
321 ;; Emacs uses Control-s and Control-q. Problems can occur when using emacs
|
|
|
322 ;; on terminals that use these codes for flow control (Xon/Xoff flow control).
|
|
|
323 ;; These lines disable emacs' use of these characters.
|
|
|
324 (global-unset-key "\C-s")
|
|
|
325 (global-unset-key "\C-q")
|
|
|
326
|
|
|
327 ;; top, bottom, bol, eol seem like a waste of Gold-arrow functions. The
|
|
|
328 ;; following section re-maps up and down arrow keys to top and bottom of
|
|
|
329 ;; screen, and left and right arrow keys to pan left and right (pan-left,
|
|
|
330 ;; right moves the screen 16 characters left or right - try it, you'll
|
|
|
331 ;; like it!).
|
|
|
332
|
|
|
333 ;; Re-map the Gold-arrow functions
|
|
|
334 (define-key GOLD-CSI-map "A" 'tpu-beginning-of-window) ; up-arrow
|
|
|
335 (define-key GOLD-CSI-map "B" 'tpu-end-of-window) ; down-arrow
|
|
|
336 (define-key GOLD-CSI-map "C" 'tpu-pan-right) ; right-arrow
|
|
|
337 (define-key GOLD-CSI-map "D" 'tpu-pan-left) ; left-arrow
|
|
|
338 (define-key GOLD-SS3-map "A" 'tpu-beginning-of-window) ; up-arrow
|
|
|
339 (define-key GOLD-SS3-map "B" 'tpu-end-of-window) ; down-arrow
|
|
|
340 (define-key GOLD-SS3-map "C" 'tpu-pan-right) ; right-arrow
|
|
|
341 (define-key GOLD-SS3-map "D" 'tpu-pan-left) ; left-arrow
|
|
|
342
|
|
|
343 ;; Re-map the Gold-arrow functions for X-windows TPU-edt (emacs version 19)
|
|
|
344 (cond
|
|
|
345 ((and tpu-emacs19-p window-system)
|
|
|
346 (define-key GOLD-map [up] 'tpu-beginning-of-window) ; up-arrow
|
|
|
347 (define-key GOLD-map [down] 'tpu-end-of-window) ; down-arrow
|
|
|
348 (define-key GOLD-map [right] 'tpu-pan-right) ; right-arrow
|
|
|
349 (define-key GOLD-map [left] 'tpu-pan-left))) ; left-arrow
|
|
|
350
|
|
|
351 ;; The emacs universal-argument function is very useful for native emacs
|
|
|
352 ;; commands. This line maps universal-argument to Gold-PF1
|
|
|
353 (define-key GOLD-SS3-map "P" 'universal-argument) ; Gold-PF1
|
|
|
354
|
|
|
355 ;; Make KP7 move by paragraphs, instead of pages.
|
|
|
356 (define-key SS3-map "w" 'tpu-paragraph) ; KP7
|
|
|
357
|
|
|
358 ;; TPU-edt assumes you have the ispell spelling checker;
|
|
|
359 ;; Un-comment this line if you don't.
|
|
|
360 ;(setq tpu-have-spell nil)
|
|
|
361
|
|
|
362 ;; Display the TPU-edt version.
|
|
|
363 (tpu-version)
|
|
|
364
|
|
|
365 ;; End of .emacs - a sample emacs initialization file
|
|
|
366
|
|
|
367 ;; After initialization with the .emacs file shown above, the editing
|
|
|
368 ;; keys have been re-mapped to look like this:
|
|
|
369
|
|
|
370 ;; _______________________ _______________________________
|
|
|
371 ;; | HELP | Do | | | | | |
|
|
|
372 ;; |KeyDefs| | | | | | |
|
|
|
373 ;; |_______|_______________| |_______|_______|_______|_______|
|
|
|
374 ;; _______________________ _______________________________
|
|
|
375 ;; | Find |Insert |Remove | | Gold | HELP |FndNxt | Del L |
|
|
|
376 ;; | | |Sto Tex| | U Arg |E-Help | Find |Undel L|
|
|
|
377 ;; |_______|_______|_______| |_______|_______|_______|_______|
|
|
|
378 ;; |Select |Pre Scr|Nex Scr| |Paragra| Sect |Append | Del W |
|
|
|
379 ;; | Reset |Pre Win|Nex Win| | Do | Fill |Replace|Undel W|
|
|
|
380 ;; |_______|_______|_______| |_______|_______|_______|_______|
|
|
|
381 ;; |Move up| |Forward|Reverse|Remove | Del C |
|
|
|
382 ;; |Tscreen| |Bottom | Top |Insert |Undel C|
|
|
|
383 ;; _______|_______|_______ |_______|_______|_______|_______|
|
|
|
384 ;; |Mov Lef|Mov Dow|Mov Rig| | Word | EOL | Char | |
|
|
|
385 ;; |PanLeft|Bscreen|PanRigh| |ChngCas|Del EOL|SpecIns| Enter |
|
|
|
386 ;; |_______|_______|_______| |_______|_______|_______| |
|
|
|
387 ;; | Line |Select | Subs |
|
|
|
388 ;; | Open Line | Reset | |
|
|
|
389 ;; |_______________|_______|_______|
|
|
|
390
|
|
|
391 ;; Astute emacs hackers will realize that on systems where TPU-edt is
|
|
|
392 ;; installed, this documentation file can be loaded to produce the above
|
|
|
393 ;; editing keypad layout. In fact, to get all the changes in the sample
|
|
|
394 ;; initialization file, you only need a one line initialization file:
|
|
|
395
|
|
|
396 ;; (load "tpu-doc")
|
|
|
397
|
|
|
398 ;; wow!
|
|
|
399
|
|
|
400
|
|
|
401 ;; %% Compiling TPU-edt
|
|
|
402
|
|
|
403 ;; It is not necessary to compile (byte-compile in emacs parlance)
|
|
|
404 ;; TPU-edt to use it. However, byte-compiled code loads and runs
|
|
|
405 ;; faster, and takes up less memory when loaded. To byte compile
|
|
|
406 ;; TPU-edt, use the following command.
|
|
|
407
|
|
|
408 ;; emacs -batch -f batch-byte-compile tpu-edt.el
|
|
|
409
|
|
|
410 ;; This will produce a file named tpu-edt.elc. This new file can be
|
|
|
411 ;; used in place of the original tpu-edt.el file. In commands where
|
|
|
412 ;; the file type is not specified, emacs always attempts to use the
|
|
|
413 ;; byte-compiled version before resorting to the source.
|
|
|
414
|
|
|
415
|
|
|
416 ;; %% Regular expressions in TPU-edt
|
|
|
417
|
|
|
418 ;; Gold-* toggles TPU-edt regular expression mode. In regular expression
|
|
|
419 ;; mode, find, find next, replace, and substitute accept emacs regular
|
|
|
420 ;; expressions. A complete list of emacs regular expressions can be
|
|
|
421 ;; found using the emacs "info" command (it's somewhat like the VMS help
|
|
|
422 ;; command). Try the following sequence of commands:
|
|
|
423
|
|
|
424 ;; DO info <enter info mode>
|
|
|
425 ;; m regex <select the "regular expression" topic>
|
|
|
426 ;; m directives <select the "directives" topic>
|
|
|
427
|
|
|
428 ;; Type "q" to quit out of info mode.
|
|
|
429
|
|
|
430 ;; There is a problem in regular expression mode when searching for
|
|
|
431 ;; empty strings, like beginning-of-line (^) and end-of-line ($).
|
|
|
432 ;; When searching for these strings, find-next may find the current
|
|
|
433 ;; string, instead of the next one. This can cause global replace and
|
|
|
434 ;; substitute commands to loop forever in the same location. For this
|
|
|
435 ;; reason, commands like
|
|
|
436
|
|
|
437 ;; replace "^" "> " <add "> " to beginning of line>
|
|
|
438 ;; replace "$" "00711" <add "00711" to end of line>
|
|
|
439
|
|
|
440 ;; may not work properly.
|
|
|
441
|
|
|
442 ;; Commands like those above are very useful for adding text to the
|
|
|
443 ;; beginning or end of lines. They might work on a line-by-line basis,
|
|
|
444 ;; but go into an infinite loop if the "all" response is specified. If
|
|
|
445 ;; the goal is to add a string to the beginning or end of a particular
|
|
|
446 ;; set of lines TPU-edt provides functions to do this.
|
|
|
447
|
|
|
448 ;; Gold-^ Add a string at BOL in region or buffer
|
|
|
449 ;; Gold-$ Add a string at EOL in region or buffer
|
|
|
450
|
|
|
451 ;; There is also a TPU-edt interface to the native emacs string
|
|
|
452 ;; replacement commands. Gold-/ invokes this command. It accepts
|
|
|
453 ;; regular expressions if TPU-edt is in regular expression mode. Given
|
|
|
454 ;; a repeat count, it will perform the replacement without prompting
|
|
|
455 ;; for confirmation.
|
|
|
456
|
|
|
457 ;; This command replaces empty strings correctly, however, it has its
|
|
|
458 ;; drawbacks. As a native emacs command, it has a different interface
|
|
|
459 ;; than the emulated TPU commands. Also, it works only in the forward
|
|
|
460 ;; direction, regardless of the current TPU-edt direction.
|
|
|
461
|
|
|
462
|
|
|
463 ;; %% Etcetera
|
|
|
464
|
|
|
465 ;; That's TPU-edt in a nutshell...
|
|
|
466
|
|
|
467 ;; Please send any bug reports, feature requests, or cookies to the
|
|
|
468 ;; author, Rob Riepel, at the address shown by the tpu-version command
|
|
|
469 ;; (Gold-V).
|
|
|
470
|
|
|
471 ;; Share and enjoy... Rob Riepel 7/93
|
|
|
472
|
|
|
473 ;;; tpu-doc.el ends here
|
