annotate lisp/emulation/edt.el @ 78445:d92fa7306fd1

** davby@ida.liu.se, 6 July: Bug in pos-visible-in-window-p Fixed.
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 07 Aug 2007 15:56:21 +0000
parents ac0efac52065
children d6d821e3ae21 e1af3a725ca4 f55f9811f5d7
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: 35124
diff changeset
1 ;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs 19
660
08eb386dd0f3 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 258
diff changeset
2
64701
34bd8e434dd7 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64085
diff changeset
3 ;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001, 2002, 2003,
75346
7a3f13e2dd57 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74641
diff changeset
4 ;; 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 811
diff changeset
5
74641
11fae7eadf2d Replace `/' with a `-', to fix a problem on Cygwin.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
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: 68648
diff changeset
7 ;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com>
811
e694e0879463 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 807
diff changeset
8 ;; Keywords: emulations
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 793
diff changeset
9
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
13 ;; it under the terms of the GNU General Public License as published
78218
ac0efac52065 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 75346
diff changeset
14 ;; by the Free Software Foundation; either version 3, or (at your
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
15 ;; option) any later version.
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful, but
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
20 ;; General Public License for more details.
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14105
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63941
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63941
diff changeset
25 ;; Boston, MA 02110-1301, USA.
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
27
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
28
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
29 ;;; Commentary:
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
30 ;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
31
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
32 ;; This is Version 4.0 of the EDT Emulation for Emacs 19 and above.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
33 ;; It comes with special functions which replicate nearly all of EDT's
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
34 ;; keypad mode behavior. It sets up default keypad and function key
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
35 ;; bindings which closely match those found in EDT. Support is
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
36 ;; provided so that users may reconfigure most keypad and function key
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
37 ;; bindings to their own liking.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
38
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
39 ;; NOTE: Version 4.0 contains several enhancements. See the
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
40 ;; Enhancement section below for the details.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
41
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
42 ;; Getting Started:
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
43
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
44 ;; To start the EDT Emulation, first start Emacs and then enter
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
45 ;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
46 ;; M-x edt-emulation-on
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
47 ;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
48 ;; to begin the emulation. After initialization is complete, the
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
49 ;; following message will appear below the status line informing you
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
50 ;; that the emulation has been enabled: "Default EDT keymap active".
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
51
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
52 ;; You can have the EDT Emulation start up automatically, each time
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
53 ;; you initiate a GNU Emacs session, by adding the following line to
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
54 ;; your .emacs file:
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
55 ;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
56 ;; (add-hook term-setup-hook 'edt-emulation-on)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
57
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
58 ;; IMPORTANT: Be sure to read the file, edt-user.doc, located in the
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
59 ;; Emacs "etc" directory. It contains very helpful user information.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
60
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
61 ;; The EDT emulation consists of the following files:
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
62 ;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
63 ;; edt-user.doc - User Instructions and Sample Customization File
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
64 ;; edt.el - EDT Emulation Functions and Default Configuration
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
65 ;; edt-lk201.el - Built-in support for DEC LK-201 Keyboards
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
66 ;; edt-vt100.el - Built-in support for DEC VT-100 (and above) terminals
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
67 ;; edt-pc.el - Built-in support for PC 101 Keyboards under MS-DOS
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
68 ;; edt-mapper.el - Create an EDT LK-201 Map File for Keyboards Without
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
69 ;; Built-in Support
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
70
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
71 ;; Enhancements:
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
72
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
73 ;; Version 4.0 contains the following enhancements:
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
74
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
75 ;; 1. Scroll margins at the top and bottom of the window are now
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
76 ;; supported. (The design was copied from tpu-extras.el.) By
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
77 ;; default, this feature is enabled, with the top margin set to
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
78 ;; 10% of the window and the bottom margin set to 15% of the
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
79 ;; window. To change these settings, you can invoke the function
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
80 ;; edt-set-scroll-margins in your .emacs file. For example, the
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
81 ;; following line
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
82 ;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
83 ;; (edt-set-scroll-margins "20%" "25%")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
84 ;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
85 ;; sets the top margin to 20% of the window and the bottom margin
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
86 ;; to 25% of the window. To disable this feature, set each
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
87 ;; margin to 0%. You can also invoke edt-set-scroll-margins
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
88 ;; interactively while EDT Emulation is active to change the
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
89 ;; settings for that session.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
90 ;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
91 ;; NOTE: Another way to set the scroll margins is to use the
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
92 ;; Emacs customization feature (not available in Emacs 19) to set
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
93 ;; the following two variables directly:
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
94 ;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
95 ;; edt-top-scroll-margin and edt-bottom-scroll-margin
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
96 ;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
97 ;; Enter the Emacs `customize' command. First select the Editing
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
98 ;; group and then select the Emulations group. Finally, select
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
99 ;; the Edt group and follow the directions.
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
100 ;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
101 ;; 2. The SUBS command is now supported and bound to GOLD-Enter by
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
102 ;; default. (This design was copied from tpu-edt.el.) Note, in
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
103 ;; earlier versions of EDT Emulation, GOLD-Enter was assigned to
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
104 ;; the Emacs function `query-replace'. The binding of
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
105 ;; `query-replace' has been moved to GOLD-/. If you prefer to
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
106 ;; restore `query-replace' to GOLD-Enter, then use an EDT user
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
107 ;; customization file, edt-user.el, to do this. See edt-user.doc
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
108 ;; for details.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
109
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
110 ;; 3. EDT Emulation now also works in XEmacs, including the
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
111 ;; highlighting of selected text.
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 793
diff changeset
112
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
113 ;; 4. If you access a workstation using an X Server, observe that
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
114 ;; the initialization file generated by edt-mapper.el will now
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
115 ;; contain the name of the X Server vendor. This is a
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
116 ;; convenience for those who have access to their Unix account
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
117 ;; from more than one type of X Server. Since different X
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
118 ;; Servers typically require different EDT emulation
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
119 ;; initialization files, edt-mapper.el will now generate these
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
120 ;; different initialization files and save them with different
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
121 ;; names. Then, the correct initialization file for the
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
122 ;; particular X server in use is loaded correctly automatically.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
123
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
124 ;; 5. Also, edt-mapper.el is now capable of binding an ASCII key
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
125 ;; sequence, providing the ASCII key sequence prefix is already
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
126 ;; known by Emacs to be a prefix. As a result of providing this
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
127 ;; support, some terminal/keyboard/window system configurations,
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
128 ;; which don't have a complete set of sensible function key
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
129 ;; bindings built into Emacs in `function-key-map', can still be
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
130 ;; configured for use with EDT Emulation. (Note: In a few rare
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
131 ;; circumstances this does not work properly. In particular, it
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
132 ;; does not work if a subset of the leading ASCII characters in a
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
133 ;; key sequence are recognized by Emacs as having an existing
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
134 ;; binding. For example, if the keypad 7 (KP-7) key generates
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
135 ;; the sequence \"<ESC>Ow\" and \"<ESC>O\" is already bound to a
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
136 ;; function, pressing KP-7 when told to do so by edt-mapper.el
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
137 ;; will result in edt-mapper.el incorrectly mapping \"<ESC>O\" to
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
138 ;; KP-7 and \"w\" to KP-8. If something like this happens to
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
139 ;; you, it is probably a bug in the support for your keyboard
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
140 ;; within Emacs OR a bug in the Unix termcap/terminfo support for
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
141 ;; your terminal OR a bug in the terminal emulation software you
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
142 ;; are using.)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
143
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
144 ;; 6. The edt-quit function (bound to GOLD-q by default) has been
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
145 ;; modified to warn the user when file-related buffer
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
146 ;; modifications exist. It now cautions the user that those
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
147 ;; modifications will be lost if the user quits without saving
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
148 ;; those buffers.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
149
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
150
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
151 ;;; History:
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
152 ;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
153 ;; Version 4.0 2000 Added New Features and Fixed a Few Bugs
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
154 ;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
155
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
156
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
157 ;;; Code:
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
158
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
159 ;;; Electric Help functions are used for keypad help displays. A few
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
160 ;;; picture functions are used in rectangular cut and paste commands.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
161
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
162 (require 'ehelp)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
163 (require 'picture)
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 793
diff changeset
164
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
165 ;;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
166 ;;;; VARIABLES and CONSTANTS
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
167 ;;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
168
48259
c283da384991 (defgroup edt): Arrange that definition starts at beginning of line.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48247
diff changeset
169 ;; For backward compatibility to Emacs 19.
c283da384991 (defgroup edt): Arrange that definition starts at beginning of line.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48247
diff changeset
170 (or (fboundp 'defgroup)
c283da384991 (defgroup edt): Arrange that definition starts at beginning of line.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48247
diff changeset
171 (defmacro defgroup (&rest rest)))
c283da384991 (defgroup edt): Arrange that definition starts at beginning of line.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48247
diff changeset
172
c283da384991 (defgroup edt): Arrange that definition starts at beginning of line.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48247
diff changeset
173 (defgroup edt nil
c283da384991 (defgroup edt): Arrange that definition starts at beginning of line.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48247
diff changeset
174 "Emacs emulating EDT."
c283da384991 (defgroup edt): Arrange that definition starts at beginning of line.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48247
diff changeset
175 :prefix "edt-"
c283da384991 (defgroup edt): Arrange that definition starts at beginning of line.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48247
diff changeset
176 :group 'emulations)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
177
63914
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
178 ;; To silence the byte-compiler
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
179 (eval-when-compile
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
180 (defvar *EDT-keys*)
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
181 (defvar edt-default-global-map)
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
182 (defvar edt-last-copied-word)
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
183 (defvar edt-learn-macro-count)
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
184 (defvar edt-orig-page-delimiter)
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
185 (defvar edt-orig-transient-mark-mode)
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
186 (defvar edt-rect-start-point)
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
187 (defvar edt-user-global-map)
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
188 (defvar rect-start-point)
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
189 (defvar time-string)
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
190 (defvar zmacs-region-stays))
402efef82fd9 (*EDT-keys*, edt-default-global-map, edt-last-copied-word,
Juanma Barranquero <lekktu@gmail.com>
parents: 62402
diff changeset
191
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
192 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
193 ;;; Version Information
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
194 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
195 (defconst edt-version "4.0" "EDT Emulation version number.")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
196
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
197 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
198 ;;; User Configurable Variables
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
199 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
200
48247
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
201 ;; For backward compatibility to Emacs 19.
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
202 (or (fboundp 'defcustom)
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
203 (defmacro defcustom (var value doc &rest ignore)
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
204 `(defvar ,var ,value ,doc)))
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
205
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
206 (defcustom edt-keep-current-page-delimiter nil
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
207 "*Emacs MUST be restarted for a change in value to take effect!
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
208 Non-nil leaves Emacs value of `page-delimiter' unchanged within EDT
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
209 Emulation. If set to nil (the default), the `page-delimiter' variable
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
210 is set to \"\\f\" when edt-emulation-on is first invoked. This
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
211 setting replicates EDT's page delimiter behavior. The original value
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
212 is restored when edt-emulation-off is called."
48247
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
213 :type 'boolean
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
214 :group 'edt)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
215
48247
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
216 (defcustom edt-use-EDT-control-key-bindings nil
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
217 "*Emacs MUST be restarted for a change in value to take effect!
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
218 Non-nil causes the control key bindings to be replaced with EDT
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
219 bindings. If set to nil (the default), EDT control key bindings are
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
220 not used and the current Emacs control key bindings are retained for
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
221 use within the EDT emulation."
48247
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
222 :type 'boolean
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
223 :group 'edt)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
224
48247
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
225 (defcustom edt-word-entities '(?\t)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
226 "*Specifies the list of EDT word entity characters.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
227 The default list, (\?\\t), contains just the TAB character, which
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
228 emulates EDT. Characters are specified in the list using their
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
229 decimal ASCII values. A question mark, followed by the actual
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
230 character, can be used to indicate the numerical value of the
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
231 character, instead of the actual decimal value. So, ?A means the
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
232 numerical value for the letter A, \?/ means the numerical value for /,
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
233 etc. Several unprintable and special characters have special
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
234 representations, which you can also use:
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
235
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
236 \?\\b specifies BS, C-h
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
237 \?\\t specifies TAB, C-i
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
238 \?\\n specifies LFD, C-j
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
239 \?\\v specifies VTAB, C-k
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
240 \?\\f specifies FF, C-l
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
241 \?\\r specifies CR, C-m
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
242 \?\\e specifies ESC, C-[
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
243 \?\\\\ specifies \\
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
244
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
245 In EDT Emulation movement-by-word commands, each character in the list
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
246 will be treated as if it were a separate word."
48247
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
247 :type '(repeat integer)
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
248 :group 'edt)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
249
48247
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
250 (defcustom edt-top-scroll-margin 10
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
251 "*Scroll margin at the top of the screen.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
252 Interpreted as a percent of the current window size with a default
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
253 setting of 10%. If set to 0, top scroll margin is disabled."
48247
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
254 :type 'integer
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
255 :group 'edt)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
256
48247
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
257 (defcustom edt-bottom-scroll-margin 15
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
258 "*Scroll margin at the bottom of the screen.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
259 Interpreted as a percent of the current window size with a default
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
260 setting of 15%. If set to 0, bottom scroll margin is disabled."
48247
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
261 :type 'integer
80e9d4652a07 Simplify Emacs 19 compatibility.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 45896
diff changeset
262 :group 'edt)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
263
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
264 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
265 ;;; Internal Variables
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
266 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
267
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 (defvar edt-last-deleted-lines ""
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
269 "Last text deleted by the EDT emulation DEL L command.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
270
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 (defvar edt-last-deleted-words ""
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
272 "Last text deleted by the EDT emulation DEL W command.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
273
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 (defvar edt-last-deleted-chars ""
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
275 "Last text deleted by the EDT emulation DEL C command.")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
276
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
277 (defvar edt-find-last-text ""
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
278 "Last text found by the EDT emulation FIND command.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
279
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
280 (defvar edt-match-beginning-mark (make-marker)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
281 "Used internally by the EDT emulation SUBS command.")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
282
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
283 (defvar edt-match-end-mark (make-marker)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
284 "Used internally by the EDT emulation SUBS command.")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
285
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
286 (defvar edt-last-replaced-key-definition nil
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
287 "Key definition replaced with `edt-define-key' or `edt-learn' command.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
288
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
289 (defvar edt-direction-string ""
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
290 "String indicating current direction of movement.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
291
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
292 (defvar edt-select-mode nil
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
293 "Non-nil means select mode is active.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
294
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
295 (defvar edt-select-mode-current ""
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
296 "Text displayed in mode line to indicate the state of EDT select mode.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
297 When select mode is inactive, it is set to an empty string.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
298
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
299 (defconst edt-select-mode-string " Select"
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
300 "Used in mode line to indicate select mode is active.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
301
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
302 (defconst edt-forward-string " ADVANCE"
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
303 "Direction string in mode line to indicate forward movement.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
304
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
305 (defconst edt-backward-string " BACKUP"
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
306 "Direction string in mode line to indicate backward movement.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
307
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
308 (defvar edt-default-map-active nil
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
309 "Non-nil indicates that default EDT emulation key bindings are active.
42206
0f4506820432 Doc fix.
Pavel Janík <Pavel@Janik.cz>
parents: 38436
diff changeset
310 nil means user-defined custom bindings are active.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
311
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
312 (defvar edt-user-map-configured nil
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
313 "Non-nil indicates that user custom EDT key bindings are configured.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
314 This means that an edt-user.el file was found in the user's `load-path'.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
315
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
316 (defvar edt-term nil
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
317 "Specifies the terminal type, if applicable.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
318
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
319 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
320 ;;; Emacs version identifiers - currently referenced by
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
321 ;;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
322 ;;; o edt-emulation-on o edt-load-keys
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
323 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
324 (defconst edt-emacs19-p (not (string-lessp emacs-version "19"))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
325 "Non-nil if we are running GNU Emacs or XEmacs version 19, or higher.")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
326
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
327 (defconst edt-x-emacs19-p
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
328 (and edt-emacs19-p (string-match "XEmacs" emacs-version))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
329 "Non-nil if we are running XEmacs version 19, or higher.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
330
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
331 (defconst edt-gnu-emacs19-p (and edt-emacs19-p (not edt-x-emacs19-p))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
332 "Non-nil if we are running GNU Emacs version 19, or higher.")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
333
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
334 (defconst edt-emacs-variant (if edt-gnu-emacs19-p "gnu" "xemacs")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
335 "Indicates Emacs variant: GNU Emacs or XEmacs \(aka Lucid Emacs\).")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
336
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
337 (defconst edt-window-system (if edt-gnu-emacs19-p window-system (console-type))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
338 "Indicates window system \(in GNU Emacs\) or console type \(in XEmacs\).")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
339
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
340 (defconst edt-xserver (if (eq edt-window-system 'x)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
341 (if edt-x-emacs19-p
74641
11fae7eadf2d Replace `/' with a `-', to fix a problem on Cygwin.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
342 ;; The Cygwin window manager has a `/' in its
11fae7eadf2d Replace `/' with a `-', to fix a problem on Cygwin.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
343 ;; name, which breaks the generated file name of
11fae7eadf2d Replace `/' with a `-', to fix a problem on Cygwin.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
344 ;; the custom key map file. Replace `/' with a
11fae7eadf2d Replace `/' with a `-', to fix a problem on Cygwin.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
345 ;; `-' to work around that.
11fae7eadf2d Replace `/' with a `-', to fix a problem on Cygwin.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
346 (replace-in-string (x-server-vendor) "[ /]" "-")
11fae7eadf2d Replace `/' with a `-', to fix a problem on Cygwin.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
347 (subst-char-in-string ?/ ?- (subst-char-in-string ? ?- (x-server-vendor))))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
348 nil)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
349 "Indicates X server vendor name, if applicable.")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
350
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
351 (defvar edt-keys-file nil
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
352 "User's custom keypad and function keys mappings to emulate LK-201 keyboard.")
63941
929eb735e11d (edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 63914
diff changeset
353
929eb735e11d (edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 63914
diff changeset
354 (defvar edt-last-copied-word nil
929eb735e11d (edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 63914
diff changeset
355 "Last word that the user copied.")
929eb735e11d (edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 63914
diff changeset
356
929eb735e11d (edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 63914
diff changeset
357 (defvar zmacs-region-stays)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
358
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
359 ;;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
360 ;;;; EDT Emulation Commands
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
361 ;;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
362
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
363 ;;; Almost all of EDT's keypad mode commands have equivalent Emacs
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
364 ;;; function counterparts. But many of these counterparts behave
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
365 ;;; somewhat differently in Emacs.
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
366 ;;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
367 ;;; So, the following Emacs functions emulate, where practical, the
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
368 ;;; exact behavior of the corresponding EDT keypad mode commands. In
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
369 ;;; a few cases, the emulation is not exact, but it should be close
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
370 ;;; enough for most EDT die-hards.
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
371 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
372
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
373 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
374 ;;; PAGE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
375 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
376 ;;; Emacs uses the regexp assigned to page-delimiter to determine what
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
377 ;;; marks a page break. This is normally "^\f", which causes the
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
378 ;;; edt-page command to ignore form feeds not located at the beginning
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
379 ;;; of a line. To emulate the EDT PAGE command exactly,
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
380 ;;; page-delimiter is set to "\f" when EDT emulation is turned on, and
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
381 ;;; restored to its original value when EDT emulation is turned off.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
382 ;;; But this can be overridden if the EDT definition is not desired by
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
383 ;;; placing
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
384 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
385 ;;; (setq edt-keep-current-page-delimiter t)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
386 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
387 ;;; in your .emacs file.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
388
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
389 (defun edt-page-forward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
390 "Move forward to just after next page delimiter.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
391 Argument NUM is the number of page delimiters to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
392 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
393 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
394 (if (eobp)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
395 (error "End of buffer")
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
396 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
397 (forward-page num)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
398 (if (eobp)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
399 (edt-line-to-bottom-of-window)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
400 (edt-line-to-top-of-window)))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
401
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
402 (defun edt-page-backward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
403 "Move backward to just after previous page delimiter.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
404 Argument NUM is the number of page delimiters to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
405 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
406 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
407 (if (bobp)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
408 (error "Beginning of buffer")
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
409 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
410 (backward-page num)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
411 (edt-line-to-top-of-window)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
412 (if edt-x-emacs19-p (setq zmacs-region-stays t)))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
413
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
414 (defun edt-page (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
415 "Move in current direction to next page delimiter.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
416 Argument NUM is the number of page delimiters to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
417 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
418 (if (equal edt-direction-string edt-forward-string)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
419 (edt-page-forward num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
420 (edt-page-backward num)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
421
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
422 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
423 ;;; SECT
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
424 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
425 ;;; EDT defaults a section size to be 16 lines of its one and only
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
426 ;;; 24-line window. That's two-thirds of the window at a time. The
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
427 ;;; EDT SECT commands moves the cursor, not the window.
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
428 ;;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
429 ;;; This emulation of EDT's SECT moves the cursor approximately
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
430 ;;; two-thirds of the current window at a time.
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
431
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
432 (defun edt-sect-forward (num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
433 "Move cursor forward two-thirds of a window's number of lines.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
434 Argument NUM is the number of sections to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
435 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
436 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
437 (edt-line-forward (* (* (/ (- (window-height) 1) 3) 2) num)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
438
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
439
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
440 (defun edt-sect-backward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
441 "Move cursor backward two-thirds of a window.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
442 Argument NUM is the number of sections to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
443 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
444 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
445 (edt-line-backward (* (* (/ (- (window-height) 1) 3) 2) num)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
446
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
447 (defun edt-sect (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
448 "Move in current direction a full window.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
449 Argument NUM is the number of sections to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
450 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
451 (if (equal edt-direction-string edt-forward-string)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
452 (edt-sect-forward num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
453 (edt-sect-backward num)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
454
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
455 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
456 ;;; BEGINNING OF LINE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
457 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
458 ;;; EDT's beginning-of-line command is not affected by current
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
459 ;;; direction, for some unknown reason.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
460
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
461 (defun edt-beginning-of-line (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
462 "Move backward to next beginning of line mark.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
463 Argument NUM is the number of BOL marks to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
464 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
465 (edt-check-prefix num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
466 (let ((beg (edt-current-line)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
467 (if (bolp)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
468 (forward-line (* -1 num))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
469 (progn
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
470 (setq num (1- num))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
471 (forward-line (* -1 num))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
472 (edt-top-check beg num))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
473 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
474
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
475
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
476 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
477 ;;; EOL (End of Line)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
478 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
479
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
480 (defun edt-end-of-line-forward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
481 "Move forward to next end of line mark.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
482 Argument NUM is the number of EOL marks to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
483 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
484 (edt-check-prefix num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
485 (let ((beg (edt-current-line)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
486 (forward-char)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
487 (end-of-line num)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
488 (edt-bottom-check beg num))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
489 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
490
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
491
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
492 (defun edt-end-of-line-backward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
493 "Move backward to next end of line mark.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
494 Argument NUM is the number of EOL marks to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
495 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
496 (edt-check-prefix num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
497 (let ((beg (edt-current-line)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
498 (end-of-line (1- num))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
499 (edt-top-check beg num))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
500 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
501
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
502
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
503 (defun edt-end-of-line (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
504 "Move in current direction to next end of line mark.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
505 Argument NUM is the number of EOL marks to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
506 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
507 (if (equal edt-direction-string edt-forward-string)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
508 (edt-end-of-line-forward num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
509 (edt-end-of-line-backward num)))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
511 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
512 ;;; WORD
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
513 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
514 ;;; This one is a tad messy. To emulate EDT's behavior everywhere in
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
515 ;;; the file (beginning of file, end of file, beginning of line, end
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
516 ;;; of line, etc.) it takes a bit of special handling.
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
517 ;;;
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
518 ;;; The variable edt-word-entities contains a list of characters which
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
519 ;;; are to be viewed as distinct words where ever they appear in the
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
520 ;;; buffer. This emulates the EDT line mode command SET ENTITY WORD.
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
521
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
522
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
523 (defun edt-one-word-forward ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
524 "Move forward to first character of next word."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
525 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
526 (if (eobp)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
527 (error "End of buffer"))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
528 (if (eolp)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
529 (forward-char)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
530 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
531 (if (memq (following-char) edt-word-entities)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
532 (forward-char)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
533 (while (and
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
534 (not (eolp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
535 (not (eobp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
536 (not (eq ?\ (char-syntax (following-char))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
537 (not (memq (following-char) edt-word-entities)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
538 (forward-char)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
539 (while (and
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
540 (not (eolp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
541 (not (eobp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
542 (eq ?\ (char-syntax (following-char)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
543 (not (memq (following-char) edt-word-entities)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
544 (forward-char))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
545 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
546
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
547 (defun edt-one-word-backward ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
548 "Move backward to first character of previous word."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
549 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
550 (if (bobp)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
551 (error "Beginning of buffer"))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
552 (if (bolp)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
553 (backward-char)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
554 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
555 (backward-char)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
556 (while (and
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
557 (not (bolp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
558 (not (bobp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
559 (eq ?\ (char-syntax (following-char)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
560 (not (memq (following-char) edt-word-entities)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
561 (backward-char))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
562 (if (not (memq (following-char) edt-word-entities))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
563 (while (and
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
564 (not (bolp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
565 (not (bobp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
566 (not (eq ?\ (char-syntax (preceding-char))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
567 (not (memq (preceding-char) edt-word-entities)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
568 (backward-char)))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
569 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
570
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
571 (defun edt-word-forward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
572 "Move forward to first character of next word.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
573 Argument NUM is the number of words to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
574 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
575 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
576 (while (> num 0)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
577 (edt-one-word-forward)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
578 (setq num (1- num))))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
579
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
580 (defun edt-word-backward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
581 "Move backward to first character of previous word.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
582 Argument NUM is the number of words to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
583 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
584 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
585 (while (> num 0)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
586 (edt-one-word-backward)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
587 (setq num (1- num))))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
588
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
589 (defun edt-word (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
590 "Move in current direction to first character of next word.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
591 Argument NUM is the number of words to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
592 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
593 (if (equal edt-direction-string edt-forward-string)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
594 (edt-word-forward num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
595 (edt-word-backward num)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
596
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
597 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
598 ;;; CHAR
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
599 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
600
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
601 (defun edt-character (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
602 "Move in current direction to next character.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
603 Argument NUM is the number of characters to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
604 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
605 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
606 (if (equal edt-direction-string edt-forward-string)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
607 (forward-char num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
608 (backward-char num))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
609 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
610
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
611 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
612 ;;; LINE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
613 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
614 ;;; When direction is set to BACKUP, LINE behaves just like BEGINNING
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
615 ;;; OF LINE in EDT. So edt-line-backward is not really needed as a
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
616 ;;; separate function.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
617
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
618 (defun edt-line-backward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
619 "Move backward to next beginning of line mark.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
620 Argument NUM is the number of BOL marks to move."
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 (interactive "p")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
622 (edt-beginning-of-line num))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
623
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
624 (defun edt-line-forward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
625 "Move forward to next beginning of line mark.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
626 Argument NUM is the number of BOL marks to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
627 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
628 (edt-check-prefix num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
629 (let ((beg (edt-current-line)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
630 (forward-line num)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
631 (edt-bottom-check beg num))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
632 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
633
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
634 (defun edt-line (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
635 "Move in current direction to next beginning of line mark.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
636 Argument NUM is the number of BOL marks to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
637 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
638 (if (equal edt-direction-string edt-forward-string)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
639 (edt-line-forward num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
640 (edt-line-backward num)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
641
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
642 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
643 ;;; UP and DOWN Arrows
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
644 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
645
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
646 (defun edt-next-line (num)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
647 "Move cursor down one line.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
648 Argument NUM is the number of lines to move."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
649 (interactive "p")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
650 (edt-check-prefix num)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
651 (let ((beg (edt-current-line)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
652 (next-line num)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
653 (edt-bottom-check beg num))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
654 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
655
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
656 (defun edt-previous-line (num)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
657 "Move cursor up one line.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
658 Argument NUM is the number of lines to move."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
659 (interactive "p")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
660 (edt-check-prefix num)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
661 (let ((beg (edt-current-line)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
662 (previous-line num)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
663 (edt-top-check beg num))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
664 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
665
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
666
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
667 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
668 ;;; TOP
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
669 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
670
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
671 (defun edt-top ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
672 "Move cursor to the beginning of buffer."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
673 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
674 (goto-char (point-min))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
675 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
676
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
677 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
678 ;;; BOTTOM
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
679 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
680
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
681 (defun edt-bottom ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
682 "Move cursor to the end of buffer."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
683 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
684 (goto-char (point-max))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
685 (edt-line-to-bottom-of-window))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
686
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
687 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
688 ;;; FIND
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
689 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
690
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
691 (defun edt-find-forward (&optional find)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
692 "Find first occurrence of a string in forward direction and save it.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
693 Optional argument FIND is t is this function is called from `edt-find'."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
694 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
695 (if (not find)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
696 (set 'edt-find-last-text (read-string "Search forward: ")))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
697 (let* ((left nil)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
698 (beg (edt-current-line))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
699 (height (window-height))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
700 (top-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
701 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
702 (bottom-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
703 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
704 (top-margin (/ (* height top-percent) 100))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
705 (bottom-up-margin (+ 1 (/ (* height bottom-percent) 100)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
706 (bottom-margin (max beg (- height bottom-up-margin 1)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
707 (top (save-excursion (move-to-window-line top-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
708 (bottom (save-excursion (move-to-window-line bottom-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
709 (far (save-excursion
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
710 (goto-char bottom) (forward-line (- height 2)) (point))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
711 (if (search-forward edt-find-last-text)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
712 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
713 (search-backward edt-find-last-text)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
714 (edt-set-match)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
715 (cond((> (point) far)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
716 (setq left (save-excursion (forward-line height)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
717 (if (= 0 left) (recenter top-margin)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
718 (recenter (- left bottom-up-margin))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
719 (t
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
720 (and (> (point) bottom) (recenter bottom-margin)))))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
721 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
722
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
723 (defun edt-find-backward (&optional find)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
724 "Find first occurrence of a string in the backward direction and save it.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
725 Optional argument FIND is t if this function is called from `edt-find'."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
726 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
727 (if (not find)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
728 (set 'edt-find-last-text (read-string "Search backward: ")))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
729 (let* ((left nil)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
730 (beg (edt-current-line))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
731 (height (window-height))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
732 (top-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
733 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
734 (bottom-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
735 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
736 (top-margin (/ (* height top-percent) 100))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
737 (bottom-up-margin (+ 1 (/ (* height bottom-percent) 100)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
738 (bottom-margin (max beg (- height bottom-up-margin 1)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
739 (top (save-excursion (move-to-window-line top-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
740 (bottom (save-excursion (move-to-window-line bottom-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
741 (far (save-excursion
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
742 (goto-char bottom) (forward-line (- height 2)) (point))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
743 (if (search-backward edt-find-last-text)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
744 (edt-set-match))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
745 (and (< (point) top) (recenter (min beg top-margin))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
746 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
747
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
748 (defun edt-find ()
13978
2445061c92d4 (edt-find-forward, edt-find-backward, edt-find,
Karl Heuer <kwzh@gnu.org>
parents: 13337
diff changeset
749 "Find first occurrence of string in current direction and save it."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
750 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
751 (set 'edt-find-last-text (read-string "Search: "))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
752 (if (equal edt-direction-string edt-forward-string)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
753 (edt-find-forward t)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
754 (edt-find-backward t)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
755
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
756
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
757 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
758 ;;; FNDNXT
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
759 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
760
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
761 (defun edt-find-next-forward ()
13978
2445061c92d4 (edt-find-forward, edt-find-backward, edt-find,
Karl Heuer <kwzh@gnu.org>
parents: 13337
diff changeset
762 "Find next occurrence of a string in forward direction."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
763 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
764 (let* ((left nil)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
765 (beg (edt-current-line))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
766 (height (window-height))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
767 (top-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
768 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
769 (bottom-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
770 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
771 (top-margin (/ (* height top-percent) 100))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
772 (bottom-up-margin (+ 1 (/ (* height bottom-percent) 100)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
773 (bottom-margin (max beg (- height bottom-up-margin 1)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
774 (top (save-excursion (move-to-window-line top-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
775 (bottom (save-excursion (move-to-window-line bottom-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
776 (far (save-excursion
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
777 (goto-char bottom) (forward-line (- height 2)) (point))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
778 (forward-char 1)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
779 (if (search-forward edt-find-last-text nil t)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
780 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
781 (search-backward edt-find-last-text)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
782 (edt-set-match)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
783 (cond((> (point) far)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
784 (setq left (save-excursion (forward-line height)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
785 (if (= 0 left) (recenter top-margin)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
786 (recenter (- left bottom-up-margin))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
787 (t
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
788 (and (> (point) bottom) (recenter bottom-margin)))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
789 (progn
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
790 (backward-char 1)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
791 (error "Search failed: \"%s\"" edt-find-last-text))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
792 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
793
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
794 (defun edt-find-next-backward ()
13978
2445061c92d4 (edt-find-forward, edt-find-backward, edt-find,
Karl Heuer <kwzh@gnu.org>
parents: 13337
diff changeset
795 "Find next occurrence of a string in backward direction."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
796 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
797 (let* ((left nil)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
798 (beg (edt-current-line))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
799 (height (window-height))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
800 (top-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
801 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
802 (bottom-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
803 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
804 (top-margin (/ (* height top-percent) 100))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
805 (bottom-up-margin (+ 1 (/ (* height bottom-percent) 100)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
806 (bottom-margin (max beg (- height bottom-up-margin 1)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
807 (top (save-excursion (move-to-window-line top-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
808 (bottom (save-excursion (move-to-window-line bottom-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
809 (far (save-excursion
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
810 (goto-char bottom) (forward-line (- height 2)) (point))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
811 (if (not (search-backward edt-find-last-text nil t))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
812 (error "Search failed: \"%s\"" edt-find-last-text)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
813 (progn
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
814 (edt-set-match)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
815 (and (< (point) top) (recenter (min beg top-margin))))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
816 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
817
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
818 (defun edt-find-next ()
13978
2445061c92d4 (edt-find-forward, edt-find-backward, edt-find,
Karl Heuer <kwzh@gnu.org>
parents: 13337
diff changeset
819 "Find next occurrence of a string in current direction."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
820 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
821 (if (equal edt-direction-string edt-forward-string)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
822 (edt-find-next-forward)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
823 (edt-find-next-backward)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
824
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
825 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
826 ;;; APPEND
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
827 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
828
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
829 (defun edt-append ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
830 "Append this kill region to last killed region."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
831 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
832 (edt-check-selection)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
833 (append-next-kill)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
834 (kill-region (mark) (point))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
835 (message "Selected text APPENDED to kill ring"))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
836
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
837 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
838 ;;; DEL L
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
839 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
840
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
841 (defun edt-delete-line (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
842 "Delete from cursor up to and including the end of line mark.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
843 Argument NUM is the number of lines to delete."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
844 (interactive "*p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
845 (edt-check-prefix num)
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
846 (let ((beg (point)))
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
847 (forward-line num)
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848 (if (not (eq (preceding-char) ?\n))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
849 (insert "\n"))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
850 (setq edt-last-deleted-lines
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
851 (buffer-substring beg (point)))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
852 (delete-region beg (point))))
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
853
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
854 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
855 ;;; DEL EOL
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
856 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
857
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
858 (defun edt-delete-to-end-of-line (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
859 "Delete from cursor up to but excluding the end of line mark.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
860 Argument NUM is the number of lines to delete."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
861 (interactive "*p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
862 (edt-check-prefix num)
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
863 (let ((beg (point)))
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
864 (forward-char 1)
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
865 (end-of-line num)
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
866 (setq edt-last-deleted-lines
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
867 (buffer-substring beg (point)))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
868 (delete-region beg (point))))
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
869
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
870 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
871 ;;; SELECT
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
872 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
873
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
874 (defun edt-select-mode (arg)
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
875 "Turn EDT select mode off if ARG is nil; otherwise, turn EDT select mode on.
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
876 In select mode, selected text is highlighted."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
877 (if arg
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
878 (progn
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
879 (make-local-variable 'edt-select-mode)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
880 (setq edt-select-mode 'edt-select-mode-current)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
881 (setq rect-start-point (window-point)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
882 (progn
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
883 (kill-local-variable 'edt-select-mode)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
884 (force-mode-line-update))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
885
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
886 (defun edt-select ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
887 "Set mark at cursor and start text selection."
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
888 (interactive)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
889 (set-mark-command nil))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
890
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
891 (defun edt-reset ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
892 "Cancel text selection."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
893 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
894 (if edt-gnu-emacs19-p
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
895 (deactivate-mark)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
896 (zmacs-deactivate-region)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
897
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
898 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
899 ;;; CUT
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
900 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
901
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
902 (defun edt-cut ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
903 "Deletes selected text but copies to kill ring."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
904 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
905 (edt-check-selection)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
906 (kill-region (mark) (point))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
907 (message "Selected text CUT to kill ring"))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
908
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
909 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
910 ;;; DELETE TO BEGINNING OF LINE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
911 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
912
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
913 (defun edt-delete-to-beginning-of-line (num)
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
914 "Delete from cursor to beginning of line.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
915 Argument NUM is the number of lines to delete."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
916 (interactive "*p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
917 (edt-check-prefix num)
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
918 (let ((beg (point)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
919 (edt-beginning-of-line num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
920 (setq edt-last-deleted-lines
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
921 (buffer-substring (point) beg))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922 (delete-region beg (point))))
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
923
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
924 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
925 ;;; DEL W
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
926 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
927
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
928 (defun edt-delete-word (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
929 "Delete from cursor up to but excluding first character of next word.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
930 Argument NUM is the number of words to delete."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
931 (interactive "*p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
932 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
933 (let ((beg (point)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
934 (edt-word-forward num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
935 (setq edt-last-deleted-words (buffer-substring beg (point)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
936 (delete-region beg (point))))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
937
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
938 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
939 ;;; DELETE TO BEGINNING OF WORD
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
940 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
941
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
942 (defun edt-delete-to-beginning-of-word (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
943 "Delete from cursor to beginning of word.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
944 Argument NUM is the number of words to delete."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
945 (interactive "*p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
946 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
947 (let ((beg (point)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
948 (edt-word-backward num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
949 (setq edt-last-deleted-words (buffer-substring (point) beg))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
950 (delete-region beg (point))))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
951
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
952 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
953 ;;; DEL C
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
954 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
955
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
956 (defun edt-delete-character (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
957 "Delete character under cursor.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
958 Argument NUM is the number of characters to delete."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
959 (interactive "*p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
960 (edt-check-prefix num)
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
961 (setq edt-last-deleted-chars
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
962 (buffer-substring (point) (min (point-max) (+ (point) num))))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
963 (delete-region (point) (min (point-max) (+ (point) num))))
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
964
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
965 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
966 ;;; DELETE CHAR
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
967 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
968
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
969 (defun edt-delete-previous-character (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
970 "Delete character in front of cursor.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
971 Argument NUM is the number of characters to delete."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
972 (interactive "*p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
973 (edt-check-prefix num)
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
974 (setq edt-last-deleted-chars
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
975 (buffer-substring (max (point-min) (- (point) num)) (point)))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
976 (delete-region (max (point-min) (- (point) num)) (point)))
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
977
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
978 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
979 ;;; UND L
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
980 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
981
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
982 (defun edt-undelete-line ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
983 "Undelete previous deleted line(s)."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
984 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
985 (point-to-register 1)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
986 (insert edt-last-deleted-lines)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
987 (register-to-point 1))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
988
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
989 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
990 ;;; UND W
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
991 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
992
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
993 (defun edt-undelete-word ()
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
994 "Undelete previous deleted word(s)."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
995 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
996 (point-to-register 1)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
997 (insert edt-last-deleted-words)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
998 (register-to-point 1))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
999
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1000 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1001 ;;; UND C
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1002 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1003
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1004 (defun edt-undelete-character ()
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1005 "Undelete previous deleted character(s)."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1006 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1007 (point-to-register 1)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1008 (insert edt-last-deleted-chars)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1009 (register-to-point 1))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1010
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1011 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1012 ;;; REPLACE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1013 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1014
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1015 (defun edt-replace ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1016 "Replace marked section with last CUT (killed) text."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1017 (interactive "*")
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1018 (if (edt-check-match)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1019 (replace-match (car kill-ring-yank-pointer))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1020 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1021 (exchange-point-and-mark)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1022 (let ((beg (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1023 (exchange-point-and-mark)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1024 (delete-region beg (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1025 (yank))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1026
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1027 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1028 ;;; SUBS
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1029 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1030
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1031 (defun edt-substitute (num)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1032 "Replace the selected region with the contents of the CUT buffer and.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1033 Repeat the most recent FIND command. (The Emacs kill ring is used as
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
1034 the CUT buffer.)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1035 Argument NUM is the repeat count. A positive value indicates the of times
45896
2c6ffe81125c (edt-substitute): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 42686
diff changeset
1036 to repeat the substitution. A negative argument means replace all occurrences
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1037 of the search text."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1038 (interactive "p")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1039 (cond ((or edt-select-mode (edt-check-match))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1040 (while (and (not (= num 0)) (or edt-select-mode (edt-check-match)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1041 (edt-replace)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1042 (edt-find-next)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1043 (setq num (1- num))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1044 (t
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1045 (error "No selection active"))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1046
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1047 (defun edt-set-match nil
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1048 "Set markers at match beginning and end."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1049 ;; Add one to beginning mark so it stays with the first character of
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1050 ;; the string even if characters are added just before the string.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1051 (setq edt-match-beginning-mark (copy-marker (1+ (match-beginning 0))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1052 (setq edt-match-end-mark (copy-marker (match-end 0))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1053
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1054 (defun edt-unset-match nil
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1055 "Unset match beginning and end markers."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1056 (set-marker edt-match-beginning-mark nil)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1057 (set-marker edt-match-end-mark nil))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1058
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1059 (defun edt-match-beginning nil
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1060 "Return the location of the last match beginning."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1061 (1- (marker-position edt-match-beginning-mark)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1062
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1063 (defun edt-match-end nil
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1064 "Return the location of the last match end."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1065 (marker-position edt-match-end-mark))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1066
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1067 (defun edt-check-match nil
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1068 "Return t if point is between edt-match markers.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1069 Otherwise sets the edt-match markers to nil and returns nil."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1070 ;; make sure 1- marker is in this buffer
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1071 ;; 2- point is at or after beginning marker
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1072 ;; 3- point is before ending marker, or in the case of
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1073 ;; zero length regions (like bol, or eol) that the
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1074 ;; beginning, end, and point are equal.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1075 (cond ((and
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1076 (equal (marker-buffer edt-match-beginning-mark) (current-buffer))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1077 (>= (point) (1- (marker-position edt-match-beginning-mark)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1078 (or
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1079 (< (point) (marker-position edt-match-end-mark))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1080 (and (= (1- (marker-position edt-match-beginning-mark))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1081 (marker-position edt-match-end-mark))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1082 (= (marker-position edt-match-end-mark) (point))))) t)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1083 (t
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1084 (edt-unset-match) nil)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1085
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1086 (defun edt-show-match-markers nil
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1087 "Show the values of the match markers."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1088 (interactive)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1089 (if (markerp edt-match-beginning-mark)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1090 (let ((beg (marker-position edt-match-beginning-mark)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1091 (message "(%s, %s) in %s -- current %s in %s"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1092 (if beg (1- beg) nil)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1093 (marker-position edt-match-end-mark)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1094 (marker-buffer edt-match-end-mark)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1095 (point) (current-buffer)))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1096
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1097
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1098 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1099 ;;; ADVANCE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1100 ;;;
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1101
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1102 (defun edt-advance ()
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1103 "Set movement direction forward.
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1104 Also, execute command specified if in Minibuffer."
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1105 (interactive)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1106 (setq edt-direction-string edt-forward-string)
11586
fba74d054979 (edt-advance, edt-backup): Use force-mode-line-update.
Karl Heuer <kwzh@gnu.org>
parents: 11442
diff changeset
1107 (force-mode-line-update)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1108 (if (string-equal " *Minibuf"
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1109 (substring (buffer-name) 0 (min (length (buffer-name)) 9)))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1110 (exit-minibuffer))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1111 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1112
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
1113
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1114 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1115 ;;; BACKUP
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1116 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1117
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1118 (defun edt-backup ()
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1119 "Set movement direction backward.
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1120 Also, execute command specified if in Minibuffer."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1121 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1122 (setq edt-direction-string edt-backward-string)
11586
fba74d054979 (edt-advance, edt-backup): Use force-mode-line-update.
Karl Heuer <kwzh@gnu.org>
parents: 11442
diff changeset
1123 (force-mode-line-update)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1124 (if (string-equal " *Minibuf"
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1125 (substring (buffer-name) 0 (min (length (buffer-name)) 9)))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1126 (exit-minibuffer))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1127 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1128
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1129
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1130 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1131 ;;; CHNGCASE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1132 ;;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1133 ;; This function is based upon Jeff Kowalski's case-flip function in his
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1134 ;; tpu.el.
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1135
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1136 (defun edt-change-case (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1137 "Change the case of specified characters.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1138 If text selection IS active, then characters between the cursor and mark are
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1139 changed. If text selection is NOT active, there are two cases. First, if the
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1140 current direction is ADVANCE, then the prefix number of character(s) under and
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1141 following cursor are changed. Second, if the current direction is BACKUP, then
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1142 the prefix number of character(s) before the cursor are changed. Accepts a
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1143 positive prefix for the number of characters to change, but the prefix is
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1144 ignored if text selection is active.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1145 Argument NUM is the numbers of consecutive characters to change."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1146 (interactive "*p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1147 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1148 (if edt-select-mode
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1149 (let ((end (max (mark) (point)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1150 (point-save (point)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1151 (goto-char (min (point) (mark)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1152 (while (not (eq (point) end))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1153 (funcall (if (<= ?a (following-char))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1154 'upcase-region 'downcase-region)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1155 (point) (1+ (point)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1156 (forward-char 1))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1157 (goto-char point-save))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1158 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1159 (if (string= edt-direction-string edt-backward-string)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1160 (backward-char num))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1161 (while (> num 0)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1162 (funcall (if (<= ?a (following-char))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1163 'upcase-region 'downcase-region)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1164 (point) (1+ (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1165 (forward-char 1)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1166 (setq num (1- num))))))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1167
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1168 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1169 ;;; DEFINE KEY
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1170 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1171
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1172 (defun edt-define-key ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1173 "Assign an interactively-callable function to a specified key sequence.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1174 The current key definition is saved in `edt-last-replaced-key-definition'.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1175 Use `edt-restore-key' to restore last replaced key definition."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1176 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1177 (if edt-x-emacs19-p (setq zmacs-region-stays t))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1178 (let (edt-function
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1179 edt-key-definition)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1180 (setq edt-key-definition
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1181 (read-key-sequence "Press the key to be defined: "))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1182 (if (if edt-gnu-emacs19-p
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1183 (string-equal "\C-m" edt-key-definition)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1184 (string-equal "\C-m" (events-to-keys edt-key-definition)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1185 (message "Key not defined")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1186 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1187 (setq edt-function (read-command "Enter command name: "))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1188 (if (string-equal "" edt-function)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1189 (message "Key not defined")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1190 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1191 (setq edt-last-replaced-key-definition
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1192 (lookup-key (current-global-map) edt-key-definition))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1193 (define-key (current-global-map)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1194 edt-key-definition edt-function)))))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1195
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1196 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1197 ;;; FORM FEED INSERT
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1198 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1199
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1200 (defun edt-form-feed-insert (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1201 "Insert form feed character at cursor position.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1202 Argument NUM is the number of form feeds to insert."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1203 (interactive "*p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1204 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1205 (while (> num 0)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1206 (insert ?\f)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1207 (setq num (1- num))))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1208
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1209 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1210 ;;; TAB INSERT
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1211 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1212
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1213 (defun edt-tab-insert (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1214 "Insert tab character at cursor position.
42686
64274328203b Fix typo.
Pavel Janík <Pavel@Janik.cz>
parents: 42206
diff changeset
1215 Argument NUM is the number of tabs to insert."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1216 (interactive "*p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1217 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1218 (while (> num 0)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1219 (insert ?\t)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1220 (setq num (1- num))))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1221
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1222 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1223 ;;; Check Prefix
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1224 ;;;
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1225
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1226 (defun edt-check-prefix (num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1227 "Indicate error if prefix is not positive.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1228 Argument NUM is the prefix value tested."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1229 (if (<= num 0)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1230 (error "Prefix must be positive")))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
1231
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1232 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1233 ;;; Check Selection
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1234 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1235
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1236 (defun edt-check-selection ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1237 "Indicate error if EDT selection is not active."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1238 (if (not edt-select-mode)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1239 (error "Selection NOT active")))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1240
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1241 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1242 ;;; Scroll Margins
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1243 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1244
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1245 (defun edt-top-check (beg lines)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1246 "Enforce scroll margin at the top of screen.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1247 Argument BEG is the starting line number before cursor was moved.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1248 Argument LINES is the number of lines the cursor moved toward the top."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1249 (let ((margin (/ (* (window-height) edt-top-scroll-margin) 100)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1250 (cond ((< beg margin) (recenter beg))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1251 ((< (- beg lines) margin) (recenter margin)))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1252
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1253 (defun edt-bottom-check (beg lines)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1254 "Enforce scroll margin at the bottom of screen.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1255 Argument BEG is the starting line number before cursor was moved.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1256 Argument LINES is the number of lines the cursor moved toward the bottom."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1257 (let* ((height (window-height))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1258 (margin (+ 1 (/ (* height edt-bottom-scroll-margin) 100)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1259 ;; subtract 1 from height because it includes mode line
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1260 (difference (- height margin 1)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1261 (cond ((> beg difference) (recenter beg))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1262 ((and edt-x-emacs19-p (> (+ beg lines 1) difference))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1263 (recenter (- margin)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1264 ((> (+ beg lines) difference) (recenter (- margin))))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1265
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1266 (defun edt-current-line nil
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1267 "Return the vertical position of point in the selected window.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1268 Top line is 0. Counts each text line only once, even if it wraps."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1269 (+ (count-lines (window-start) (point)) (if (= (current-column) 0) 1 0) -1))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1270
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1271 ;;;###autoload
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1272 (defun edt-set-scroll-margins (top bottom)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1273 "Set scroll margins.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1274 Argument TOP is the top margin in number of lines or percent of window.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1275 Argument BOTTOM is the bottom margin in number of lines or percent of window."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1276 (interactive
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1277 "sEnter top scroll margin (N lines or N%% or RETURN for current value): \
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1278 \nsEnter bottom scroll margin (N lines or N%% or RETURN for current value): ")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1279 ;; set top scroll margin
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1280 (or (string= top "")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1281 (if (string= "%" (substring top -1))
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
1282 (setq edt-top-scroll-margin (string-to-number top))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1283 (setq edt-top-scroll-margin
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
1284 (/ (1- (+ (* (string-to-number top) 100) (window-height)))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1285 (window-height)))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1286 ;; set bottom scroll margin
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1287 (or (string= bottom "")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1288 (if (string= "%" (substring bottom -1))
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
1289 (setq edt-bottom-scroll-margin (string-to-number bottom))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1290 (setq edt-bottom-scroll-margin
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
1291 (/ (1- (+ (* (string-to-number bottom) 100) (window-height)))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1292 (window-height)))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1293 ;; report scroll margin settings if running interactively
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1294 (and (interactive-p)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1295 (message "Scroll margins set. Top = %s%%, Bottom = %s%%"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1296 edt-top-scroll-margin edt-bottom-scroll-margin)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1297
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1298
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1299 ;;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1300 ;;;; ENHANCEMENTS AND ADDITIONS FOR EDT KEYPAD MODE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1301 ;;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1302
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
1303 ;;;
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1304 ;;; Several enhancements and additions to EDT keypad mode commands are
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1305 ;;; provided here. Some of these have been motivated by similar
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1306 ;;; TPU/EVE and EVE-Plus commands. Others are new.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1307
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1308 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1309 ;;; CHANGE DIRECTION
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1310 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1311
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1312 (defun edt-change-direction ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1313 "Toggle movement direction."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1314 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1315 (if (equal edt-direction-string edt-forward-string)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1316 (edt-backup)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1317 (edt-advance)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1318
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1319 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1320 ;;; TOGGLE SELECT
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1321 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1322
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1323 (defun edt-toggle-select ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1324 "Toggle to start (or cancel) text selection."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1325 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1326 (if edt-select-mode
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1327 (edt-reset)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1328 (edt-select)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1329
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1330 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1331 ;;; SENTENCE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1332 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1333
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1334 (defun edt-sentence-forward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1335 "Move forward to start of next sentence.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1336 Argument NUM is the positive number of sentences to move."
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1337 (interactive "p")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1338 (edt-check-prefix num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1339 (let* ((left nil)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1340 (beg (edt-current-line))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1341 (height (window-height))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1342 (top-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1343 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1344 (bottom-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1345 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1346 (top-margin (/ (* height top-percent) 100))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1347 (bottom-up-margin (+ 1 (/ (* height bottom-percent) 100)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1348 (bottom-margin (max beg (- height bottom-up-margin 1)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1349 (top (save-excursion (move-to-window-line top-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1350 (bottom (save-excursion (move-to-window-line bottom-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1351 (far (save-excursion
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1352 (goto-char bottom) (forward-line (- height 2)) (point))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1353 (if (eobp)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1354 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1355 (error "End of buffer"))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1356 (progn
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1357 (forward-sentence num)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1358 (forward-word 1)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1359 (backward-sentence)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1360 (cond((> (point) far)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1361 (setq left (save-excursion (forward-line height)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1362 (if (= 0 left) (recenter top-margin)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1363 (recenter (- left bottom-up-margin))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1364 (t
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1365 (and (> (point) bottom) (recenter bottom-margin)))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1366 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1367
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1368 (defun edt-sentence-backward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1369 "Move backward to next sentence beginning.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1370 Argument NUM is the positive number of sentences to move."
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1371 (interactive "p")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1372 (edt-check-prefix num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1373 (let* ((left nil)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1374 (beg (edt-current-line))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1375 (height (window-height))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1376 (top-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1377 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1378 (bottom-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1379 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1380 (top-margin (/ (* height top-percent) 100))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1381 (bottom-up-margin (+ 1 (/ (* height bottom-percent) 100)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1382 (bottom-margin (max beg (- height bottom-up-margin 1)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1383 (top (save-excursion (move-to-window-line top-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1384 (bottom (save-excursion (move-to-window-line bottom-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1385 (far (save-excursion
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1386 (goto-char bottom) (forward-line (- height 2)) (point))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1387 (if (eobp)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1388 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1389 (error "End of buffer"))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1390 (backward-sentence num))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1391 (and (< (point) top) (recenter (min beg top-margin))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1392 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1393
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1394 (defun edt-sentence (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1395 "Move in current direction to next sentence.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1396 Argument NUM is the positive number of sentences to move."
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1397 (interactive "p")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1398 (if (equal edt-direction-string edt-forward-string)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1399 (edt-sentence-forward num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1400 (edt-sentence-backward num)))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1401
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1402 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1403 ;;; PARAGRAPH
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1404 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1405
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1406 (defun edt-paragraph-forward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1407 "Move forward to beginning of paragraph.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1408 Argument NUM is the positive number of paragraphs to move."
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1409 (interactive "p")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1410 (edt-check-prefix num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1411 (let* ((left nil)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1412 (beg (edt-current-line))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1413 (height (window-height))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1414 (top-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1415 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1416 (bottom-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1417 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1418 (top-margin (/ (* height top-percent) 100))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1419 (bottom-up-margin (+ 1 (/ (* height bottom-percent) 100)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1420 (bottom-margin (max beg (- height bottom-up-margin 1)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1421 (top (save-excursion (move-to-window-line top-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1422 (bottom (save-excursion (move-to-window-line bottom-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1423 (far (save-excursion
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1424 (goto-char bottom) (forward-line (- height 2)) (point))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1425 (while (> num 0)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1426 (forward-paragraph (+ num 1))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1427 (start-of-paragraph-text)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1428 (if (eolp)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1429 (next-line 1))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1430 (setq num (1- num)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1431 (cond((> (point) far)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1432 (setq left (save-excursion (forward-line height)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1433 (if (= 0 left) (recenter top-margin)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1434 (recenter (- left bottom-up-margin))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1435 (t
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1436 (and (> (point) bottom) (recenter bottom-margin)))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1437 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1438
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1439 (defun edt-paragraph-backward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1440 "Move backward to beginning of paragraph.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1441 Argument NUM is the positive number of paragraphs to move."
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1442 (interactive "p")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1443 (edt-check-prefix num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1444 (let* ((left nil)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1445 (beg (edt-current-line))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1446 (height (window-height))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1447 (top-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1448 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1449 (bottom-percent
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1450 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1451 (top-margin (/ (* height top-percent) 100))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1452 (bottom-up-margin (+ 1 (/ (* height bottom-percent) 100)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1453 (bottom-margin (max beg (- height bottom-up-margin 1)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1454 (top (save-excursion (move-to-window-line top-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1455 (bottom (save-excursion (move-to-window-line bottom-margin) (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1456 (far (save-excursion
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1457 (goto-char bottom) (forward-line (- height 2)) (point))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1458 (while (> num 0)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1459 (start-of-paragraph-text)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1460 (setq num (1- num)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1461 (and (< (point) top) (recenter (min beg top-margin))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1462 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1463
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1464 (defun edt-paragraph (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1465 "Move in current direction to next paragraph.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1466 Argument NUM is the positive number of paragraphs to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1467 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1468 (if (equal edt-direction-string edt-forward-string)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1469 (edt-paragraph-forward num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1470 (edt-paragraph-backward num)))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1471
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1472 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1473 ;;; RESTORE KEY
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1474 ;;;
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1475
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1476 (defun edt-restore-key ()
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1477 "Restore last replaced key definition.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1478 Definition is stored in `edt-last-replaced-key-definition'."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1479 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1480 (if edt-x-emacs19-p (setq zmacs-region-stays t))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1481 (if edt-last-replaced-key-definition
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1482 (progn
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1483 (let (edt-key-definition)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1484 (set 'edt-key-definition
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1485 (read-key-sequence "Press the key to be restored: "))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1486 (if (if edt-gnu-emacs19-p
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1487 (string-equal "\C-m" edt-key-definition)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1488 (string-equal "\C-m" (events-to-keys edt-key-definition)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1489 (message "Key not restored")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1490 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1491 (define-key (current-global-map)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1492 edt-key-definition edt-last-replaced-key-definition)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1493 (if edt-gnu-emacs19-p
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1494 (message "Key definition for %s has been restored."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1495 edt-key-definition)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1496 (message "Key definition for %s has been restored."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1497 (events-to-keys edt-key-definition)))))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1498 (error "No replaced key definition to restore!")))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1499
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1500 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1501 ;;; WINDOW TOP
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1502 ;;;
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1503
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1504 (defun edt-window-top ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1505 "Move the cursor to the top of the window."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1506 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1507 (let ((start-column (current-column)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1508 (move-to-window-line 0)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1509 (move-to-column start-column))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1510 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1511
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1512 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1513 ;;; WINDOW BOTTOM
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1514 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1515
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1516 (defun edt-window-bottom ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1517 "Move the cursor to the bottom of the window."
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1518 (interactive)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1519 (let ((start-column (current-column)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1520 (move-to-window-line (- (window-height) 2))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1521 (move-to-column start-column))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1522 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1523
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1524 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1525 ;;; SCROLL WINDOW LINE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1526 ;;;
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1527
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1528 (defun edt-scroll-window-forward-line ()
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1529 "Move window forward one line leaving cursor at position in window."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1530 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1531 (scroll-up 1)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1532 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1533
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1534 (defun edt-scroll-window-backward-line ()
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1535 "Move window backward one line leaving cursor at position in window."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1536 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1537 (scroll-down 1)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1538 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1539
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1540 (defun edt-scroll-line ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1541 "Move window one line in current direction."
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1542 (interactive)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1543 (if (equal edt-direction-string edt-forward-string)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1544 (edt-scroll-window-forward-line)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1545 (edt-scroll-window-backward-line)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1546
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1547 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1548 ;;; SCROLL WINDOW
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1549 ;;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1550 ;;; Scroll a window (less one line) at a time. Leave cursor in center of
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1551 ;;; window.
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1552
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1553 (defun edt-scroll-window-forward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1554 "Scroll forward one window in buffer, less one line.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1555 Argument NUM is the positive number of windows to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1556 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1557 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1558 (scroll-up (- (* (window-height) num) 2))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1559 (edt-line-forward (/ (- (window-height) 1) 2)))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1560
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1561 (defun edt-scroll-window-backward (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1562 "Scroll backward one window in buffer, less one line.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1563 Argument NUM is the positive number of windows to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1564 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1565 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1566 (scroll-down (- (* (window-height) num) 2))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1567 (edt-line-backward (/ (- (window-height) 1) 2)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1568
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1569 (defun edt-scroll-window (num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1570 "Scroll one window in buffer, less one line, in current direction.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1571 Argument NUM is the positive number of windows to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1572 (interactive "p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1573 (if (equal edt-direction-string edt-forward-string)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1574 (edt-scroll-window-forward num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1575 (edt-scroll-window-backward num)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1576
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1577 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1578 ;;; LINE TO BOTTOM OF WINDOW
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1579 ;;;
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1580
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1581 (defun edt-line-to-bottom-of-window ()
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1582 "Move the current line to the bottom of the window."
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1583 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1584 (recenter -1)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1585 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1586
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1587 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1588 ;;; LINE TO TOP OF WINDOW
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1589 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1590
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1591 (defun edt-line-to-top-of-window ()
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1592 "Move the current line to the top of the window."
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1593 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1594 (recenter 0)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1595 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1596
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1597 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1598 ;;; LINE TO MIDDLE OF WINDOW
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1599 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1600
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1601 (defun edt-line-to-middle-of-window ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1602 "Move window so line with cursor is in the middle of the window."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1603 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1604 (recenter '(4))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1605 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1606
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1607 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1608 ;;; GOTO PERCENTAGE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1609 ;;;
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1610
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1611 (defun edt-goto-percentage (num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1612 "Move to specified percentage in buffer from top of buffer.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1613 Argument NUM is the percentage into the buffer to move."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1614 (interactive "NGoto-percentage: ")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1615 (if (or (> num 100) (< num 0))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1616 (error "Percentage %d out of range 0 < percent < 100" num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1617 (goto-char (/ (* (point-max) num) 100)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1618 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1619
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1620 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1621 ;;; FILL REGION
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1622 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1623
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1624 (defun edt-fill-region ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1625 "Fill selected text."
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1626 (interactive "*")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1627 (edt-check-selection)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1628 (fill-region (point) (mark)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1629
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1630 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1631 ;;; INDENT OR FILL REGION
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1632 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1633
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1634 (defun edt-indent-or-fill-region ()
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1635 "Fill region in text modes, indent region in programming language modes."
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1636 (interactive "*")
10872
adc2429d1531 (edt-indent-or-fill-region): Remove ^ from paragraph-start & paragraph-separate.
Boris Goldowsky <boris@gnu.org>
parents: 10689
diff changeset
1637 (if (string= paragraph-start "$\\|\f")
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1638 (indent-region (point) (mark) nil)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1639 (fill-region (point) (mark))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1640
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1641 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1642 ;;; MARK SECTION WISELY
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1643 ;;;
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1644
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1645 (defun edt-mark-section-wisely ()
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1646 "Mark the section in a manner consistent with the `major-mode'.
63941
929eb735e11d (edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 63914
diff changeset
1647 Uses `mark-defun' for Emacs-Lisp and Lisp, and for Fortran,
929eb735e11d (edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 63914
diff changeset
1648 `c-mark-function' for C,
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1649 and `mark-paragraph' for other modes."
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1650 (interactive)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1651 (if edt-select-mode
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1652 (progn
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1653 (edt-reset))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1654 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1655 (cond ((or (eq major-mode 'emacs-lisp-mode)
63941
929eb735e11d (edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 63914
diff changeset
1656 (eq major-mode 'fortran-mode)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1657 (eq major-mode 'lisp-mode))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1658 (mark-defun)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1659 (message "Lisp defun selected"))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1660 ((eq major-mode 'c-mode)
63941
929eb735e11d (edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 63914
diff changeset
1661 (c-mark-function)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1662 (message "C function selected"))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1663 (t (mark-paragraph)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1664 (message "Paragraph selected"))))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1665
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1666 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1667 ;;; COPY
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1668 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1669
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1670 (defun edt-copy ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1671 "Copy selected region to kill ring, but don't delete it!"
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1672 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1673 (edt-check-selection)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1674 (copy-region-as-kill (mark) (point))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1675 (edt-reset)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1676 (message "Selected text COPIED to kill ring"))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1677
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1678 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1679 ;;; CUT or COPY
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1680 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1681
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1682 (defun edt-cut-or-copy ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1683 "Cuts (or copies) selected text to kill ring.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1684 Cuts selected text if `buffer-read-only' is nil.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1685 Copies selected text if `buffer-read-only' is t."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1686 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1687 (if buffer-read-only
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1688 (edt-copy)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1689 (edt-cut)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1690
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1691 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1692 ;;; DELETE ENTIRE LINE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1693 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1694
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1695 (defun edt-delete-entire-line ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1696 "Delete entire line regardless of cursor position in the line."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1697 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1698 (beginning-of-line)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1699 (edt-delete-line 1))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1700
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1701 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1702 ;;; DUPLICATE LINE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1703 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1704
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1705 (defun edt-duplicate-line (num)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1706 "Duplicate the line of text containing the cursor.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1707 Argument NUM is the number of times to duplicate the line."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1708 (interactive "*p")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1709 (edt-check-prefix num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1710 (let ((old-column (current-column))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1711 (count num))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1712 (edt-delete-entire-line)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1713 (edt-undelete-line)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1714 (while (> count 0)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1715 (edt-undelete-line)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1716 (setq count (1- count)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1717 (edt-line-forward num)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1718 (move-to-column old-column)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1719
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1720 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1721 ;;; DUPLICATE WORD
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1722 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1723
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1724 (defun edt-duplicate-word()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1725 "Duplicate word (or rest of word) found directly above cursor, if any."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1726 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1727 (let ((start (point))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1728 (start-column (current-column)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1729 (forward-line -1)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1730 (move-to-column start-column)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1731 (if (and (not (equal start (point)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1732 (not (eolp)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1733 (progn
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1734 (if (and (equal ?\t (preceding-char))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1735 (< start-column (current-column)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1736 (backward-char))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1737 (let ((beg (point)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1738 (edt-one-word-forward)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1739 (setq edt-last-copied-word (buffer-substring beg (point))))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1740 (forward-line)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1741 (move-to-column start-column)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1742 (insert edt-last-copied-word))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1743 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1744 (if (not (equal start (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1745 (forward-line))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1746 (move-to-column start-column)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1747 (error "Nothing to duplicate!")))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1748
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1749 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1750 ;;; KEY NOT ASSIGNED
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1751 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1752
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1753 (defun edt-key-not-assigned ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1754 "Displays message that key has not been assigned to a function."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1755 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1756 (error "Key not assigned"))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1757
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1758 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1759 ;;; TOGGLE CAPITALIZATION OF WORD
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1760 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1761
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1762 (defun edt-toggle-capitalization-of-word ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1763 "Toggle the capitalization of the current word and move forward to next."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1764 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1765 (edt-one-word-forward)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1766 (edt-one-word-backward)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1767 (edt-change-case 1)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1768 (edt-one-word-backward)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1769 (edt-one-word-forward))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1770
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1771 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1772 ;;; ELIMINATE ALL TABS
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1773 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1774
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1775 (defun edt-eliminate-all-tabs ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1776 "Convert all tabs to spaces in the entire buffer."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1777 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1778 (untabify (point-min) (point-max))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1779 (message "TABS converted to SPACES"))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1780
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1781 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1782 ;;; DISPLAY THE TIME
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1783 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1784
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1785 (defun edt-display-the-time ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1786 "Display the current time."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1787 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1788 (if edt-x-emacs19-p (setq zmacs-region-stays t))
63941
929eb735e11d (edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 63914
diff changeset
1789 (message "%s" (current-time-string)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1790
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1791 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1792 ;;; LEARN
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1793 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1794
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1795 (defun edt-learn ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1796 "Learn a sequence of key strokes to bind to a key."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1797 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1798 (if (eq defining-kbd-macro t)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1799 (edt-remember)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1800 (start-kbd-macro nil)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1801
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1802 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1803 ;;; REMEMBER
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1804 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1805
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1806 (defun edt-remember ()
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1807 "Store the sequence of key strokes started by `edt-learn' to a key."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1808 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1809 (if (eq defining-kbd-macro nil)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1810 (error "Nothing to remember!")
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1811 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1812 (end-kbd-macro nil)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1813 (let (edt-key-definition)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1814 (set 'edt-key-definition
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1815 (read-key-sequence "Enter key for binding: "))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1816 (if (if edt-gnu-emacs19-p
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1817 (string-equal "\C-m" edt-key-definition)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1818 (string-equal "\C-m" (events-to-keys edt-key-definition)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1819 (message "Key sequence not remembered")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1820 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1821 (set 'edt-learn-macro-count (+ edt-learn-macro-count 1))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1822 (setq edt-last-replaced-key-definition
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1823 (lookup-key (current-global-map)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1824 edt-key-definition))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1825 (define-key (current-global-map) edt-key-definition
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1826 (name-last-kbd-macro
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1827 (intern (concat "last-learned-sequence-"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1828 (int-to-string edt-learn-macro-count)))))))))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1829
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1830 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1831 ;;; EXIT
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1832 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1833
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1834 (defun edt-exit ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1835 "Save current buffer, ask to save other buffers, and then exit Emacs."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1836 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1837 (save-buffer)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1838 (save-buffers-kill-emacs))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1839
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
1840 ;;;
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1841 ;;; QUIT
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1842 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1843
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1844 (defun edt-quit ()
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1845 "Quit Emacs without saving buffer modifications.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1846 Warn user that modifications will be lost."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1847 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1848 (let ((list (buffer-list))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1849 (working t))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1850 (while (and list working)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1851 (let ((buffer (car list)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1852 (if (and (buffer-file-name buffer) (buffer-modified-p buffer))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1853 (if (edt-y-or-n-p
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1854 "Modifications will not be saved, continue quitting? ")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1855 (kill-emacs)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1856 (setq working nil)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1857 (setq list (cdr list))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
1858 (if working (kill-emacs))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1859
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
1860 ;;;
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1861 ;;; SPLIT WINDOW
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1862 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1863
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1864 (defun edt-split-window ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1865 "Split current window and place cursor in the new window."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1866 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1867 (split-window)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1868 (other-window 1)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1869 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1870
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1871 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1872 ;;; COPY RECTANGLE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1873 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1874
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1875 (defun edt-copy-rectangle ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1876 "Copy a rectangle of text between mark and cursor to register."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1877 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1878 (edt-check-selection)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1879 (copy-rectangle-to-register 3 (region-beginning) (region-end) nil)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1880 (edt-reset)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1881 (message "Selected rectangle COPIED to register"))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1882
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1883 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1884 ;;; CUT RECTANGLE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1885 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1886
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1887 (defun edt-cut-rectangle-overstrike-mode ()
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1888 "Cut a rectangle of text between mark and cursor to register.
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1889 Replace cut characters with spaces and moving cursor back to
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1890 upper left corner."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1891 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1892 (edt-check-selection)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1893 (setq edt-rect-start-point (region-beginning))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1894 (picture-clear-rectangle-to-register (region-beginning) (region-end) 3)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1895 (set-window-point (get-buffer-window (window-buffer)) edt-rect-start-point)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1896 (message "Selected rectangle CUT to register"))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1897
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1898 (defun edt-cut-rectangle-insert-mode ()
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1899 "Cut a rectangle of text between mark and cursor to register.
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1900 Move cursor back to upper left corner."
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1901 (interactive "*")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1902 (edt-check-selection)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1903 (setq edt-rect-start-point (region-beginning))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1904 (picture-clear-rectangle-to-register (region-beginning) (region-end) 3 t)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1905 (fixup-whitespace)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1906 (set-window-point (get-buffer-window (window-buffer)) edt-rect-start-point)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1907 (message "Selected rectangle CUT to register"))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1908
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1909 (defun edt-cut-rectangle ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1910 "Cut a rectangular region of text to register.
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
1911 If overwrite mode is active, cut text is replaced with whitespace."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1912 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1913 (if overwrite-mode
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1914 (edt-cut-rectangle-overstrike-mode)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1915 (edt-cut-rectangle-insert-mode)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1916
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1917 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1918 ;;; PASTE RECTANGLE
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1919 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1920
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1921 (defun edt-paste-rectangle-overstrike-mode ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1922 "Paste a rectangular region of text from register, replacing text at cursor."
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1923 (interactive "*")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1924 (picture-yank-rectangle-from-register 3))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1925
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1926 (defun edt-paste-rectangle-insert-mode ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1927 "Paste previously deleted rectangular region, inserting text at cursor."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1928 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1929 (picture-yank-rectangle-from-register 3 t))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1930
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1931 (defun edt-paste-rectangle ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1932 "Paste a rectangular region of text.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1933 If overwrite mode is active, existing text is replace with text from register."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1934 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1935 (if overwrite-mode
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1936 (edt-paste-rectangle-overstrike-mode)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1937 (edt-paste-rectangle-insert-mode)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1938
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1939 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1940 ;;; DOWNCASE REGION
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1941 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1942
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1943 (defun edt-lowercase ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1944 "Change specified characters to lower case.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1945 If text selection IS active, then characters between the cursor and
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1946 mark are changed. If text selection is NOT active, there are two
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1947 situations. If the current direction is ADVANCE, then the word under
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1948 the cursor is changed to lower case and the cursor is moved to rest at
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1949 the beginning of the next word. If the current direction is BACKUP,
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1950 the word prior to the word under the cursor is changed to lower case
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1951 and the cursor is left to rest at the beginning of that word."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1952 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1953 (if edt-select-mode
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1954 (progn
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1955 (downcase-region (mark) (point)))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1956 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1957 ;; Move to beginning of current word.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1958 (if (and
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1959 (not (bobp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1960 (not (eobp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1961 (not (bolp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1962 (not (eolp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1963 (not (eq ?\ (char-syntax (preceding-char))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1964 (not (memq (preceding-char) edt-word-entities))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1965 (not (memq (following-char) edt-word-entities)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1966 (edt-one-word-backward))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1967 (if (equal edt-direction-string edt-backward-string)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1968 (edt-one-word-backward))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1969 (let ((beg (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1970 (edt-one-word-forward)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1971 (downcase-region beg (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1972 (if (equal edt-direction-string edt-backward-string)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1973 (edt-one-word-backward)))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1974
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1975 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1976 ;;; UPCASE REGION
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1977 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1978
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1979 (defun edt-uppercase ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1980 "Change specified characters to upper case.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1981 If text selection IS active, then characters between the cursor and
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1982 mark are changed. If text selection is NOT active, there are two
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1983 situations. If the current direction is ADVANCE, then the word under
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1984 the cursor is changed to upper case and the cursor is moved to rest at
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1985 the beginning of the next word. If the current direction is BACKUP,
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1986 the word prior to the word under the cursor is changed to upper case
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1987 and the cursor is left to rest at the beginning of that word."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1988 (interactive "*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1989 (if edt-select-mode
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1990 (progn
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
1991 (upcase-region (mark) (point)))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1992 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1993 ;; Move to beginning of current word.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1994 (if (and
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1995 (not (bobp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1996 (not (eobp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1997 (not (bolp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1998 (not (eolp))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
1999 (not (eq ?\ (char-syntax (preceding-char))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2000 (not (memq (preceding-char) edt-word-entities))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2001 (not (memq (following-char) edt-word-entities)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2002 (edt-one-word-backward))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2003 (if (equal edt-direction-string edt-backward-string)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2004 (edt-one-word-backward))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2005 (let ((beg (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2006 (edt-one-word-forward)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2007 (upcase-region beg (point)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2008 (if (equal edt-direction-string edt-backward-string)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2009 (edt-one-word-backward)))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2010
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2011 ;;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2012 ;;; Functions used in loading LK-201 key mapping file.
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2013 ;;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2014 (defvar edt-last-answer nil
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2015 "Most recent response to `edt-y-or-n-p'.")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2016
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2017 (defun edt-y-or-n-p (prompt &optional not-yes)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2018 "Prompt for a y or n answer with positive default.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2019 Like Emacs `y-or-n-p', also accepts space as y and DEL as n.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2020 Argument PROMPT is the prompt string.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2021 Optional argument NOT-YES changes the default to negative."
14346
4a609420dfc1 (edt-display-the-time): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
2022 (message "%s[%s]" prompt (if not-yes "n" "y"))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2023 (let ((doit t))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2024 (while doit
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2025 (setq doit nil)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2026 (let ((ans (read-char)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2027 (cond ((or (= ans ?y) (= ans ?Y) (= ans ?\ ))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2028 (setq edt-last-answer t))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2029 ((or (= ans ?n) (= ans ?N) (= ans ?\C-?))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2030 (setq edt-last-answer nil))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2031 ((= ans ?\r) (setq edt-last-answer (not not-yes)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2032 (t
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2033 (setq doit t) (beep)
14346
4a609420dfc1 (edt-display-the-time): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
2034 (message "Please answer y or n. %s[%s]"
4a609420dfc1 (edt-display-the-time): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
2035 prompt (if not-yes "n" "y")))))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2036 edt-last-answer)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2037
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2038 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2039 ;;; INITIALIZATION COMMANDS.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2040 ;;;
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2041
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2042 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2043 ;;; Function used to load LK-201 key mapping file generated by edt-mapper.el.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2044 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2045 (defun edt-load-keys (file)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2046 "Load the LK-201 key mapping FILE generated by edt-mapper.el.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2047 If FILE is nil, which is the normal case, try to load a default file.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2048 The default file names are based upon the window system, terminal
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2049 type, and version of Emacs in use: GNU Emacs or XEmacs (aka Lucid
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2050 Emacs). If a default file does not exist, ask user if one should be
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2051 created."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2052 (interactive "fKey definition file: ")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2053 (cond (file
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2054 (setq file (expand-file-name file)))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2055 (edt-keys-file
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2056 (setq file (expand-file-name edt-keys-file)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2057 (t
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2058 (setq file
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2059 (expand-file-name
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2060 (concat
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2061 "~/.edt-" edt-emacs-variant
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2062 (if edt-term (concat "-" edt-term))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2063 (if edt-xserver (concat "-" edt-xserver))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2064 (if edt-window-system
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2065 (concat "-" (upcase (symbol-name edt-window-system))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2066 "-keys")))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2067 (cond ((file-readable-p file)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2068 (load-file file))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2069 (t
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2070 (switch-to-buffer "*scratch*")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2071 (erase-buffer)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2072 (insert "
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2073
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2074 Ack!! You're running the Enhanced EDT Emulation without loading an
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2075 EDT key mapping file. To create an EDT key mapping file, run the
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2076 edt-mapper.el program. It is safest to run it from an Emacs loaded
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2077 without any of your own customizations found in your .emacs file, etc.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2078 The reason for this is that some user customizations confuse edt-mapper.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2079 You can do this by quitting Emacs and then invoking Emacs again as
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2080 follows:
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2081
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2082 emacs -q -l edt-mapper.el
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2083
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2084 [NOTE: If you do nothing out of the ordinary in your .emacs file, and
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2085 the search for edt-mapper.el is successful, you can try running it now.]
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2086
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2087 The file edt-mapper.el includes these same directions on how to
16426
0db426a80aff (edt-load-xkeys): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 14346
diff changeset
2088 use it! Perhaps it's lying around here someplace. \n ")
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2089 (let ((file "edt-mapper.el")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2090 (found nil)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2091 (path nil)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2092 (search-list (append (list (expand-file-name ".")) load-path)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2093 (while (and (not found) search-list)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2094 (setq path (concat (car search-list)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2095 (if (string-match "/$" (car search-list)) "" "/")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2096 file))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2097 (if (and (file-exists-p path) (not (file-directory-p path)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2098 (setq found t))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2099 (setq search-list (cdr search-list)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2100 (cond (found
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2101 (insert (format
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2102 "Ah yes, there it is, in \n\n %s \n\n" path))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2103 (if (edt-y-or-n-p "Do you want to run it now? ")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2104 (load-file path)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2105 (error "EDT Emulation not configured")))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2106 (t
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2107 (insert "Nope, I can't seem to find it. :-(\n\n")
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2108 (sit-for 20)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2109 (error "EDT Emulation not configured")))))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2110
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2111 ;;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2112 ;;; Turning the EDT Emulation on and off.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2113 ;;;
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2114
258
1e0bc00dca7a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 199
diff changeset
2115 ;;;###autoload
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2116 (defun edt-emulation-on ()
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2117 "Turn on EDT Emulation."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2118 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2119 ;; If using pc window system (MS-DOS), set terminal type to pc.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2120 ;; If not a window system (GNU) or a tty window system (XEmacs),
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2121 ;; get terminal type.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2122 (if (eq edt-window-system 'pc)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2123 (setq edt-term "pc")
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2124 (if (or (not edt-window-system) (eq edt-window-system 'tty))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2125 (setq edt-term (getenv "TERM"))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2126 ;; Look for for terminal configuration file for this terminal type.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2127 ;; Otherwise, load the user's custom configuration file.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2128 (if (or (not edt-window-system) (memq edt-window-system '(pc tty)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2129 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2130 ;; Load terminal-specific configuration file, if it exists for this
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2131 ;; terminal type. Note: All DEC VT series terminals are supported
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2132 ;; by the same terminal configuration file: edt-vt100.el.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2133 (if (string-equal "vt" (substring edt-term 0 (min (length edt-term) 2)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2134 (setq edt-term "vt100"))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2135 (let ((term edt-term)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2136 hyphend)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2137 (while (and term
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2138 (not (load (concat "edt-" term) t t)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2139 ;; Strip off last hyphen and what follows, then try again
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2140 (if (setq hyphend (string-match "[-_][^-_]+$" term))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2141 (setq term (substring term 0 hyphend))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2142 (setq term nil)))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2143 ;; If no terminal-specific configuration file exists, load user's
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2144 ;; custom EDT terminal configuration file.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2145 ;; If this is a pc running MS-DOS, then custom configuration files
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2146 ;; are not supported. So, if the file is missing, issue an error
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2147 ;; message.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2148 (if (null term)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2149 (if (equal edt-term "pc")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2150 (error "Unable to find EDT terminal specific file edt-pc.el")
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2151 (edt-load-keys nil))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2152 (setq edt-term term))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2153 (edt-load-keys nil))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2154 ;; Make highlighting of selected text work properly for EDT commands.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2155 (if edt-gnu-emacs19-p
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2156 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2157 (setq edt-orig-transient-mark-mode transient-mark-mode)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2158 (add-hook 'activate-mark-hook
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2159 (function
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2160 (lambda ()
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2161 (edt-select-mode t))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2162 (add-hook 'deactivate-mark-hook
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2163 (function
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2164 (lambda ()
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2165 (edt-select-mode nil)))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2166 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2167 (add-hook 'zmacs-activate-region-hook
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2168 (function
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2169 (lambda ()
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2170 (edt-select-mode t))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2171 (add-hook 'zmacs-deactivate-region-hook
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2172 (function
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2173 (lambda ()
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2174 (edt-select-mode nil))))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2175 ;; Load user's EDT custom key bindings file, if it exists.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2176 ;; Otherwise, use the default bindings.
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2177 (if (load "edt-user" t t)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2178 (edt-user-emulation-setup)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2179 (edt-default-emulation-setup)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2180
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2181 (defun edt-emulation-off()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2182 "Select original global key bindings, disabling EDT Emulation."
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2183 (interactive)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2184 (use-global-map global-map)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2185 (if (not edt-keep-current-page-delimiter)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2186 (setq page-delimiter edt-orig-page-delimiter))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2187 (setq edt-direction-string "")
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2188 (setq edt-select-mode-current nil)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2189 (edt-reset)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2190 (force-mode-line-update t)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2191 (if edt-gnu-emacs19-p
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2192 (setq transient-mark-mode edt-orig-transient-mark-mode))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2193 (message "Original key bindings restored; EDT Emulation disabled"))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2194
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2195 (defun edt-default-emulation-setup (&optional user-setup)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2196 "Setup emulation of DEC's EDT editor.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2197 Optional argument USER-SETUP non-nil means called from function
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2198 `edt-user-emulation-setup'."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2199 ;; Setup default EDT global map by copying global map bindings.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2200 ;; This preserves ESC and C-x prefix bindings and other bindings we
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2201 ;; wish to retain in EDT emulation mode keymaps. It also permits
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2202 ;; customization of these bindings in the EDT global maps without
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2203 ;; disturbing the original bindings in global-map.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2204 (fset 'edt-default-ESC-prefix (copy-keymap 'ESC-prefix))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2205 (setq edt-default-global-map (copy-keymap (current-global-map)))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2206 (if edt-gnu-emacs19-p
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2207 (define-key edt-default-global-map "\e" 'edt-default-ESC-prefix)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2208 (define-key edt-default-global-map [escape] 'edt-default-ESC-prefix))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2209 (define-prefix-command 'edt-default-gold-map)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2210 (edt-setup-default-bindings)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2211 ;; If terminal has additional function keys, the terminal-specific
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2212 ;; initialization file can assign bindings to them via the optional
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2213 ;; function edt-setup-extra-default-bindings.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2214 (if (fboundp 'edt-setup-extra-default-bindings)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2215 (edt-setup-extra-default-bindings))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2216 ;; Variable needed by edt-learn.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2217 (setq edt-learn-macro-count 0)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2218 ;; Display EDT text selection active within the mode line
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2219 (or (assq 'edt-select-mode minor-mode-alist)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2220 (setq minor-mode-alist
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2221 (cons '(edt-select-mode edt-select-mode) minor-mode-alist)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2222 ;; Display EDT direction of motion within the mode line
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2223 (or (assq 'edt-direction-string minor-mode-alist)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2224 (setq minor-mode-alist
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2225 (cons
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2226 '(edt-direction-string edt-direction-string) minor-mode-alist)))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2227 (if user-setup
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2228 (progn
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2229 (setq edt-user-map-configured t)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2230 (fset 'edt-emulation-on (symbol-function 'edt-select-user-global-map)))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2231 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2232 (fset 'edt-emulation-on (symbol-function 'edt-select-default-global-map))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2233 (edt-select-default-global-map))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2234
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2235 (defun edt-user-emulation-setup ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2236 "Setup user custom emulation of DEC's EDT editor."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2237 ;; Initialize EDT default bindings.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2238 (edt-default-emulation-setup t)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2239 ;; Setup user EDT global map by copying default EDT global map bindings.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2240 (fset 'edt-user-ESC-prefix (copy-keymap 'edt-default-ESC-prefix))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2241 (setq edt-user-global-map (copy-keymap edt-default-global-map))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2242 (if edt-gnu-emacs19-p
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2243 (define-key edt-user-global-map "\e" 'edt-user-ESC-prefix)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2244 (define-key edt-user-global-map [escape] 'edt-user-ESC-prefix))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2245 ;; If terminal has additional function keys, the user's initialization
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2246 ;; file can assign bindings to them via the optional
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2247 ;; function edt-setup-extra-default-bindings.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2248 (define-prefix-command 'edt-user-gold-map)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2249 (fset 'edt-user-gold-map (copy-keymap 'edt-default-gold-map))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2250 (edt-setup-user-bindings)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2251 (edt-select-user-global-map))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2252
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2253 (defun edt-select-default-global-map()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2254 "Select default EDT emulation key bindings."
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2255 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2256 (if edt-gnu-emacs19-p
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2257 (transient-mark-mode 1))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2258 (use-global-map edt-default-global-map)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2259 (if (not edt-keep-current-page-delimiter)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2260 (progn
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2261 (setq edt-orig-page-delimiter page-delimiter)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2262 (setq page-delimiter "\f")))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2263 (setq edt-default-map-active t)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2264 (edt-advance)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2265 (setq edt-select-mode-current 'edt-select-mode-string)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2266 (edt-reset)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2267 (message "Default EDT keymap active"))
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2268
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2269 (defun edt-select-user-global-map()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2270 "Select user EDT emulation custom key bindings."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2271 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2272 (if edt-user-map-configured
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2273 (progn
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2274 (if edt-gnu-emacs19-p
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2275 (transient-mark-mode 1))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2276 (use-global-map edt-user-global-map)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2277 (if (not edt-keep-current-page-delimiter)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2278 (progn
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2279 (setq edt-orig-page-delimiter page-delimiter)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2280 (setq page-delimiter "\f")))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2281 (setq edt-default-map-active nil)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2282 (edt-advance)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2283 (setq edt-select-mode-current 'edt-select-mode-string)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2284 (edt-reset)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2285 (message "User EDT custom keymap active"))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2286 (error "User EDT custom keymap NOT configured!")))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2287
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2288 (defun edt-switch-global-maps ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2289 "Toggle between default EDT keymap and user EDT keymap."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2290 (interactive)
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2291 (if edt-default-map-active
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2292 (edt-select-user-global-map)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2293 (edt-select-default-global-map)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2294
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2295 ;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2296 ;; Functions used to set up DEFAULT bindings to EDT emulation functions.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2297 ;;
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2298
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2299 (defun edt-bind-function-key-default (function-key binding gold-binding)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2300 "Binds LK-201 function keys to default bindings in the EDT Emulator.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2301 Argument FUNCTION-KEY is the name of the function key or keypad function key.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2302 Argument BINDING is the Emacs function to be bound to <KEY>.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2303 Argument GOLD-BINDING is the Emacs function to be bound to GOLD <KEY>."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2304 (let ((key (cdr (assoc function-key *EDT-keys*))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2305 (if (and key (not (equal key "")))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2306 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2307 (define-key edt-default-global-map key binding)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2308 (define-key 'edt-default-gold-map key gold-binding)))))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2309
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2310 (defun edt-bind-key-default (key binding)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2311 "Bind key sequences to default bindings in the EDT Emulator.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2312 Argument KEY is the name of a standard key or a function key.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2313 Argument BINDING is the Emacs function to be bound to <KEY>."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2314 (define-key edt-default-global-map key binding))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2315
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2316 (defun edt-bind-gold-key-default (key gold-binding)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2317 "Binds <GOLD> key sequences to default bindings in the EDT Emulator.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2318 Argument KEY is the name of a standard key or a function key.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2319 Argument GOLD-BINDING is the Emacs function to be bound to GOLD <KEY>."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2320 (define-key 'edt-default-gold-map key gold-binding))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2321
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2322 ;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2323 ;; Functions used to set up USER CUSTOM bindings to EDT emulation functions.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2324 ;;
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2325 (defun edt-bind-function-key (function-key binding gold-binding)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2326 "Binds LK-201 function keys to custom bindings in the EDT Emulator.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2327 Argument FUNCTION-KEY is the name of the function key or keypad function key.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2328 Argument BINDING is the Emacs function to be bound to <KEY>.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2329 Argument GOLD-BINDING is the Emacs function to be bound to GOLD <KEY>."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2330 (let ((key (cdr (assoc function-key *EDT-keys*))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2331 (if (and key (not (equal key "")))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2332 (progn
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2333 (define-key edt-user-global-map key binding)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2334 (define-key 'edt-user-gold-map key gold-binding)))))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2335
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2336 (defun edt-bind-key (key binding)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2337 "Bind standard key sequences to custom bindings in the EDT Emulator.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2338 Argument KEY is the name of a key. It can be a standard key or a function key.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2339 Argument BINDING is the Emacs function to be bound to <KEY>."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2340 (define-key edt-user-global-map key binding))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2341
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2342 ;; For backward compatibility to existing edt-user.el files.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2343 (fset 'edt-bind-standard-key (symbol-function 'edt-bind-key))
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2344
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2345 (defun edt-bind-gold-key (key gold-binding)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2346 "Binds <GOLD> standard key sequences to custom bindings in the EDT Emulator.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2347 Argument KEY is the name of a standard key or a function key.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2348 Argument GOLD-BINDING is the Emacs function to be bound to GOLD <KEY>."
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2349 (define-key 'edt-user-gold-map key gold-binding))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2350
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2351 (defun edt-setup-default-bindings ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2352 "Assigns default EDT Emulation keyboard bindings."
3479
7cda082508c9 (GOLD-prefix): Define *after* GOLD-map.
Richard M. Stallman <rms@gnu.org>
parents: 2570
diff changeset
2353
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2354 ;; Function Key Bindings: Regular and GOLD.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2355
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2356 ;; VT100/VT200/VT300 PF1 (GOLD), PF2, PF3, PF4 Keys
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2357 (edt-bind-function-key-default "PF1"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2358 'edt-default-gold-map 'edt-mark-section-wisely)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2359 (edt-bind-function-key-default "PF2"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2360 'edt-electric-keypad-help 'describe-function)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2361 (edt-bind-function-key-default "PF3" 'edt-find-next 'edt-find)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2362 (edt-bind-function-key-default "PF4" 'edt-delete-line 'edt-undelete-line)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2363
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2364 ;; VT100/VT200/VT300 Arrow Keys
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2365 (edt-bind-function-key-default "UP" 'edt-previous-line 'edt-window-top)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2366 (edt-bind-function-key-default "DOWN" 'edt-next-line 'edt-window-bottom)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2367 (edt-bind-function-key-default "LEFT" 'backward-char 'edt-sentence-backward)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2368 (edt-bind-function-key-default "RIGHT" 'forward-char 'edt-sentence-forward)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2369
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2370 ;; VT100/VT200/VT300 Keypad Keys
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2371 (edt-bind-function-key-default "KP0" 'edt-line 'open-line)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2372 (edt-bind-function-key-default "KP1" 'edt-word 'edt-change-case)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2373 (edt-bind-function-key-default "KP2"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2374 'edt-end-of-line 'edt-delete-to-end-of-line)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2375 (edt-bind-function-key-default "KP3" 'edt-character 'quoted-insert)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2376 (edt-bind-function-key-default "KP4" 'edt-advance 'edt-bottom)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2377 (edt-bind-function-key-default "KP5" 'edt-backup 'edt-top)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2378 (edt-bind-function-key-default "KP6" 'edt-cut 'yank)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2379 (edt-bind-function-key-default "KP7" 'edt-page 'execute-extended-command)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2380 (edt-bind-function-key-default "KP8" 'edt-sect 'edt-fill-region)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2381 (edt-bind-function-key-default "KP9" 'edt-append 'edt-replace)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2382 (edt-bind-function-key-default "KP-" 'edt-delete-word 'edt-undelete-word)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2383 (edt-bind-function-key-default "KP,"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2384 'edt-delete-character 'edt-undelete-character)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2385 (edt-bind-function-key-default "KPP" 'edt-select 'edt-reset)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2386 (edt-bind-function-key-default "KPE" 'other-window 'edt-substitute)
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2387
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2388 ;; VT200/VT300 Function Keys
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2389 ;; (F1 through F5, on the VT220, are not programmable, so we skip
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2390 ;; making default bindings to those keys.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2391 (edt-bind-function-key-default "FIND" 'edt-find-next 'edt-find)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2392 (edt-bind-function-key-default "INSERT" 'yank 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2393 (edt-bind-function-key-default "REMOVE" 'edt-cut 'edt-copy)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2394 (edt-bind-function-key-default "SELECT"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2395 'edt-toggle-select 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2396 (edt-bind-function-key-default "NEXT"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2397 'edt-sect-forward 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2398 (edt-bind-function-key-default "PREVIOUS"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2399 'edt-sect-backward 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2400 (edt-bind-function-key-default "F6"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2401 'edt-key-not-assigned 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2402 (edt-bind-function-key-default "F7"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2403 'edt-copy-rectangle 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2404 (edt-bind-function-key-default "F8"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2405 'edt-cut-rectangle-overstrike-mode 'edt-paste-rectangle-overstrike-mode)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2406 (edt-bind-function-key-default "F9"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2407 'edt-cut-rectangle-insert-mode 'edt-paste-rectangle-insert-mode)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2408 (edt-bind-function-key-default "F10" 'edt-cut-rectangle 'edt-paste-rectangle)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2409 ;; Under X, the F11 key can be bound. If using a VT-200 or higher terminal,
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2410 ;; the default emacs terminal support causes the VT F11 key to seem as if it
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2411 ;; is an ESC key when in emacs.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2412 (edt-bind-function-key-default "F11"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2413 'edt-key-not-assigned 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2414 (edt-bind-function-key-default "F12"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2415 'edt-beginning-of-line 'delete-other-windows) ;BS
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2416 (edt-bind-function-key-default "F13"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2417 'edt-delete-to-beginning-of-word 'edt-key-not-assigned) ;LF
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2418 (edt-bind-function-key-default "F14"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2419 'edt-key-not-assigned 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2420 (edt-bind-function-key-default "HELP"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2421 'edt-electric-keypad-help 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2422 (edt-bind-function-key-default "DO"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2423 'execute-extended-command 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2424 (edt-bind-function-key-default "F17"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2425 'edt-key-not-assigned 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2426 (edt-bind-function-key-default "F18"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2427 'edt-key-not-assigned 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2428 (edt-bind-function-key-default "F19"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2429 'edt-key-not-assigned 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2430 (edt-bind-function-key-default "F20"
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2431 'edt-key-not-assigned 'edt-key-not-assigned)
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2432
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2433 ;; Control key bindings: Regular and GOLD
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2434 ;;
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2435 ;; Standard EDT control key bindings conflict with standard Emacs
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2436 ;; control key bindings. Normally, the standard Emacs control key
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2437 ;; bindings are left unchanged in the default EDT mode. However, if
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2438 ;; the variable edt-use-EDT-control-key-bindings is set to true
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2439 ;; before invoking edt-emulation-on for the first time, then the
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2440 ;; standard EDT bindings (with some enhancements) as defined here are
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2441 ;; used, instead.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2442 (if edt-use-EDT-control-key-bindings
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2443 (progn
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2444 (edt-bind-key-default "\C-a" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2445 (edt-bind-key-default "\C-b" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2446 ;; Leave binding of C-c to an Emacs prefix key.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2447 (edt-bind-key-default "\C-d" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2448 (edt-bind-key-default "\C-e" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2449 (edt-bind-key-default "\C-f" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2450 ;; Leave binding of C-g to the Emacs keyboard-quit
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2451 (edt-bind-key-default "\C-h" 'edt-beginning-of-line)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2452 (edt-bind-key-default "\C-i" 'edt-tab-insert)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2453 (edt-bind-key-default "\C-j" 'edt-delete-to-beginning-of-word)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2454 (edt-bind-key-default "\C-k" 'edt-define-key)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2455 (edt-bind-gold-key-default "\C-k" 'edt-restore-key)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2456 (edt-bind-key-default "\C-l" 'edt-form-feed-insert)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2457 ;; Leave binding of C-m to newline.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2458 (edt-bind-key-default "\C-n" 'edt-set-screen-width-80)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2459 (edt-bind-key-default "\C-o" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2460 (edt-bind-key-default "\C-p" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2461 (edt-bind-key-default "\C-q" 'edt-key-not-assigned)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2462 ;; Leave binding of C-r to isearch-backward.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2463 ;; Leave binding of C-s to isearch-forward.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2464 (edt-bind-key-default "\C-t" 'edt-display-the-time)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2465 (edt-bind-key-default "\C-u" 'edt-delete-to-beginning-of-line)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2466 (edt-bind-key-default "\C-v" 'redraw-display)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2467 (edt-bind-key-default "\C-w" 'edt-set-screen-width-132)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2468 ;; Leave binding of C-x as original prefix key.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2469 (edt-bind-key-default "\C-y" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2470 ;; Leave binding of C-z to suspend-emacs.
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2471 )
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2472 )
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2473
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2474 ;; GOLD bindings for a few keys.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2475 (edt-bind-gold-key-default "\C-g" 'keyboard-quit); Just in case.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2476 (edt-bind-gold-key-default "\C-h" 'help-for-help); Just in case.
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2477 (edt-bind-gold-key-default [f1] 'help-for-help)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2478 (edt-bind-gold-key-default [help] 'help-for-help)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2479 (edt-bind-gold-key-default "\C-\\" 'split-window-vertically)
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2480
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2481 ;; GOLD bindings for regular keys.
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2482 (edt-bind-gold-key-default "a" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2483 (edt-bind-gold-key-default "A" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2484 (edt-bind-gold-key-default "b" 'buffer-menu)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2485 (edt-bind-gold-key-default "B" 'buffer-menu)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2486 (edt-bind-gold-key-default "c" 'compile)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2487 (edt-bind-gold-key-default "C" 'compile)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2488 (edt-bind-gold-key-default "d" 'delete-window)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2489 (edt-bind-gold-key-default "D" 'delete-window)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2490 (edt-bind-gold-key-default "e" 'edt-exit)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2491 (edt-bind-gold-key-default "E" 'edt-exit)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2492 (edt-bind-gold-key-default "f" 'find-file)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2493 (edt-bind-gold-key-default "F" 'find-file)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2494 (edt-bind-gold-key-default "g" 'find-file-other-window)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2495 (edt-bind-gold-key-default "G" 'find-file-other-window)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2496 (edt-bind-gold-key-default "h" 'edt-electric-keypad-help)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2497 (edt-bind-gold-key-default "H" 'edt-electric-keypad-help)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2498 (edt-bind-gold-key-default "i" 'insert-file)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2499 (edt-bind-gold-key-default "I" 'insert-file)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2500 (edt-bind-gold-key-default "j" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2501 (edt-bind-gold-key-default "J" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2502 (edt-bind-gold-key-default "k" 'edt-toggle-capitalization-of-word)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2503 (edt-bind-gold-key-default "K" 'edt-toggle-capitalization-of-word)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2504 (edt-bind-gold-key-default "l" 'edt-lowercase)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2505 (edt-bind-gold-key-default "L" 'edt-lowercase)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2506 (edt-bind-gold-key-default "m" 'save-some-buffers)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2507 (edt-bind-gold-key-default "M" 'save-some-buffers)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2508 (edt-bind-gold-key-default "n" 'next-error)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2509 (edt-bind-gold-key-default "N" 'next-error)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2510 (edt-bind-gold-key-default "o" 'switch-to-buffer-other-window)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2511 (edt-bind-gold-key-default "O" 'switch-to-buffer-other-window)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2512 (edt-bind-gold-key-default "p" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2513 (edt-bind-gold-key-default "P" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2514 (edt-bind-gold-key-default "q" 'edt-quit)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2515 (edt-bind-gold-key-default "Q" 'edt-quit)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2516 (edt-bind-gold-key-default "r" 'revert-buffer)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2517 (edt-bind-gold-key-default "R" 'revert-buffer)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2518 (edt-bind-gold-key-default "s" 'save-buffer)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2519 (edt-bind-gold-key-default "S" 'save-buffer)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2520 (edt-bind-gold-key-default "t" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2521 (edt-bind-gold-key-default "T" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2522 (edt-bind-gold-key-default "u" 'edt-uppercase)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2523 (edt-bind-gold-key-default "U" 'edt-uppercase)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2524 (edt-bind-gold-key-default "v" 'find-file-other-window)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2525 (edt-bind-gold-key-default "V" 'find-file-other-window)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2526 (edt-bind-gold-key-default "w" 'write-file)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2527 (edt-bind-gold-key-default "W" 'write-file)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2528 (edt-bind-gold-key-default "x" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2529 (edt-bind-gold-key-default "X" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2530 (edt-bind-gold-key-default "y" 'edt-emulation-off)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2531 (edt-bind-gold-key-default "Y" 'edt-emulation-off)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2532 (edt-bind-gold-key-default "z" 'edt-switch-global-maps)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2533 (edt-bind-gold-key-default "Z" 'edt-switch-global-maps)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2534 (edt-bind-gold-key-default "1" 'delete-other-windows)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2535 (edt-bind-gold-key-default "!" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2536 (edt-bind-gold-key-default "2" 'edt-split-window)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2537 (edt-bind-gold-key-default "@" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2538 (edt-bind-gold-key-default "3" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2539 (edt-bind-gold-key-default "#" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2540 (edt-bind-gold-key-default "4" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2541 (edt-bind-gold-key-default "$" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2542 (edt-bind-gold-key-default "5" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2543 (edt-bind-gold-key-default "%" 'edt-goto-percentage)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2544 (edt-bind-gold-key-default "6" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2545 (edt-bind-gold-key-default "^" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2546 (edt-bind-gold-key-default "7" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2547 (edt-bind-gold-key-default "&" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2548 (edt-bind-gold-key-default "8" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2549 (edt-bind-gold-key-default "*" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2550 (edt-bind-gold-key-default "9" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2551 (edt-bind-gold-key-default "(" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2552 (edt-bind-gold-key-default "0" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2553 (edt-bind-gold-key-default ")" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2554 (edt-bind-gold-key-default " " 'undo)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2555 (edt-bind-gold-key-default "," 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2556 (edt-bind-gold-key-default "<" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2557 (edt-bind-gold-key-default "." 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2558 (edt-bind-gold-key-default ">" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2559 (edt-bind-gold-key-default "/" 'query-replace)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2560 (edt-bind-gold-key-default "?" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2561 (edt-bind-gold-key-default "\\" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2562 (edt-bind-gold-key-default "|" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2563 (edt-bind-gold-key-default ";" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2564 (edt-bind-gold-key-default ":" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2565 (edt-bind-gold-key-default "'" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2566 (edt-bind-gold-key-default "\"" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2567 (edt-bind-gold-key-default "-" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2568 (edt-bind-gold-key-default "_" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2569 (edt-bind-gold-key-default "=" 'goto-line)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2570 (edt-bind-gold-key-default "+" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2571 (edt-bind-gold-key-default "[" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2572 (edt-bind-gold-key-default "{" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2573 (edt-bind-gold-key-default "]" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2574 (edt-bind-gold-key-default "}" 'edt-key-not-assigned)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2575 (edt-bind-gold-key-default "`" 'what-line)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2576 (edt-bind-gold-key-default "~" 'edt-key-not-assigned)
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2577 )
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2578
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2579 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2580 ;;; DEFAULT EDT KEYPAD HELP
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2581 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2582
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2583 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2584 ;;; Upper case commands in the keypad diagram below indicate that the
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2585 ;;; emulation should look and feel very much like EDT. Lower case
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2586 ;;; commands are enhancements and/or additions to the EDT keypad
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2587 ;;; commands or are native Emacs commands.
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2588 ;;;
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2589
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2590 (defun edt-keypad-help ()
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2591 "DEFAULT EDT Keypad Active.
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2592
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2593 F7: Copy Rectangle +----------+----------+----------+----------+
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2594 F8: Cut Rect Overstrike |Prev Line |Next Line |Bkwd Char |Frwd Char |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2595 G-F8: Paste Rect Overstrike | (UP) | (DOWN) | (LEFT) | (RIGHT) |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2596 F9: Cut Rect Insert |Window Top|Window Bot|Bkwd Sent |Frwd Sent |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2597 G-F9: Paste Rect Insert +----------+----------+----------+----------+
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2598 F10: Cut Rectangle
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2599 G-F10: Paste Rectangle
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2600 F11: ESC
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2601 F12: Begining of Line +----------+----------+----------+----------+
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2602 G-F12: Delete Other Windows | GOLD | HELP | FNDNXT | DEL L |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2603 F13: Delete to Begin of Word | (PF1) | (PF2) | (PF3) | (PF4) |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2604 HELP: Keypad Help |Mark Wisel|Desc Funct| FIND | UND L |
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2605 G-HELP: Emacs Help +----------+----------+----------+----------+
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2606 DO: Execute extended command | PAGE | SECT | APPEND | DEL W |
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2607 C-g: Keyboard Quit | (7) | (8) | (9) | (-) |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2608 G-C-g: Keyboard Quit |Ex Ext Cmd|Fill Regio| REPLACE | UND W |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2609 C-h: Beginning of Line +----------+----------+----------+----------+
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2610 G-C-h: Emacs Help | ADVANCE | BACKUP | CUT | DEL C |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2611 C-i: Tab Insert | (4) | (5) | (6) | (,) |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2612 C-j: Delete to Begin of Word | BOTTOM | TOP | Yank | UND C |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2613 C-k: Define Key +----------+----------+----------+----------+
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2614 G-C-k: Restore Key | WORD | EOL | CHAR | Next |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2615 C-l: Form Feed Insert | (1) | (2) | (3) | Window |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2616 C-n: Set Screen Width 80 | CHNGCASE | DEL EOL |Quoted Ins| !
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2617 C-r: Isearch Backward +---------------------+----------+ (ENTER) |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2618 C-s: Isearch Forward | LINE | SELECT | !
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2619 C-t: Display the Time | (0) | (.) | SUBS |
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2620 C-u: Delete to Begin of Line | Open Line | RESET | |
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2621 C-v: Redraw Display +---------------------+----------+----------+
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2622 C-w: Set Screen Width 132
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2623 C-z: Suspend Emacs +----------+----------+----------+
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2624 G-C-\\: Split Window | FNDNXT | Yank | CUT |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2625 | (FIND) | (INSERT) | (REMOVE) |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2626 G-b: Buffer Menu | FIND | | COPY |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2627 G-c: Compile +----------+----------+----------+
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2628 G-d: Delete Window |SELECT/RES|SECT BACKW|SECT FORWA|
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2629 G-e: Exit | (SELECT) |(PREVIOUS)| (NEXT) |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2630 G-f: Find File | | | |
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2631 G-g: Find File Other Window +----------+----------+----------+
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2632 G-h: Keypad Help
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2633 G-i: Insert File
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2634 G-k: Toggle Capitalization Word
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2635 G-l: Downcase Region
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2636 G-m: Save Some Buffers
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2637 G-n: Next Error
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2638 G-o: Switch to Next Window
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2639 G-q: Quit
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2640 G-r: Revert File
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2641 G-s: Save Buffer
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2642 G-u: Upcase Region
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2643 G-v: Find File Other Window
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2644 G-w: Write file
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2645 G-y: EDT Emulation OFF
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2646 G-z: Switch to User EDT Key Bindings
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2647 G-1: Delete Other Windows
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2648 G-2: Split Window
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2649 G-%: Go to Percentage
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2650 G- : Undo (GOLD Spacebar)
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48259
diff changeset
2651 G-=: Go to Line
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2652 G-`: What line
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2653 G-/: Query-Replace"
57
f34b559dc980 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2654
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2655 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2656 (describe-function 'edt-keypad-help))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2657
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2658 (defun edt-electric-helpify (fun)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2659 (let ((name "*Help*"))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2660 (if (save-window-excursion
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2661 (let* ((p (symbol-function 'print-help-return-message))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2662 (b (get-buffer name))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2663 (m (buffer-modified-p b)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2664 (and b (not (get-buffer-window b))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2665 (setq b nil))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2666 (unwind-protect
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2667 (progn
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2668 (message "%s..." (capitalize (symbol-name fun)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2669 (and b
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2670 (save-excursion
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2671 (set-buffer b)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2672 (set-buffer-modified-p t)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2673 (fset 'print-help-return-message 'ignore)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2674 (call-interactively fun)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2675 (and (get-buffer name)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2676 (get-buffer-window (get-buffer name))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2677 (or (not b)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2678 (not (eq b (get-buffer name)))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2679 (not (buffer-modified-p b)))))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2680 (fset 'print-help-return-message p)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2681 (and b (buffer-name b)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2682 (save-excursion
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2683 (set-buffer b)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2684 (set-buffer-modified-p m))))))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2685 (with-electric-help 'delete-other-windows name t))))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2686
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2687 (defun edt-electric-keypad-help ()
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
2688 "Display default EDT bindings."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2689 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2690 (edt-electric-helpify 'edt-keypad-help))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2691
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2692 (defun edt-electric-user-keypad-help ()
11442
331db5628809 Many doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 11273
diff changeset
2693 "Display user custom EDT bindings."
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2694 (interactive)
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2695 (edt-electric-helpify 'edt-user-keypad-help))
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2696
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2697 ;;;
13058
1d26583f8c2b (edt-set-screen-width-80, edt-set-screen-width-132):
Karl Heuer <kwzh@gnu.org>
parents: 12421
diff changeset
2698 ;;; EDT emulation screen width commands.
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2699 ;;;
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2700 ;; Some terminals require modification of terminal attributes when
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2701 ;; changing the number of columns displayed, hence the fboundp tests
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2702 ;; below. These functions are defined in the corresponding terminal
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2703 ;; specific file, if needed.
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2704
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2705 (defun edt-set-screen-width-80 ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2706 "Set screen width to 80 columns."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2707 (interactive)
13058
1d26583f8c2b (edt-set-screen-width-80, edt-set-screen-width-132):
Karl Heuer <kwzh@gnu.org>
parents: 12421
diff changeset
2708 (if (fboundp 'edt-set-term-width-80)
1d26583f8c2b (edt-set-screen-width-80, edt-set-screen-width-132):
Karl Heuer <kwzh@gnu.org>
parents: 12421
diff changeset
2709 (edt-set-term-width-80))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2710 (set-frame-width nil 80)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2711 (message "Terminal width 80"))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2712
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2713 (defun edt-set-screen-width-132 ()
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2714 "Set screen width to 132 columns."
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2715 (interactive)
13058
1d26583f8c2b (edt-set-screen-width-80, edt-set-screen-width-132):
Karl Heuer <kwzh@gnu.org>
parents: 12421
diff changeset
2716 (if (fboundp 'edt-set-term-width-132)
1d26583f8c2b (edt-set-screen-width-80, edt-set-screen-width-132):
Karl Heuer <kwzh@gnu.org>
parents: 12421
diff changeset
2717 (edt-set-term-width-132))
35124
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2718 (set-frame-width nil 132)
0b78d7b101c2 Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents: 18943
diff changeset
2719 (message "Terminal width 132"))
10689
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2720
5adde53bae4b New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents: 7300
diff changeset
2721 (provide 'edt)
660
08eb386dd0f3 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 258
diff changeset
2722
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49598
diff changeset
2723 ;;; arch-tag: 18d1c54f-6900-4078-8bbc-7c2292f48941
660
08eb386dd0f3 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 258
diff changeset
2724 ;;; edt.el ends here