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