Mercurial > emacs
annotate lisp/emulation/edt.el @ 72307:725af3953ee0
*** empty log message ***
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Mon, 07 Aug 2006 16:39:36 +0000 |
parents | 067115a6e738 |
children | 11fae7eadf2d c5406394f567 |
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, |
68648
067115a6e738
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64701
diff
changeset
|
4 ;; 2004, 2005, 2006 Free Software Foundation, Inc. |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
5 |
18943 | 6 ;; Author: Kevin Gallagher <kevingal@onramp.net> |
7 ;; Maintainer: Kevin Gallagher <kevingal@onramp.net> | |
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 | 10 ;; This file is part of GNU Emacs. |
11 | |
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 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
14 ;; by the Free Software Foundation; either version 2, or (at your |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
15 ;; option) any later version. |
57 | 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 | 21 |
22 ;; You should have received a copy of the GNU General Public License | |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
57 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 309 "Non-nil indicates that default EDT emulation key bindings are active. |
42206 | 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 | 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 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
342 (replace-in-string (x-server-vendor) "[ _]" "-") |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
343 (subst-char-in-string ? ?- (x-server-vendor))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
344 nil) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
345 "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
|
346 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
347 (defvar edt-keys-file nil |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
348 "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
|
349 |
929eb735e11d
(edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
63914
diff
changeset
|
350 (defvar edt-last-copied-word nil |
929eb735e11d
(edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
63914
diff
changeset
|
351 "Last word that the user copied.") |
929eb735e11d
(edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
63914
diff
changeset
|
352 |
929eb735e11d
(edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
63914
diff
changeset
|
353 (defvar zmacs-region-stays) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
354 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
355 ;;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
356 ;;;; EDT Emulation Commands |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
357 ;;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
358 |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
359 ;;; 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
|
360 ;;; 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
|
361 ;;; somewhat differently in Emacs. |
10689
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 ;;; 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
|
364 ;;; 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
|
365 ;;; 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
|
366 ;;; 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
|
367 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
368 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
369 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
370 ;;; PAGE |
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 ;;; 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
|
373 ;;; 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
|
374 ;;; 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
|
375 ;;; 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
|
376 ;;; 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
|
377 ;;; 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
|
378 ;;; 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
|
379 ;;; placing |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
380 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
381 ;;; (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
|
382 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
383 ;;; in your .emacs file. |
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 (defun edt-page-forward (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
386 "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
|
387 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
|
388 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
389 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
390 (if (eobp) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
391 (error "End of buffer") |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
392 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
393 (forward-page num) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
394 (if (eobp) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
395 (edt-line-to-bottom-of-window) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
396 (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
|
397 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
398 (defun edt-page-backward (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
399 "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
|
400 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
|
401 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
402 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
403 (if (bobp) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
404 (error "Beginning of buffer") |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
405 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
406 (backward-page num) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
407 (edt-line-to-top-of-window) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
408 (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
|
409 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
410 (defun edt-page (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
411 "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
|
412 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
|
413 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
414 (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
|
415 (edt-page-forward num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
416 (edt-page-backward num))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
417 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
418 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
419 ;;; SECT |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
420 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
421 ;;; 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
|
422 ;;; 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
|
423 ;;; EDT SECT commands moves the cursor, not the window. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
424 ;;; |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
425 ;;; 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
|
426 ;;; 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
|
427 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
428 (defun edt-sect-forward (num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
429 "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
|
430 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
|
431 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
432 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
433 (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
|
434 |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
435 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
436 (defun edt-sect-backward (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
437 "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
|
438 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
|
439 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
440 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
441 (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
|
442 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
443 (defun edt-sect (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
444 "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
|
445 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
|
446 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
447 (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
|
448 (edt-sect-forward num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
449 (edt-sect-backward num))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
450 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
451 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
452 ;;; BEGINNING OF LINE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
453 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
454 ;;; 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
|
455 ;;; direction, for some unknown reason. |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
456 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
457 (defun edt-beginning-of-line (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
458 "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
|
459 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
|
460 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
461 (edt-check-prefix num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
462 (let ((beg (edt-current-line))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
463 (if (bolp) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
464 (forward-line (* -1 num)) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
465 (progn |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
466 (setq num (1- num)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
467 (forward-line (* -1 num)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
468 (edt-top-check beg num)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
469 (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
|
470 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
471 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
472 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
473 ;;; EOL (End of Line) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
474 ;;; |
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 (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
|
477 "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
|
478 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
|
479 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
480 (edt-check-prefix num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
481 (let ((beg (edt-current-line))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
482 (forward-char) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
483 (end-of-line num) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
484 (edt-bottom-check beg num)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
485 (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
|
486 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
487 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
488 (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
|
489 "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
|
490 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
|
491 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
492 (edt-check-prefix num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
493 (let ((beg (edt-current-line))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
494 (end-of-line (1- num)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
495 (edt-top-check beg num)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
496 (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
|
497 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
498 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
499 (defun edt-end-of-line (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
500 "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
|
501 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
|
502 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
503 (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
|
504 (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
|
505 (edt-end-of-line-backward num))) |
57 | 506 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
507 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
508 ;;; WORD |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
509 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
510 ;;; 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
|
511 ;;; 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
|
512 ;;; of line, etc.) it takes a bit of special handling. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
513 ;;; |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
514 ;;; 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
|
515 ;;; 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
|
516 ;;; 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
|
517 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
518 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
519 (defun edt-one-word-forward () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
520 "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
|
521 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
522 (if (eobp) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
523 (error "End of buffer")) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
524 (if (eolp) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
525 (forward-char) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
526 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
527 (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
|
528 (forward-char) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
529 (while (and |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
530 (not (eolp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
531 (not (eobp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
532 (not (eq ?\ (char-syntax (following-char)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
533 (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
|
534 (forward-char))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
535 (while (and |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
536 (not (eolp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
537 (not (eobp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
538 (eq ?\ (char-syntax (following-char))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
539 (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
|
540 (forward-char)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
541 (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
|
542 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
543 (defun edt-one-word-backward () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
544 "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
|
545 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
546 (if (bobp) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
547 (error "Beginning of buffer")) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
548 (if (bolp) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
549 (backward-char) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
550 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
551 (backward-char) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
552 (while (and |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
553 (not (bolp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
554 (not (bobp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
555 (eq ?\ (char-syntax (following-char))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
556 (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
|
557 (backward-char)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
558 (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
|
559 (while (and |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
560 (not (bolp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
561 (not (bobp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
562 (not (eq ?\ (char-syntax (preceding-char)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
563 (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
|
564 (backward-char))))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
565 (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
|
566 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
567 (defun edt-word-forward (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
568 "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
|
569 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
|
570 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
571 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
572 (while (> num 0) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
573 (edt-one-word-forward) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
574 (setq num (1- num)))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
575 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
576 (defun edt-word-backward (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
577 "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
|
578 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
|
579 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
580 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
581 (while (> num 0) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
582 (edt-one-word-backward) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
583 (setq num (1- num)))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
584 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
585 (defun edt-word (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
586 "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
|
587 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
|
588 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
589 (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
|
590 (edt-word-forward num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
591 (edt-word-backward num))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
592 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
593 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
594 ;;; CHAR |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
595 ;;; |
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 (defun edt-character (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
598 "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
|
599 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
|
600 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
601 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
602 (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
|
603 (forward-char num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
604 (backward-char num)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
605 (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
|
606 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
607 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
608 ;;; LINE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
609 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
610 ;;; 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
|
611 ;;; 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
|
612 ;;; separate function. |
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 (defun edt-line-backward (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
615 "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
|
616 Argument NUM is the number of BOL marks to move." |
57 | 617 (interactive "p") |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
618 (edt-beginning-of-line num)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
619 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
620 (defun edt-line-forward (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
621 "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
|
622 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
|
623 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
624 (edt-check-prefix num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
625 (let ((beg (edt-current-line))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
626 (forward-line num) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
627 (edt-bottom-check beg num)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
628 (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
|
629 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
630 (defun edt-line (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
631 "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
|
632 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
|
633 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
634 (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
|
635 (edt-line-forward num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
636 (edt-line-backward num))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
637 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
638 ;;; |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
639 ;;; UP and DOWN Arrows |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
640 ;;; |
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 (defun edt-next-line (num) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
643 "Move cursor down one line. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
644 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
|
645 (interactive "p") |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
646 (edt-check-prefix num) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
647 (let ((beg (edt-current-line))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
648 (next-line num) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
649 (edt-bottom-check beg num)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
650 (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
|
651 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
652 (defun edt-previous-line (num) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
653 "Move cursor up one line. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
654 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
|
655 (interactive "p") |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
656 (edt-check-prefix num) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
657 (let ((beg (edt-current-line))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
658 (previous-line num) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
659 (edt-top-check beg num)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
660 (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
|
661 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
662 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
663 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
664 ;;; TOP |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
665 ;;; |
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 (defun edt-top () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
668 "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
|
669 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
670 (goto-char (point-min)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
671 (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
|
672 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
673 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
674 ;;; BOTTOM |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
675 ;;; |
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 (defun edt-bottom () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
678 "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
|
679 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
680 (goto-char (point-max)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
681 (edt-line-to-bottom-of-window)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
682 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
683 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
684 ;;; FIND |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
685 ;;; |
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 (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
|
688 "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
|
689 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
|
690 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
691 (if (not find) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
692 (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
|
693 (let* ((left nil) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
694 (beg (edt-current-line)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
695 (height (window-height)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
696 (top-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
697 (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
|
698 (bottom-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
699 (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
|
700 (top-margin (/ (* height top-percent) 100)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
701 (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
|
702 (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
|
703 (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
|
704 (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
|
705 (far (save-excursion |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
706 (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
|
707 (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
|
708 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
709 (search-backward edt-find-last-text) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
710 (edt-set-match) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
711 (cond((> (point) far) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
712 (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
|
713 (if (= 0 left) (recenter top-margin) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
714 (recenter (- left bottom-up-margin)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
715 (t |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
716 (and (> (point) bottom) (recenter bottom-margin))))))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
717 (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
|
718 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
719 (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
|
720 "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
|
721 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
|
722 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
723 (if (not find) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
724 (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
|
725 (let* ((left nil) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
726 (beg (edt-current-line)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
727 (height (window-height)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
728 (top-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
729 (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
|
730 (bottom-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
731 (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
|
732 (top-margin (/ (* height top-percent) 100)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
733 (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
|
734 (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
|
735 (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
|
736 (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
|
737 (far (save-excursion |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
738 (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
|
739 (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
|
740 (edt-set-match)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
741 (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
|
742 (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
|
743 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
744 (defun edt-find () |
13978
2445061c92d4
(edt-find-forward, edt-find-backward, edt-find,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
745 "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
|
746 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
747 (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
|
748 (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
|
749 (edt-find-forward t) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
750 (edt-find-backward t))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
751 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
752 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
753 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
754 ;;; FNDNXT |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
755 ;;; |
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 (defun edt-find-next-forward () |
13978
2445061c92d4
(edt-find-forward, edt-find-backward, edt-find,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
758 "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
|
759 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
760 (let* ((left nil) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
761 (beg (edt-current-line)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
762 (height (window-height)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
763 (top-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
764 (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
|
765 (bottom-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
766 (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
|
767 (top-margin (/ (* height top-percent) 100)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
768 (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
|
769 (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
|
770 (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
|
771 (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
|
772 (far (save-excursion |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
773 (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
|
774 (forward-char 1) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
775 (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
|
776 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
777 (search-backward edt-find-last-text) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
778 (edt-set-match) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
779 (cond((> (point) far) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
780 (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
|
781 (if (= 0 left) (recenter top-margin) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
782 (recenter (- left bottom-up-margin)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
783 (t |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
784 (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
|
785 (progn |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
786 (backward-char 1) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
787 (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
|
788 (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
|
789 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
790 (defun edt-find-next-backward () |
13978
2445061c92d4
(edt-find-forward, edt-find-backward, edt-find,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
791 "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
|
792 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
793 (let* ((left nil) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
794 (beg (edt-current-line)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
795 (height (window-height)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
796 (top-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
797 (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
|
798 (bottom-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
799 (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
|
800 (top-margin (/ (* height top-percent) 100)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
801 (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
|
802 (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
|
803 (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
|
804 (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
|
805 (far (save-excursion |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
806 (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
|
807 (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
|
808 (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
|
809 (progn |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
810 (edt-set-match) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
811 (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
|
812 (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
|
813 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
814 (defun edt-find-next () |
13978
2445061c92d4
(edt-find-forward, edt-find-backward, edt-find,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
815 "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
|
816 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
817 (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
|
818 (edt-find-next-forward) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
819 (edt-find-next-backward))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
820 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
821 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
822 ;;; APPEND |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
823 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
824 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
825 (defun edt-append () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
826 "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
|
827 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
828 (edt-check-selection) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
829 (append-next-kill) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
830 (kill-region (mark) (point)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
831 (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
|
832 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
833 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
834 ;;; DEL L |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
835 ;;; |
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 (defun edt-delete-line (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
838 "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
|
839 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
|
840 (interactive "*p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
841 (edt-check-prefix num) |
57 | 842 (let ((beg (point))) |
843 (forward-line num) | |
844 (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
|
845 (insert "\n")) |
57 | 846 (setq edt-last-deleted-lines |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
847 (buffer-substring beg (point))) |
57 | 848 (delete-region beg (point)))) |
849 | |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
850 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
851 ;;; DEL EOL |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
852 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
853 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
854 (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
|
855 "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
|
856 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
|
857 (interactive "*p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
858 (edt-check-prefix num) |
57 | 859 (let ((beg (point))) |
860 (forward-char 1) | |
861 (end-of-line num) | |
862 (setq edt-last-deleted-lines | |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
863 (buffer-substring beg (point))) |
57 | 864 (delete-region beg (point)))) |
865 | |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
866 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
867 ;;; SELECT |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
868 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
869 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
870 (defun edt-select-mode (arg) |
11442 | 871 "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
|
872 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
|
873 (if arg |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
874 (progn |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
875 (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
|
876 (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
|
877 (setq rect-start-point (window-point))) |
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 (kill-local-variable 'edt-select-mode))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
880 (force-mode-line-update)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
881 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
882 (defun edt-select () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
883 "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
|
884 (interactive) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
885 (set-mark-command nil)) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
886 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
887 (defun edt-reset () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
888 "Cancel text selection." |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
889 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
890 (if edt-gnu-emacs19-p |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
891 (deactivate-mark) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
892 (zmacs-deactivate-region))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
893 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
894 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
895 ;;; CUT |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
896 ;;; |
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 (defun edt-cut () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
899 "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
|
900 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
901 (edt-check-selection) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
902 (kill-region (mark) (point)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
903 (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
|
904 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
905 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
906 ;;; DELETE TO BEGINNING OF LINE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
907 ;;; |
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 (defun edt-delete-to-beginning-of-line (num) |
11442 | 910 "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
|
911 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
|
912 (interactive "*p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
913 (edt-check-prefix num) |
57 | 914 (let ((beg (point))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
915 (edt-beginning-of-line num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
916 (setq edt-last-deleted-lines |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
917 (buffer-substring (point) beg)) |
57 | 918 (delete-region beg (point)))) |
919 | |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
920 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
921 ;;; DEL W |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
922 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
923 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
924 (defun edt-delete-word (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
925 "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
|
926 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
|
927 (interactive "*p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
928 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
929 (let ((beg (point))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
930 (edt-word-forward num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
931 (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
|
932 (delete-region beg (point)))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
933 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
934 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
935 ;;; DELETE TO BEGINNING OF WORD |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
936 ;;; |
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 (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
|
939 "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
|
940 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
|
941 (interactive "*p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
942 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
943 (let ((beg (point))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
944 (edt-word-backward num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
945 (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
|
946 (delete-region beg (point)))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
947 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
948 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
949 ;;; DEL C |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
950 ;;; |
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 (defun edt-delete-character (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
953 "Delete character under cursor. |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
954 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
|
955 (interactive "*p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
956 (edt-check-prefix num) |
57 | 957 (setq edt-last-deleted-chars |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
958 (buffer-substring (point) (min (point-max) (+ (point) num)))) |
57 | 959 (delete-region (point) (min (point-max) (+ (point) num)))) |
960 | |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
961 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
962 ;;; DELETE CHAR |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
963 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
964 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
965 (defun edt-delete-previous-character (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
966 "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
|
967 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
|
968 (interactive "*p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
969 (edt-check-prefix num) |
57 | 970 (setq edt-last-deleted-chars |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
971 (buffer-substring (max (point-min) (- (point) num)) (point))) |
57 | 972 (delete-region (max (point-min) (- (point) num)) (point))) |
973 | |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
974 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
975 ;;; UND L |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
976 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
977 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
978 (defun edt-undelete-line () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
979 "Undelete previous deleted line(s)." |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
980 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
981 (point-to-register 1) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
982 (insert edt-last-deleted-lines) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
983 (register-to-point 1)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
984 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
985 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
986 ;;; UND W |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
987 ;;; |
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 (defun edt-undelete-word () |
11442 | 990 "Undelete previous deleted word(s)." |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
991 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
992 (point-to-register 1) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
993 (insert edt-last-deleted-words) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
994 (register-to-point 1)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
995 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
996 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
997 ;;; UND C |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
998 ;;; |
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 (defun edt-undelete-character () |
11442 | 1001 "Undelete previous deleted character(s)." |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1002 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1003 (point-to-register 1) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1004 (insert edt-last-deleted-chars) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1005 (register-to-point 1)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1006 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1007 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1008 ;;; REPLACE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1009 ;;; |
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 (defun edt-replace () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1012 "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
|
1013 (interactive "*") |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1014 (if (edt-check-match) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1015 (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
|
1016 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1017 (exchange-point-and-mark) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1018 (let ((beg (point))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1019 (exchange-point-and-mark) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1020 (delete-region beg (point))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1021 (yank)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1022 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1023 ;;; |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1024 ;;; SUBS |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1025 ;;; |
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 (defun edt-substitute (num) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1028 "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
|
1029 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
|
1030 the CUT buffer.) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1031 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
|
1032 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
|
1033 of the search text." |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1034 (interactive "p") |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1035 (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
|
1036 (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
|
1037 (edt-replace) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1038 (edt-find-next) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1039 (setq num (1- num)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1040 (t |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1041 (error "No selection active")))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1042 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1043 (defun edt-set-match nil |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1044 "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
|
1045 ;; 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
|
1046 ;; 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
|
1047 (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
|
1048 (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
|
1049 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1050 (defun edt-unset-match nil |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1051 "Unset match beginning and end markers." |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1052 (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
|
1053 (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
|
1054 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1055 (defun edt-match-beginning nil |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1056 "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
|
1057 (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
|
1058 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1059 (defun edt-match-end 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 end." |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1061 (marker-position edt-match-end-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-check-match nil |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1064 "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
|
1065 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
|
1066 ;; 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
|
1067 ;; 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
|
1068 ;; 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
|
1069 ;; 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
|
1070 ;; beginning, end, and point are equal. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1071 (cond ((and |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1072 (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
|
1073 (>= (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
|
1074 (or |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1075 (< (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
|
1076 (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
|
1077 (marker-position edt-match-end-mark)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1078 (= (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
|
1079 (t |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1080 (edt-unset-match) nil))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1081 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1082 (defun edt-show-match-markers nil |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1083 "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
|
1084 (interactive) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1085 (if (markerp edt-match-beginning-mark) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1086 (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
|
1087 (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
|
1088 (if beg (1- beg) nil) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1089 (marker-position edt-match-end-mark) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1090 (marker-buffer edt-match-end-mark) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1091 (point) (current-buffer))))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1092 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1093 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1094 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1095 ;;; ADVANCE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1096 ;;; |
57 | 1097 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1098 (defun edt-advance () |
11442 | 1099 "Set movement direction forward. |
1100 Also, execute command specified if in Minibuffer." | |
57 | 1101 (interactive) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1102 (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
|
1103 (force-mode-line-update) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1104 (if (string-equal " *Minibuf" |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1105 (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
|
1106 (exit-minibuffer)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1107 (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
|
1108 |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
1109 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1110 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1111 ;;; BACKUP |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1112 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1113 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1114 (defun edt-backup () |
11442 | 1115 "Set movement direction backward. |
1116 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
|
1117 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1118 (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
|
1119 (force-mode-line-update) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1120 (if (string-equal " *Minibuf" |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1121 (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
|
1122 (exit-minibuffer)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1123 (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
|
1124 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1125 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1126 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1127 ;;; CHNGCASE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1128 ;;; |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1129 ;; 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
|
1130 ;; tpu.el. |
57 | 1131 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1132 (defun edt-change-case (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1133 "Change the case of specified characters. |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1134 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
|
1135 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
|
1136 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
|
1137 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
|
1138 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
|
1139 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
|
1140 ignored if text selection is active. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1141 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
|
1142 (interactive "*p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1143 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1144 (if edt-select-mode |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1145 (let ((end (max (mark) (point))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1146 (point-save (point))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1147 (goto-char (min (point) (mark))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1148 (while (not (eq (point) end)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1149 (funcall (if (<= ?a (following-char)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1150 'upcase-region 'downcase-region) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1151 (point) (1+ (point))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1152 (forward-char 1)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1153 (goto-char point-save)) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1154 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1155 (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
|
1156 (backward-char num)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1157 (while (> num 0) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1158 (funcall (if (<= ?a (following-char)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1159 'upcase-region 'downcase-region) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1160 (point) (1+ (point))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1161 (forward-char 1) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1162 (setq num (1- num)))))) |
57 | 1163 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1164 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1165 ;;; DEFINE KEY |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1166 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1167 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1168 (defun edt-define-key () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1169 "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
|
1170 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
|
1171 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
|
1172 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1173 (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
|
1174 (let (edt-function |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1175 edt-key-definition) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1176 (setq edt-key-definition |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1177 (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
|
1178 (if (if edt-gnu-emacs19-p |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1179 (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
|
1180 (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
|
1181 (message "Key not defined") |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1182 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1183 (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
|
1184 (if (string-equal "" edt-function) |
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-last-replaced-key-definition |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1188 (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
|
1189 (define-key (current-global-map) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1190 edt-key-definition edt-function))))))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1191 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1192 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1193 ;;; FORM FEED INSERT |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1194 ;;; |
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 (defun edt-form-feed-insert (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1197 "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
|
1198 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
|
1199 (interactive "*p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1200 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1201 (while (> num 0) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1202 (insert ?\f) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1203 (setq num (1- num)))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1204 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1205 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1206 ;;; TAB INSERT |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1207 ;;; |
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 (defun edt-tab-insert (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1210 "Insert tab character at cursor position. |
42686 | 1211 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
|
1212 (interactive "*p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1213 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1214 (while (> num 0) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1215 (insert ?\t) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1216 (setq num (1- num)))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1217 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1218 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1219 ;;; Check Prefix |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1220 ;;; |
57 | 1221 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1222 (defun edt-check-prefix (num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1223 "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
|
1224 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
|
1225 (if (<= num 0) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1226 (error "Prefix must be positive"))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
1227 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1228 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1229 ;;; Check Selection |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1230 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1231 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1232 (defun edt-check-selection () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1233 "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
|
1234 (if (not edt-select-mode) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1235 (error "Selection NOT active"))) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1236 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1237 ;;; |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1238 ;;; Scroll Margins |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1239 ;;; |
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 (defun edt-top-check (beg lines) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1242 "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
|
1243 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
|
1244 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
|
1245 (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
|
1246 (cond ((< beg margin) (recenter beg)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1247 ((< (- beg lines) margin) (recenter margin))))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1248 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1249 (defun edt-bottom-check (beg lines) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1250 "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
|
1251 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
|
1252 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
|
1253 (let* ((height (window-height)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1254 (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
|
1255 ;; 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
|
1256 (difference (- height margin 1))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1257 (cond ((> beg difference) (recenter beg)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1258 ((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
|
1259 (recenter (- margin))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1260 ((> (+ beg lines) difference) (recenter (- margin)))))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1261 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1262 (defun edt-current-line nil |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1263 "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
|
1264 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
|
1265 (+ (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
|
1266 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1267 ;;;###autoload |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1268 (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
|
1269 "Set scroll margins. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1270 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
|
1271 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
|
1272 (interactive |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1273 "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
|
1274 \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
|
1275 ;; set top scroll margin |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1276 (or (string= top "") |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1277 (if (string= "%" (substring top -1)) |
62402
a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents:
52401
diff
changeset
|
1278 (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
|
1279 (setq edt-top-scroll-margin |
62402
a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents:
52401
diff
changeset
|
1280 (/ (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
|
1281 (window-height))))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1282 ;; set bottom scroll margin |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1283 (or (string= bottom "") |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1284 (if (string= "%" (substring bottom -1)) |
62402
a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents:
52401
diff
changeset
|
1285 (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
|
1286 (setq edt-bottom-scroll-margin |
62402
a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents:
52401
diff
changeset
|
1287 (/ (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
|
1288 (window-height))))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1289 ;; 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
|
1290 (and (interactive-p) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1291 (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
|
1292 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
|
1293 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1294 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1295 ;;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1296 ;;;; 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
|
1297 ;;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1298 |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
1299 ;;; |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1300 ;;; 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
|
1301 ;;; 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
|
1302 ;;; 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
|
1303 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1304 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1305 ;;; CHANGE DIRECTION |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1306 ;;; |
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 (defun edt-change-direction () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1309 "Toggle movement direction." |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1310 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1311 (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
|
1312 (edt-backup) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1313 (edt-advance))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1314 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1315 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1316 ;;; TOGGLE SELECT |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1317 ;;; |
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 (defun edt-toggle-select () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1320 "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
|
1321 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1322 (if edt-select-mode |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1323 (edt-reset) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1324 (edt-select))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1325 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1326 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1327 ;;; SENTENCE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1328 ;;; |
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 (defun edt-sentence-forward (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1331 "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
|
1332 Argument NUM is the positive number of sentences to move." |
57 | 1333 (interactive "p") |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1334 (edt-check-prefix num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1335 (let* ((left nil) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1336 (beg (edt-current-line)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1337 (height (window-height)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1338 (top-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1339 (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
|
1340 (bottom-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1341 (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
|
1342 (top-margin (/ (* height top-percent) 100)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1343 (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
|
1344 (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
|
1345 (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
|
1346 (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
|
1347 (far (save-excursion |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1348 (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
|
1349 (if (eobp) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1350 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1351 (error "End of buffer")) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1352 (progn |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1353 (forward-sentence num) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1354 (forward-word 1) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1355 (backward-sentence))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1356 (cond((> (point) far) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1357 (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
|
1358 (if (= 0 left) (recenter top-margin) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1359 (recenter (- left bottom-up-margin)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1360 (t |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1361 (and (> (point) bottom) (recenter bottom-margin))))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1362 (if edt-x-emacs19-p (setq zmacs-region-stays t))) |
57 | 1363 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1364 (defun edt-sentence-backward (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1365 "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
|
1366 Argument NUM is the positive number of sentences to move." |
57 | 1367 (interactive "p") |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1368 (edt-check-prefix num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1369 (let* ((left nil) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1370 (beg (edt-current-line)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1371 (height (window-height)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1372 (top-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1373 (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
|
1374 (bottom-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1375 (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
|
1376 (top-margin (/ (* height top-percent) 100)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1377 (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
|
1378 (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
|
1379 (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
|
1380 (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
|
1381 (far (save-excursion |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1382 (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
|
1383 (if (eobp) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1384 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1385 (error "End of buffer")) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1386 (backward-sentence num)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1387 (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
|
1388 (if edt-x-emacs19-p (setq zmacs-region-stays t))) |
57 | 1389 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1390 (defun edt-sentence (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1391 "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
|
1392 Argument NUM is the positive number of sentences to move." |
57 | 1393 (interactive "p") |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1394 (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
|
1395 (edt-sentence-forward num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1396 (edt-sentence-backward num))) |
57 | 1397 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1398 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1399 ;;; PARAGRAPH |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1400 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1401 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1402 (defun edt-paragraph-forward (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1403 "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
|
1404 Argument NUM is the positive number of paragraphs to move." |
57 | 1405 (interactive "p") |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1406 (edt-check-prefix num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1407 (let* ((left nil) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1408 (beg (edt-current-line)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1409 (height (window-height)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1410 (top-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1411 (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
|
1412 (bottom-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1413 (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
|
1414 (top-margin (/ (* height top-percent) 100)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1415 (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
|
1416 (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
|
1417 (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
|
1418 (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
|
1419 (far (save-excursion |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1420 (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
|
1421 (while (> num 0) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1422 (forward-paragraph (+ num 1)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1423 (start-of-paragraph-text) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1424 (if (eolp) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1425 (next-line 1)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1426 (setq num (1- num))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1427 (cond((> (point) far) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1428 (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
|
1429 (if (= 0 left) (recenter top-margin) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1430 (recenter (- left bottom-up-margin)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1431 (t |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1432 (and (> (point) bottom) (recenter bottom-margin))))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1433 (if edt-x-emacs19-p (setq zmacs-region-stays t))) |
57 | 1434 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1435 (defun edt-paragraph-backward (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1436 "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
|
1437 Argument NUM is the positive number of paragraphs to move." |
57 | 1438 (interactive "p") |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1439 (edt-check-prefix num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1440 (let* ((left nil) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1441 (beg (edt-current-line)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1442 (height (window-height)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1443 (top-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1444 (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
|
1445 (bottom-percent |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1446 (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
|
1447 (top-margin (/ (* height top-percent) 100)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1448 (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
|
1449 (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
|
1450 (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
|
1451 (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
|
1452 (far (save-excursion |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1453 (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
|
1454 (while (> num 0) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1455 (start-of-paragraph-text) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1456 (setq num (1- num))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1457 (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
|
1458 (if edt-x-emacs19-p (setq zmacs-region-stays t))) |
57 | 1459 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1460 (defun edt-paragraph (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1461 "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
|
1462 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
|
1463 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1464 (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
|
1465 (edt-paragraph-forward num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1466 (edt-paragraph-backward num))) |
57 | 1467 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1468 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1469 ;;; RESTORE KEY |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1470 ;;; |
57 | 1471 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1472 (defun edt-restore-key () |
11442 | 1473 "Restore last replaced key definition. |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1474 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
|
1475 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1476 (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
|
1477 (if edt-last-replaced-key-definition |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1478 (progn |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1479 (let (edt-key-definition) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1480 (set 'edt-key-definition |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1481 (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
|
1482 (if (if edt-gnu-emacs19-p |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1483 (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
|
1484 (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
|
1485 (message "Key not restored") |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1486 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1487 (define-key (current-global-map) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1488 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
|
1489 (if edt-gnu-emacs19-p |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1490 (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
|
1491 edt-key-definition) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1492 (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
|
1493 (events-to-keys edt-key-definition))))))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1494 (error "No replaced key definition to restore!"))) |
57 | 1495 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1496 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1497 ;;; WINDOW TOP |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1498 ;;; |
57 | 1499 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1500 (defun edt-window-top () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1501 "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
|
1502 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1503 (let ((start-column (current-column))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1504 (move-to-window-line 0) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1505 (move-to-column start-column)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1506 (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
|
1507 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1508 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1509 ;;; WINDOW BOTTOM |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1510 ;;; |
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 (defun edt-window-bottom () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1513 "Move the cursor to the bottom of the window." |
57 | 1514 (interactive) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1515 (let ((start-column (current-column))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1516 (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
|
1517 (move-to-column start-column)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1518 (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
|
1519 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1520 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1521 ;;; SCROLL WINDOW LINE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1522 ;;; |
57 | 1523 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1524 (defun edt-scroll-window-forward-line () |
11442 | 1525 "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
|
1526 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1527 (scroll-up 1) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1528 (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
|
1529 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1530 (defun edt-scroll-window-backward-line () |
11442 | 1531 "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
|
1532 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1533 (scroll-down 1) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1534 (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
|
1535 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1536 (defun edt-scroll-line () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1537 "Move window one line in current direction." |
57 | 1538 (interactive) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1539 (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
|
1540 (edt-scroll-window-forward-line) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1541 (edt-scroll-window-backward-line))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1542 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1543 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1544 ;;; SCROLL WINDOW |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1545 ;;; |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1546 ;;; 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
|
1547 ;;; window. |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1548 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1549 (defun edt-scroll-window-forward (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1550 "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
|
1551 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
|
1552 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1553 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1554 (scroll-up (- (* (window-height) num) 2)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1555 (edt-line-forward (/ (- (window-height) 1) 2))) |
57 | 1556 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1557 (defun edt-scroll-window-backward (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1558 "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
|
1559 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
|
1560 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1561 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1562 (scroll-down (- (* (window-height) num) 2)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1563 (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
|
1564 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1565 (defun edt-scroll-window (num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1566 "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
|
1567 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
|
1568 (interactive "p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1569 (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
|
1570 (edt-scroll-window-forward num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1571 (edt-scroll-window-backward num))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1572 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1573 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1574 ;;; LINE TO BOTTOM OF WINDOW |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1575 ;;; |
57 | 1576 |
1577 (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
|
1578 "Move the current line to the bottom of the window." |
57 | 1579 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1580 (recenter -1) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1581 (if edt-x-emacs19-p (setq zmacs-region-stays t))) |
57 | 1582 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1583 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1584 ;;; LINE TO TOP OF WINDOW |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1585 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1586 |
57 | 1587 (defun edt-line-to-top-of-window () |
1588 "Move the current line to the top of the window." | |
1589 (interactive) | |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1590 (recenter 0) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1591 (if edt-x-emacs19-p (setq zmacs-region-stays t))) |
57 | 1592 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1593 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1594 ;;; LINE TO MIDDLE OF WINDOW |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1595 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1596 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1597 (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
|
1598 "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
|
1599 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1600 (recenter '(4)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1601 (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
|
1602 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1603 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1604 ;;; GOTO PERCENTAGE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1605 ;;; |
57 | 1606 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1607 (defun edt-goto-percentage (num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1608 "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
|
1609 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
|
1610 (interactive "NGoto-percentage: ") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1611 (if (or (> num 100) (< num 0)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1612 (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
|
1613 (goto-char (/ (* (point-max) num) 100))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1614 (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
|
1615 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1616 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1617 ;;; FILL REGION |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1618 ;;; |
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 (defun edt-fill-region () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1621 "Fill selected text." |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1622 (interactive "*") |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1623 (edt-check-selection) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1624 (fill-region (point) (mark))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1625 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1626 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1627 ;;; INDENT OR FILL REGION |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1628 ;;; |
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 (defun edt-indent-or-fill-region () |
57 | 1631 "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
|
1632 (interactive "*") |
10872
adc2429d1531
(edt-indent-or-fill-region): Remove ^ from paragraph-start & paragraph-separate.
Boris Goldowsky <boris@gnu.org>
parents:
10689
diff
changeset
|
1633 (if (string= paragraph-start "$\\|\f") |
57 | 1634 (indent-region (point) (mark) nil) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1635 (fill-region (point) (mark)))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1636 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1637 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1638 ;;; MARK SECTION WISELY |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1639 ;;; |
57 | 1640 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1641 (defun edt-mark-section-wisely () |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1642 "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
|
1643 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
|
1644 `c-mark-function' for C, |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1645 and `mark-paragraph' for other modes." |
57 | 1646 (interactive) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1647 (if edt-select-mode |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1648 (progn |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1649 (edt-reset)) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1650 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1651 (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
|
1652 (eq major-mode 'fortran-mode) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1653 (eq major-mode 'lisp-mode)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1654 (mark-defun) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1655 (message "Lisp defun selected")) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1656 ((eq major-mode 'c-mode) |
63941
929eb735e11d
(edt-last-copied-word): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
63914
diff
changeset
|
1657 (c-mark-function) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1658 (message "C function selected")) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1659 (t (mark-paragraph) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1660 (message "Paragraph selected")))))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1661 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1662 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1663 ;;; COPY |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1664 ;;; |
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 (defun edt-copy () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1667 "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
|
1668 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1669 (edt-check-selection) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1670 (copy-region-as-kill (mark) (point)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1671 (edt-reset) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1672 (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
|
1673 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1674 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1675 ;;; CUT or COPY |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1676 ;;; |
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 (defun edt-cut-or-copy () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1679 "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
|
1680 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
|
1681 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
|
1682 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1683 (if buffer-read-only |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1684 (edt-copy) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1685 (edt-cut))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1686 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1687 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1688 ;;; DELETE ENTIRE LINE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1689 ;;; |
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 (defun edt-delete-entire-line () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1692 "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
|
1693 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1694 (beginning-of-line) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1695 (edt-delete-line 1)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1696 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1697 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1698 ;;; DUPLICATE LINE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1699 ;;; |
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 (defun edt-duplicate-line (num) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1702 "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
|
1703 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
|
1704 (interactive "*p") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1705 (edt-check-prefix num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1706 (let ((old-column (current-column)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1707 (count num)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1708 (edt-delete-entire-line) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1709 (edt-undelete-line) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1710 (while (> count 0) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1711 (edt-undelete-line) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1712 (setq count (1- count))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1713 (edt-line-forward num) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1714 (move-to-column old-column))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1715 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1716 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1717 ;;; DUPLICATE WORD |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1718 ;;; |
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 (defun edt-duplicate-word() |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1721 "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
|
1722 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1723 (let ((start (point)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1724 (start-column (current-column))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1725 (forward-line -1) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1726 (move-to-column start-column) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1727 (if (and (not (equal start (point))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1728 (not (eolp))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1729 (progn |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1730 (if (and (equal ?\t (preceding-char)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1731 (< start-column (current-column))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1732 (backward-char)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1733 (let ((beg (point))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1734 (edt-one-word-forward) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1735 (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
|
1736 (forward-line) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1737 (move-to-column start-column) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1738 (insert edt-last-copied-word)) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1739 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1740 (if (not (equal start (point))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1741 (forward-line)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1742 (move-to-column start-column) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1743 (error "Nothing to duplicate!"))))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1744 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1745 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1746 ;;; KEY NOT ASSIGNED |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1747 ;;; |
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 (defun edt-key-not-assigned () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1750 "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
|
1751 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1752 (error "Key not assigned")) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1753 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1754 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1755 ;;; TOGGLE CAPITALIZATION OF WORD |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1756 ;;; |
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 (defun edt-toggle-capitalization-of-word () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1759 "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
|
1760 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1761 (edt-one-word-forward) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1762 (edt-one-word-backward) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1763 (edt-change-case 1) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1764 (edt-one-word-backward) |
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 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1767 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1768 ;;; ELIMINATE ALL TABS |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1769 ;;; |
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 (defun edt-eliminate-all-tabs () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1772 "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
|
1773 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1774 (untabify (point-min) (point-max)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1775 (message "TABS converted to SPACES")) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1776 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1777 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1778 ;;; DISPLAY THE TIME |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1779 ;;; |
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 (defun edt-display-the-time () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1782 "Display the current time." |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1783 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1784 (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
|
1785 (message "%s" (current-time-string))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1786 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1787 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1788 ;;; LEARN |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1789 ;;; |
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 (defun edt-learn () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1792 "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
|
1793 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1794 (if (eq defining-kbd-macro t) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1795 (edt-remember) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1796 (start-kbd-macro nil))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1797 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1798 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1799 ;;; REMEMBER |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1800 ;;; |
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 (defun edt-remember () |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1803 "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
|
1804 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1805 (if (eq defining-kbd-macro nil) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1806 (error "Nothing to remember!") |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1807 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1808 (end-kbd-macro nil) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1809 (let (edt-key-definition) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1810 (set 'edt-key-definition |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1811 (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
|
1812 (if (if edt-gnu-emacs19-p |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1813 (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
|
1814 (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
|
1815 (message "Key sequence not remembered") |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1816 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1817 (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
|
1818 (setq edt-last-replaced-key-definition |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1819 (lookup-key (current-global-map) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1820 edt-key-definition)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1821 (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
|
1822 (name-last-kbd-macro |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1823 (intern (concat "last-learned-sequence-" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1824 (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
|
1825 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1826 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1827 ;;; EXIT |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1828 ;;; |
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 (defun edt-exit () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1831 "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
|
1832 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1833 (save-buffer) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1834 (save-buffers-kill-emacs)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1835 |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
1836 ;;; |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1837 ;;; QUIT |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1838 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1839 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1840 (defun edt-quit () |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1841 "Quit Emacs without saving buffer modifications. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1842 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
|
1843 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1844 (let ((list (buffer-list)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1845 (working t)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1846 (while (and list working) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1847 (let ((buffer (car list))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1848 (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
|
1849 (if (edt-y-or-n-p |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1850 "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
|
1851 (kill-emacs) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1852 (setq working nil))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1853 (setq list (cdr list)))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
1854 (if working (kill-emacs)))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1855 |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
1856 ;;; |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1857 ;;; SPLIT WINDOW |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1858 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1859 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1860 (defun edt-split-window () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1861 "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
|
1862 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1863 (split-window) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1864 (other-window 1) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1865 (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
|
1866 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1867 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1868 ;;; COPY RECTANGLE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1869 ;;; |
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 (defun edt-copy-rectangle () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1872 "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
|
1873 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1874 (edt-check-selection) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1875 (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
|
1876 (edt-reset) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1877 (message "Selected rectangle COPIED to register")) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1878 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1879 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1880 ;;; CUT RECTANGLE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1881 ;;; |
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 (defun edt-cut-rectangle-overstrike-mode () |
11442 | 1884 "Cut a rectangle of text between mark and cursor to register. |
1885 Replace cut characters with spaces and moving cursor back to | |
1886 upper left corner." | |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1887 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1888 (edt-check-selection) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1889 (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
|
1890 (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
|
1891 (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
|
1892 (message "Selected rectangle CUT to register")) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1893 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1894 (defun edt-cut-rectangle-insert-mode () |
11442 | 1895 "Cut a rectangle of text between mark and cursor to register. |
1896 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
|
1897 (interactive "*") |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1898 (edt-check-selection) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1899 (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
|
1900 (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
|
1901 (fixup-whitespace) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1902 (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
|
1903 (message "Selected rectangle CUT to register")) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1904 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1905 (defun edt-cut-rectangle () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1906 "Cut a rectangular region of text to register. |
11442 | 1907 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
|
1908 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1909 (if overwrite-mode |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1910 (edt-cut-rectangle-overstrike-mode) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1911 (edt-cut-rectangle-insert-mode))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1912 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1913 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1914 ;;; PASTE RECTANGLE |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1915 ;;; |
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 (defun edt-paste-rectangle-overstrike-mode () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1918 "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
|
1919 (interactive "*") |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1920 (picture-yank-rectangle-from-register 3)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1921 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1922 (defun edt-paste-rectangle-insert-mode () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1923 "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
|
1924 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1925 (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
|
1926 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1927 (defun edt-paste-rectangle () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1928 "Paste a rectangular region of text. |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1929 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
|
1930 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1931 (if overwrite-mode |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1932 (edt-paste-rectangle-overstrike-mode) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1933 (edt-paste-rectangle-insert-mode))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1934 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1935 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1936 ;;; DOWNCASE REGION |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1937 ;;; |
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 (defun edt-lowercase () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1940 "Change specified characters to lower case. |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1941 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
|
1942 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
|
1943 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
|
1944 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
|
1945 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
|
1946 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
|
1947 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
|
1948 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1949 (if edt-select-mode |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1950 (progn |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1951 (downcase-region (mark) (point))) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1952 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1953 ;; Move to beginning of current word. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1954 (if (and |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1955 (not (bobp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1956 (not (eobp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1957 (not (bolp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1958 (not (eolp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1959 (not (eq ?\ (char-syntax (preceding-char)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1960 (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
|
1961 (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
|
1962 (edt-one-word-backward)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1963 (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
|
1964 (edt-one-word-backward)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1965 (let ((beg (point))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1966 (edt-one-word-forward) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1967 (downcase-region beg (point))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1968 (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
|
1969 (edt-one-word-backward))))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1970 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1971 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1972 ;;; UPCASE REGION |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1973 ;;; |
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 (defun edt-uppercase () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1976 "Change specified characters to upper case. |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1977 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
|
1978 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
|
1979 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
|
1980 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
|
1981 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
|
1982 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
|
1983 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
|
1984 (interactive "*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1985 (if edt-select-mode |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1986 (progn |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
1987 (upcase-region (mark) (point))) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1988 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1989 ;; Move to beginning of current word. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1990 (if (and |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1991 (not (bobp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1992 (not (eobp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1993 (not (bolp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1994 (not (eolp)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1995 (not (eq ?\ (char-syntax (preceding-char)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1996 (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
|
1997 (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
|
1998 (edt-one-word-backward)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
1999 (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
|
2000 (edt-one-word-backward)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2001 (let ((beg (point))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2002 (edt-one-word-forward) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2003 (upcase-region beg (point))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2004 (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
|
2005 (edt-one-word-backward))))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2006 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2007 ;;; |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2008 ;;; 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
|
2009 ;;; |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2010 (defvar edt-last-answer nil |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2011 "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
|
2012 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2013 (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
|
2014 "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
|
2015 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
|
2016 Argument PROMPT is the prompt string. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2017 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
|
2018 (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
|
2019 (let ((doit t)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2020 (while doit |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2021 (setq doit nil) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2022 (let ((ans (read-char))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2023 (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
|
2024 (setq edt-last-answer t)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2025 ((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
|
2026 (setq edt-last-answer nil)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2027 ((= 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
|
2028 (t |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2029 (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
|
2030 (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
|
2031 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
|
2032 edt-last-answer) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2033 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2034 ;;; |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2035 ;;; INITIALIZATION COMMANDS. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2036 ;;; |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2037 |
35124
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 ;;; 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
|
2040 ;;; |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2041 (defun edt-load-keys (file) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2042 "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
|
2043 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
|
2044 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
|
2045 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
|
2046 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
|
2047 created." |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2048 (interactive "fKey definition file: ") |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2049 (cond (file |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2050 (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
|
2051 (edt-keys-file |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2052 (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
|
2053 (t |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2054 (setq file |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2055 (expand-file-name |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2056 (concat |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2057 "~/.edt-" edt-emacs-variant |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2058 (if edt-term (concat "-" edt-term)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2059 (if edt-xserver (concat "-" edt-xserver)) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2060 (if edt-window-system |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2061 (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
|
2062 "-keys"))))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2063 (cond ((file-readable-p file) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2064 (load-file file)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2065 (t |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2066 (switch-to-buffer "*scratch*") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2067 (erase-buffer) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2068 (insert " |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2069 |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2070 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
|
2071 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
|
2072 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
|
2073 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
|
2074 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
|
2075 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
|
2076 follows: |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2077 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2078 emacs -q -l edt-mapper.el |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2079 |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2080 [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
|
2081 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
|
2082 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2083 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
|
2084 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
|
2085 (let ((file "edt-mapper.el") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2086 (found nil) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2087 (path nil) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2088 (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
|
2089 (while (and (not found) search-list) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2090 (setq path (concat (car search-list) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2091 (if (string-match "/$" (car search-list)) "" "/") |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2092 file)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2093 (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
|
2094 (setq found t)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2095 (setq search-list (cdr search-list))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2096 (cond (found |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2097 (insert (format |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2098 "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
|
2099 (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
|
2100 (load-file path) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2101 (error "EDT Emulation not configured"))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2102 (t |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2103 (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
|
2104 (sit-for 20) |
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"))))))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2106 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2107 ;;; |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2108 ;;; 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
|
2109 ;;; |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2110 |
258 | 2111 ;;;###autoload |
57 | 2112 (defun edt-emulation-on () |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2113 "Turn on EDT Emulation." |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2114 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2115 ;; 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
|
2116 ;; 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
|
2117 ;; get terminal type. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2118 (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
|
2119 (setq edt-term "pc") |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2120 (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
|
2121 (setq edt-term (getenv "TERM")))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2122 ;; 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
|
2123 ;; 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
|
2124 (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
|
2125 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2126 ;; 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
|
2127 ;; 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
|
2128 ;; 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
|
2129 (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
|
2130 (setq edt-term "vt100")) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2131 (let ((term edt-term) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2132 hyphend) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2133 (while (and term |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2134 (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
|
2135 ;; 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
|
2136 (if (setq hyphend (string-match "[-_][^-_]+$" term)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2137 (setq term (substring term 0 hyphend)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2138 (setq term nil))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2139 ;; 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
|
2140 ;; custom EDT terminal configuration file. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2141 ;; 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
|
2142 ;; 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
|
2143 ;; message. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2144 (if (null term) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2145 (if (equal edt-term "pc") |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2146 (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
|
2147 (edt-load-keys nil)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2148 (setq edt-term term)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2149 (edt-load-keys nil)) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2150 ;; 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
|
2151 (if edt-gnu-emacs19-p |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2152 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2153 (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
|
2154 (add-hook 'activate-mark-hook |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2155 (function |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2156 (lambda () |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2157 (edt-select-mode t)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2158 (add-hook 'deactivate-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 nil))))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2162 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2163 (add-hook 'zmacs-activate-region-hook |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2164 (function |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2165 (lambda () |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2166 (edt-select-mode t)))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2167 (add-hook 'zmacs-deactivate-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 nil)))))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2171 ;; 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
|
2172 ;; Otherwise, use the default bindings. |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2173 (if (load "edt-user" t t) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2174 (edt-user-emulation-setup) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2175 (edt-default-emulation-setup))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2176 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2177 (defun edt-emulation-off() |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2178 "Select original global key bindings, disabling EDT Emulation." |
57 | 2179 (interactive) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2180 (use-global-map global-map) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2181 (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
|
2182 (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
|
2183 (setq edt-direction-string "") |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2184 (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
|
2185 (edt-reset) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2186 (force-mode-line-update t) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2187 (if edt-gnu-emacs19-p |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2188 (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
|
2189 (message "Original key bindings restored; EDT Emulation disabled")) |
57 | 2190 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2191 (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
|
2192 "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
|
2193 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
|
2194 `edt-user-emulation-setup'." |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2195 ;; 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
|
2196 ;; 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
|
2197 ;; 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
|
2198 ;; 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
|
2199 ;; 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
|
2200 (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
|
2201 (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
|
2202 (if edt-gnu-emacs19-p |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2203 (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
|
2204 (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
|
2205 (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
|
2206 (edt-setup-default-bindings) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2207 ;; 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
|
2208 ;; 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
|
2209 ;; function edt-setup-extra-default-bindings. |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2210 (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
|
2211 (edt-setup-extra-default-bindings)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2212 ;; Variable needed by edt-learn. |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2213 (setq edt-learn-macro-count 0) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2214 ;; 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
|
2215 (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
|
2216 (setq minor-mode-alist |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2217 (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
|
2218 ;; 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
|
2219 (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
|
2220 (setq minor-mode-alist |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2221 (cons |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2222 '(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
|
2223 (if user-setup |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2224 (progn |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2225 (setq edt-user-map-configured t) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2226 (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
|
2227 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2228 (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
|
2229 (edt-select-default-global-map)))) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2230 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2231 (defun edt-user-emulation-setup () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2232 "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
|
2233 ;; Initialize EDT default bindings. |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2234 (edt-default-emulation-setup t) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2235 ;; 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
|
2236 (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
|
2237 (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
|
2238 (if edt-gnu-emacs19-p |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2239 (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
|
2240 (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
|
2241 ;; 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
|
2242 ;; 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
|
2243 ;; function edt-setup-extra-default-bindings. |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2244 (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
|
2245 (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
|
2246 (edt-setup-user-bindings) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2247 (edt-select-user-global-map)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2248 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2249 (defun edt-select-default-global-map() |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2250 "Select default EDT emulation key bindings." |
57 | 2251 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2252 (if edt-gnu-emacs19-p |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2253 (transient-mark-mode 1)) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2254 (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
|
2255 (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
|
2256 (progn |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2257 (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
|
2258 (setq page-delimiter "\f"))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2259 (setq edt-default-map-active t) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2260 (edt-advance) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2261 (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
|
2262 (edt-reset) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2263 (message "Default EDT keymap active")) |
57 | 2264 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2265 (defun edt-select-user-global-map() |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2266 "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
|
2267 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2268 (if edt-user-map-configured |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2269 (progn |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2270 (if edt-gnu-emacs19-p |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2271 (transient-mark-mode 1)) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2272 (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
|
2273 (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
|
2274 (progn |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2275 (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
|
2276 (setq page-delimiter "\f"))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2277 (setq edt-default-map-active nil) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2278 (edt-advance) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2279 (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
|
2280 (edt-reset) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2281 (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
|
2282 (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
|
2283 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2284 (defun edt-switch-global-maps () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2285 "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
|
2286 (interactive) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2287 (if edt-default-map-active |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2288 (edt-select-user-global-map) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2289 (edt-select-default-global-map))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2290 |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2291 ;; |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2292 ;; 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
|
2293 ;; |
57 | 2294 |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2295 (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
|
2296 "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
|
2297 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
|
2298 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
|
2299 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
|
2300 (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
|
2301 (if (and key (not (equal key ""))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2302 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2303 (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
|
2304 (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
|
2305 |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2306 (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
|
2307 "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
|
2308 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
|
2309 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
|
2310 (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
|
2311 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2312 (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
|
2313 "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
|
2314 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
|
2315 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
|
2316 (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
|
2317 |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2318 ;; |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2319 ;; 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
|
2320 ;; |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2321 (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
|
2322 "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
|
2323 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
|
2324 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
|
2325 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
|
2326 (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
|
2327 (if (and key (not (equal key ""))) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2328 (progn |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2329 (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
|
2330 (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
|
2331 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2332 (defun edt-bind-key (key binding) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2333 "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
|
2334 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
|
2335 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
|
2336 (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
|
2337 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2338 ;; 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
|
2339 (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
|
2340 |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2341 (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
|
2342 "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
|
2343 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
|
2344 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
|
2345 (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
|
2346 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2347 (defun edt-setup-default-bindings () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2348 "Assigns default EDT Emulation keyboard bindings." |
3479
7cda082508c9
(GOLD-prefix): Define *after* GOLD-map.
Richard M. Stallman <rms@gnu.org>
parents:
2570
diff
changeset
|
2349 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2350 ;; Function Key Bindings: Regular and GOLD. |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2351 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2352 ;; 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
|
2353 (edt-bind-function-key-default "PF1" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2354 '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
|
2355 (edt-bind-function-key-default "PF2" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2356 'edt-electric-keypad-help 'describe-function) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2357 (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
|
2358 (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
|
2359 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2360 ;; VT100/VT200/VT300 Arrow Keys |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2361 (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
|
2362 (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
|
2363 (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
|
2364 (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
|
2365 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2366 ;; VT100/VT200/VT300 Keypad Keys |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2367 (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
|
2368 (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
|
2369 (edt-bind-function-key-default "KP2" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2370 '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
|
2371 (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
|
2372 (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
|
2373 (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
|
2374 (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
|
2375 (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
|
2376 (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
|
2377 (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
|
2378 (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
|
2379 (edt-bind-function-key-default "KP," |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2380 'edt-delete-character 'edt-undelete-character) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2381 (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
|
2382 (edt-bind-function-key-default "KPE" 'other-window 'edt-substitute) |
57 | 2383 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2384 ;; VT200/VT300 Function Keys |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2385 ;; (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
|
2386 ;; making default bindings to those keys. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2387 (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
|
2388 (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
|
2389 (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
|
2390 (edt-bind-function-key-default "SELECT" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2391 '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
|
2392 (edt-bind-function-key-default "NEXT" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2393 '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
|
2394 (edt-bind-function-key-default "PREVIOUS" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2395 '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
|
2396 (edt-bind-function-key-default "F6" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2397 '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
|
2398 (edt-bind-function-key-default "F7" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2399 '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
|
2400 (edt-bind-function-key-default "F8" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2401 '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
|
2402 (edt-bind-function-key-default "F9" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2403 '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
|
2404 (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
|
2405 ;; 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
|
2406 ;; 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
|
2407 ;; 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
|
2408 (edt-bind-function-key-default "F11" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2409 '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
|
2410 (edt-bind-function-key-default "F12" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2411 '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
|
2412 (edt-bind-function-key-default "F13" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2413 '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
|
2414 (edt-bind-function-key-default "F14" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2415 '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
|
2416 (edt-bind-function-key-default "HELP" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2417 '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
|
2418 (edt-bind-function-key-default "DO" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2419 '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
|
2420 (edt-bind-function-key-default "F17" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2421 '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
|
2422 (edt-bind-function-key-default "F18" |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2423 '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
|
2424 (edt-bind-function-key-default "F19" |
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 "F20" |
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) |
57 | 2428 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2429 ;; Control key bindings: Regular and GOLD |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2430 ;; |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2431 ;; 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
|
2432 ;; 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
|
2433 ;; 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
|
2434 ;; 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
|
2435 ;; 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
|
2436 ;; 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
|
2437 ;; used, instead. |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2438 (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
|
2439 (progn |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2440 (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
|
2441 (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
|
2442 ;; 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
|
2443 (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
|
2444 (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
|
2445 (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
|
2446 ;; 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
|
2447 (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
|
2448 (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
|
2449 (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
|
2450 (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
|
2451 (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
|
2452 (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
|
2453 ;; 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
|
2454 (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
|
2455 (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
|
2456 (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
|
2457 (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
|
2458 ;; 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
|
2459 ;; 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
|
2460 (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
|
2461 (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
|
2462 (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
|
2463 (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
|
2464 ;; 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
|
2465 (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
|
2466 ;; 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
|
2467 ) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2468 ) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2469 |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2470 ;; GOLD bindings for a few keys. |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2471 (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
|
2472 (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
|
2473 (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
|
2474 (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
|
2475 (edt-bind-gold-key-default "\C-\\" 'split-window-vertically) |
57 | 2476 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2477 ;; GOLD bindings for regular keys. |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2478 (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
|
2479 (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
|
2480 (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
|
2481 (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
|
2482 (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
|
2483 (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
|
2484 (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
|
2485 (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
|
2486 (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
|
2487 (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
|
2488 (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
|
2489 (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
|
2490 (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
|
2491 (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
|
2492 (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
|
2493 (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
|
2494 (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
|
2495 (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
|
2496 (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
|
2497 (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
|
2498 (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
|
2499 (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
|
2500 (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
|
2501 (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
|
2502 (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
|
2503 (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
|
2504 (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
|
2505 (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
|
2506 (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
|
2507 (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
|
2508 (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
|
2509 (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
|
2510 (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
|
2511 (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
|
2512 (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
|
2513 (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
|
2514 (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
|
2515 (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
|
2516 (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
|
2517 (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
|
2518 (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
|
2519 (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
|
2520 (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
|
2521 (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
|
2522 (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
|
2523 (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
|
2524 (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
|
2525 (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
|
2526 (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
|
2527 (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
|
2528 (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
|
2529 (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
|
2530 (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
|
2531 (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
|
2532 (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
|
2533 (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
|
2534 (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
|
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 "4" 'edt-key-not-assigned) |
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 "5" '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-goto-percentage) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2540 (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
|
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 "7" '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-key-not-assigned) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2544 (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
|
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 "9" '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 "0" '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 " " 'undo) |
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 "<" '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 ">" 'edt-key-not-assigned) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2555 (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
|
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 ";" 'edt-key-not-assigned) |
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 "=" 'goto-line) |
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 "]" 'edt-key-not-assigned) |
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 "`" 'what-line) |
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) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2573 ) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2574 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2575 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2576 ;;; DEFAULT EDT KEYPAD HELP |
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 ;;; 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
|
2581 ;;; 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
|
2582 ;;; 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
|
2583 ;;; commands or are native Emacs commands. |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2584 ;;; |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2585 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2586 (defun edt-keypad-help () |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2587 "DEFAULT EDT Keypad Active. |
57 | 2588 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2589 F7: Copy Rectangle +----------+----------+----------+----------+ |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2590 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
|
2591 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
|
2592 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
|
2593 G-F9: Paste Rect Insert +----------+----------+----------+----------+ |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2594 F10: Cut Rectangle |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2595 G-F10: Paste Rectangle |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2596 F11: ESC |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2597 F12: Begining of Line +----------+----------+----------+----------+ |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2598 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
|
2599 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
|
2600 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
|
2601 G-HELP: Emacs Help +----------+----------+----------+----------+ |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2602 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
|
2603 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
|
2604 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
|
2605 C-h: Beginning of Line +----------+----------+----------+----------+ |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2606 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
|
2607 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
|
2608 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
|
2609 C-k: Define Key +----------+----------+----------+----------+ |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2610 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
|
2611 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
|
2612 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
|
2613 C-r: Isearch Backward +---------------------+----------+ (ENTER) | |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2614 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
|
2615 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
|
2616 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
|
2617 C-v: Redraw Display +---------------------+----------+----------+ |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2618 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
|
2619 C-z: Suspend Emacs +----------+----------+----------+ |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2620 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
|
2621 | (FIND) | (INSERT) | (REMOVE) | |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2622 G-b: Buffer Menu | FIND | | COPY | |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2623 G-c: Compile +----------+----------+----------+ |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2624 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
|
2625 G-e: Exit | (SELECT) |(PREVIOUS)| (NEXT) | |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2626 G-f: Find File | | | | |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2627 G-g: Find File Other Window +----------+----------+----------+ |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2628 G-h: Keypad Help |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2629 G-i: Insert File |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2630 G-k: Toggle Capitalization Word |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2631 G-l: Downcase Region |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2632 G-m: Save Some Buffers |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2633 G-n: Next Error |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2634 G-o: Switch to Next Window |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2635 G-q: Quit |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2636 G-r: Revert File |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2637 G-s: Save Buffer |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2638 G-u: Upcase Region |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2639 G-v: Find File Other Window |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2640 G-w: Write file |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2641 G-y: EDT Emulation OFF |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2642 G-z: Switch to User EDT Key Bindings |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2643 G-1: Delete Other Windows |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2644 G-2: Split Window |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2645 G-%: Go to Percentage |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2646 G- : Undo (GOLD Spacebar) |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48259
diff
changeset
|
2647 G-=: Go to Line |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2648 G-`: What line |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2649 G-/: Query-Replace" |
57 | 2650 |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2651 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2652 (describe-function 'edt-keypad-help)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2653 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2654 (defun edt-electric-helpify (fun) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2655 (let ((name "*Help*")) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2656 (if (save-window-excursion |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2657 (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
|
2658 (b (get-buffer name)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2659 (m (buffer-modified-p b))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2660 (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
|
2661 (setq b nil)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2662 (unwind-protect |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2663 (progn |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2664 (message "%s..." (capitalize (symbol-name fun))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2665 (and b |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2666 (save-excursion |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2667 (set-buffer b) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2668 (set-buffer-modified-p t))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2669 (fset 'print-help-return-message 'ignore) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2670 (call-interactively fun) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2671 (and (get-buffer name) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2672 (get-buffer-window (get-buffer name)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2673 (or (not b) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2674 (not (eq b (get-buffer name))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2675 (not (buffer-modified-p b))))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2676 (fset 'print-help-return-message p) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2677 (and b (buffer-name b) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2678 (save-excursion |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2679 (set-buffer b) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2680 (set-buffer-modified-p m)))))) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2681 (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
|
2682 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2683 (defun edt-electric-keypad-help () |
11442 | 2684 "Display default EDT bindings." |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2685 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2686 (edt-electric-helpify 'edt-keypad-help)) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2687 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2688 (defun edt-electric-user-keypad-help () |
11442 | 2689 "Display user custom EDT bindings." |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2690 (interactive) |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2691 (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
|
2692 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2693 ;;; |
13058
1d26583f8c2b
(edt-set-screen-width-80, edt-set-screen-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
12421
diff
changeset
|
2694 ;;; EDT emulation screen width commands. |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2695 ;;; |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2696 ;; 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
|
2697 ;; 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
|
2698 ;; 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
|
2699 ;; specific file, if needed. |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2700 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2701 (defun edt-set-screen-width-80 () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2702 "Set screen width to 80 columns." |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2703 (interactive) |
13058
1d26583f8c2b
(edt-set-screen-width-80, edt-set-screen-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
12421
diff
changeset
|
2704 (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
|
2705 (edt-set-term-width-80)) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2706 (set-frame-width nil 80) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2707 (message "Terminal width 80")) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2708 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2709 (defun edt-set-screen-width-132 () |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2710 "Set screen width to 132 columns." |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2711 (interactive) |
13058
1d26583f8c2b
(edt-set-screen-width-80, edt-set-screen-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
12421
diff
changeset
|
2712 (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
|
2713 (edt-set-term-width-132)) |
35124
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2714 (set-frame-width nil 132) |
0b78d7b101c2
Update to version 4.0. Provide support for
Gerd Moellmann <gerd@gnu.org>
parents:
18943
diff
changeset
|
2715 (message "Terminal width 132")) |
10689
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2716 |
5adde53bae4b
New enhanced version from <kgallagh@spd.dsccc.com>.
Karl Heuer <kwzh@gnu.org>
parents:
7300
diff
changeset
|
2717 (provide 'edt) |
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
258
diff
changeset
|
2718 |
52401 | 2719 ;;; arch-tag: 18d1c54f-6900-4078-8bbc-7c2292f48941 |
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
258
diff
changeset
|
2720 ;;; edt.el ends here |