Mercurial > emacs
annotate lisp/emulation/cua-base.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 | 0d644f70ff05 |
children | ac0efac52065 d59242324437 edf631bdbb7a dd7c098af727 |
rev | line source |
---|---|
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1 ;;; cua-base.el --- emulate CUA key bindings |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
2 |
64701
34bd8e434dd7
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64558
diff
changeset
|
3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
75346 | 4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
5 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
6 ;; Author: Kim F. Storm <storm@cua.dk> |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
7 ;; Keywords: keyboard emulation convenience cua |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
8 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
10 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
13 ;; the Free Software Foundation; either version 2, or (at your option) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
14 ;; any later version. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
15 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
19 ;; GNU General Public License for more details. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
20 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
24 ;; Boston, MA 02110-1301, USA. | |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
25 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
26 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
27 ;;; Commentary: |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
28 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
29 ;; This is the CUA package which provides a complete emulation of the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
30 ;; standard CUA key bindings (Motif/Windows/Mac GUI) for selecting and |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
31 ;; manipulating the region where S-<movement> is used to highlight & |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
32 ;; extend the region. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
33 |
45520
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
34 ;; CUA style key bindings for cut and paste |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
35 ;; ---------------------------------------- |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
36 |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
37 ;; This package allows the C-z, C-x, C-c, and C-v keys to be |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
38 ;; bound appropriately according to the Motif/Windows GUI, i.e. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
39 ;; C-z -> undo |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
40 ;; C-x -> cut |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
41 ;; C-c -> copy |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
42 ;; C-v -> paste |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
43 ;; |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
44 ;; The tricky part is the handling of the C-x and C-c keys which |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
45 ;; are normally used as prefix keys for most of emacs' built-in |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
46 ;; commands. With CUA they still do!!! |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
47 ;; |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
48 ;; Only when the region is currently active (and highlighted since |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
49 ;; transient-mark-mode is used), the C-x and C-c keys will work as CUA |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
50 ;; keys |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
51 ;; C-x -> cut |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
52 ;; C-c -> copy |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
53 ;; When the region is not active, C-x and C-c works as prefix keys! |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
54 ;; |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
55 ;; This probably sounds strange and difficult to get used to - but |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
56 ;; based on my own experience and the feedback from many users of |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
57 ;; this package, it actually works very well and users adapt to it |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
58 ;; instantly - or at least very quickly. So give it a try! |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
59 ;; ... and in the few cases where you make a mistake and accidentally |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
60 ;; delete the region - you just undo the mistake (with C-z). |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
61 ;; |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
62 ;; If you really need to perform a command which starts with one of |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
63 ;; the prefix keys even when the region is active, you have three options: |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
64 ;; - press the prefix key twice very quickly (within 0.2 seconds), |
64558
19736ad15819
(cua-mode, cua-enable-register-prefix, cua-enable-cua-keys, cua-use-hyper-key,
Juanma Barranquero <lekktu@gmail.com>
parents:
64527
diff
changeset
|
65 ;; - press the prefix key and the following key within 0.2 seconds, or |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
66 ;; - use the SHIFT key with the prefix key, i.e. C-X or C-C |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
67 ;; |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
68 ;; This behaviour can be customized via the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
69 ;; cua-prefix-override-inhibit-delay variable. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
70 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
71 ;; In addition to using the shifted movement keys, you can also use |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
72 ;; [C-space] to start the region and use unshifted movement keys to extend |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
73 ;; it. To cancel the region, use [C-space] or [C-g]. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
74 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
75 ;; If you prefer to use the standard emacs cut, copy, paste, and undo |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
76 ;; bindings, customize cua-enable-cua-keys to nil. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
77 |
45520
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
78 |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
79 ;; Typing text replaces the region |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
80 ;; ------------------------------- |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
81 |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
82 ;; When the region is active, i.e. highlighted, the text in region is |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
83 ;; replaced by the text you type. |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
84 |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
85 ;; The replaced text is saved in register 0 which can be inserted using |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
86 ;; the key sequence M-0 C-v (see the section on register support below). |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
87 |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
88 ;; If you have just replaced a highlighted region with typed text, |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
89 ;; you can repeat the replace with M-v. This will search forward |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
90 ;; for a streach of text identical to the previous contents of the |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
91 ;; region (i.e. the contents of register 0) and replace it with the |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
92 ;; text you typed to replace the original region. Repeating M-v will |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
93 ;; replace the next matching region and so on. |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
94 ;; |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
95 ;; Example: Suppose you have a line like this |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
96 ;; The redo operation will redo the last redoable command |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
97 ;; which you want to change into |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
98 ;; The repeat operation will repeat the last repeatable command |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
99 ;; This is done by highlighting the first occurrence of "redo" |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
100 ;; and type "repeat" M-v M-v. |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
101 |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
102 ;; Note: Since CUA-mode duplicates the functionality of the |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
103 ;; delete-selection-mode, that mode is automatically disabled when |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
104 ;; CUA-mode is enabled. |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
105 |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
106 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
107 ;; CUA mode indications |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
108 ;; -------------------- |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
109 ;; You can choose to let CUA use different cursor colors to indicate |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
110 ;; overwrite mode and read-only buffers. For example, the following |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
111 ;; setting will use a RED cursor in normal (insertion) mode in |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
112 ;; read-write buffers, a YELLOW cursor in overwrite mode in read-write |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
113 ;; buffers, and a GREEN cursor read-only buffers: |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
114 ;; |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
115 ;; (setq cua-normal-cursor-color "red") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
116 ;; (setq cua-overwrite-cursor-color "yellow") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
117 ;; (setq cua-read-only-cursor-color "green") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
118 ;; |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
119 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
120 ;; CUA register support |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
121 ;; -------------------- |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
122 ;; Emacs' standard register support is also based on a separate set of |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
123 ;; "register commands". |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
124 ;; |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
125 ;; CUA's register support is activated by providing a numeric |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
126 ;; prefix argument to the C-x, C-c, and C-v commands. For example, |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
127 ;; to copy the selected region to register 2, enter [M-2 C-c]. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
128 ;; Or if you have activated the keypad prefix mode, enter [kp-2 C-c]. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
129 ;; |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
130 ;; And CUA will copy and paste normal region as well as rectangles |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
131 ;; into the registers, i.e. you use exactly the same command for both. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
132 ;; |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
133 ;; In addition, the last highlighted text that is deleted (not |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
134 ;; copied), e.g. by [delete] or by typing text over a highlighted |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
135 ;; region, is automatically saved in register 0, so you can insert it |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
136 ;; using [M-0 C-v]. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
137 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
138 ;; CUA rectangle support |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
139 ;; --------------------- |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
140 ;; Emacs' normal rectangle support is based on interpreting the region |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
141 ;; between the mark and point as a "virtual rectangle", and using a |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
142 ;; completely separate set of "rectangle commands" [C-x r ...] on the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
143 ;; region to copy, kill, fill a.s.o. the virtual rectangle. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
144 ;; |
56839
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
145 ;; cua-mode's superior rectangle support uses a true visual |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
146 ;; representation of the selected rectangle, i.e. it highlights the |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
147 ;; actual part of the buffer that is currently selected as part of the |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
148 ;; rectangle. Unlike emacs' traditional rectangle commands, the |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
149 ;; selected rectangle always as straight left and right edges, even |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
150 ;; when those are in the middle of a TAB character or beyond the end |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
151 ;; of the current line. And it does this without actually modifying |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
152 ;; the buffer contents (it uses display overlays to visualize the |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
153 ;; virtual dimensions of the rectangle). |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
154 ;; |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
155 ;; This means that cua-mode's rectangles are not limited to the actual |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
156 ;; contents of the buffer, so if the cursor is currently at the end of a |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
157 ;; short line, you can still extend the rectangle to include more columns |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
158 ;; of longer lines in the same rectangle. And you can also have the |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
159 ;; left edge of a rectangle start in the middle of a TAB character. |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
160 ;; Sounds strange? Try it! |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
161 ;; |
62449
be9a675832ec
(cua-use-hyper-key): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
62440
diff
changeset
|
162 ;; To start a rectangle, use [C-return] and extend it using the normal |
56839
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
163 ;; movement keys (up, down, left, right, home, end, C-home, |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
164 ;; C-end). Once the rectangle has the desired size, you can cut or |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
165 ;; copy it using C-x and C-c (or C-w and M-w), and you can |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
166 ;; subsequently insert it - as a rectangle - using C-v (or C-y). So |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
167 ;; the only new command you need to know to work with cua-mode |
62449
be9a675832ec
(cua-use-hyper-key): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
62440
diff
changeset
|
168 ;; rectangles is C-return! |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
169 ;; |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
170 ;; Normally, when you paste a rectangle using C-v (C-y), each line of |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
171 ;; the rectangle is inserted into the existing lines in the buffer. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
172 ;; If overwrite-mode is active when you paste a rectangle, it is |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
173 ;; inserted as normal (multi-line) text. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
174 ;; |
56839
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
175 ;; If you prefer the traditional rectangle marking (i.e. don't want |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
176 ;; straight edges), [M-p] toggles this for the current rectangle, |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
177 ;; or you can customize cua-virtual-rectangle-edges. |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
178 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
179 ;; And there's more: If you want to extend or reduce the size of the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
180 ;; rectangle in one of the other corners of the rectangle, just use |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
181 ;; [return] to move the cursor to the "next" corner. Or you can use |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
182 ;; the [M-up], [M-down], [M-left], and [M-right] keys to move the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
183 ;; entire rectangle overlay (but not the contents) in the given |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
184 ;; direction. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
185 ;; |
62449
be9a675832ec
(cua-use-hyper-key): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
62440
diff
changeset
|
186 ;; [C-return] cancels the rectangle |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
187 ;; [C-space] activates the region bounded by the rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
188 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
189 ;; If you type a normal (self-inserting) character when the rectangle is |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
190 ;; active, the character is inserted on the "current side" of every line |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
191 ;; of the rectangle. The "current side" is the side on which the cursor |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
192 ;; is currently located. If the rectangle is only 1 column wide, |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
193 ;; insertion will be performed to the left when the cursor is at the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
194 ;; bottom of the rectangle. So, for example, to comment out an entire |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
195 ;; paragraph like this one, just place the cursor on the first character |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
196 ;; of the first line, and enter the following: |
62449
be9a675832ec
(cua-use-hyper-key): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
62440
diff
changeset
|
197 ;; C-return M-} ; ; <space> C-return |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
198 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
199 ;; cua-mode's rectangle support also includes all the normal rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
200 ;; functions with easy access: |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
201 ;; |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
202 ;; [M-a] aligns all words at the left edge of the rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
203 ;; [M-b] fills the rectangle with blanks (tabs and spaces) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
204 ;; [M-c] closes the rectangle by removing all blanks at the left edge |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
205 ;; of the rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
206 ;; [M-f] fills the rectangle with a single character (prompt) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
207 ;; [M-i] increases the first number found on each line of the rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
208 ;; by the amount given by the numeric prefix argument (default 1) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
209 ;; It recognizes 0x... as hexadecimal numbers |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
210 ;; [M-k] kills the rectangle as normal multi-line text (for paste) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
211 ;; [M-l] downcases the rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
212 ;; [M-m] copies the rectangle as normal multi-line text (for paste) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
213 ;; [M-n] fills each line of the rectangle with increasing numbers using |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
214 ;; a supplied format string (prompt) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
215 ;; [M-o] opens the rectangle by moving the highlighted text to the |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
216 ;; right of the rectangle and filling the rectangle with blanks. |
56839
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
217 ;; [M-p] toggles virtual straight rectangle edges |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
218 ;; [M-P] inserts tabs and spaces (padding) to make real straight edges |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
219 ;; [M-q] performs text filling on the rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
220 ;; [M-r] replaces REGEXP (prompt) by STRING (prompt) in rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
221 ;; [M-R] reverse the lines in the rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
222 ;; [M-s] fills each line of the rectangle with the same STRING (prompt) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
223 ;; [M-t] performs text fill of the rectangle with TEXT (prompt) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
224 ;; [M-u] upcases the rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
225 ;; [M-|] runs shell command on rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
226 ;; [M-'] restricts rectangle to lines with CHAR (prompt) at left column |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
227 ;; [M-/] restricts rectangle to lines matching REGEXP (prompt) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
228 ;; [C-?] Shows a brief list of the above commands. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
229 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
230 ;; [M-C-up] and [M-C-down] scrolls the lines INSIDE the rectangle up |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
231 ;; and down; lines scrolled outside the top or bottom of the rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
232 ;; are lost, but can be recovered using [C-z]. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
233 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
234 ;; CUA Global Mark |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
235 ;; --------------- |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
236 ;; The final feature provided by CUA is the "global mark", which |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
237 ;; makes it very easy to copy bits and pieces from the same and other |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
238 ;; files into the current text. To enable and cancel the global mark, |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
239 ;; use [S-C-space]. The cursor will blink when the global mark |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
240 ;; is active. The following commands behave differently when the global |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
241 ;; mark is set: |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
242 ;; <ch> All characters (including newlines) you type are inserted |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
243 ;; at the global mark! |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
244 ;; [C-x] If you cut a region or rectangle, it is automatically inserted |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
245 ;; at the global mark, and the global mark is advanced. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
246 ;; [C-c] If you copy a region or rectangle, it is immediately inserted |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
247 ;; at the global mark, and the global mark is advanced. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
248 ;; [C-v] Copies a single character to the global mark. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
249 ;; [C-d] Moves (i.e. deletes and inserts) a single character to the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
250 ;; global mark. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
251 ;; [backspace] deletes the character before the global mark, while |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
252 ;; [delete] deltes the character after the global mark. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
253 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
254 ;; [S-C-space] Jumps to and cancels the global mark. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
255 ;; [C-u S-C-space] Cancels the global mark (stays in current buffer). |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
256 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
257 ;; [TAB] Indents the current line or rectangle to the column of the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
258 ;; global mark. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
259 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
260 ;;; Code: |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
261 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
262 ;;; Customization |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
263 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
264 (defgroup cua nil |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
265 "Emulate CUA key bindings including C-x and C-c." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
266 :prefix "cua" |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
267 :group 'editing-basics |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
268 :group 'convenience |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
269 :group 'emulations |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59972
diff
changeset
|
270 :version "22.1" |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
271 :link '(emacs-commentary-link :tag "Commentary" "cua-base.el") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
272 :link '(emacs-library-link :tag "Lisp File" "cua-base.el")) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
273 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
274 (defcustom cua-enable-cua-keys t |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
275 "*Enable using C-z, C-x, C-c, and C-v for undo, cut, copy, and paste. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
276 If the value is t, these mappings are always enabled. If the value is |
64558
19736ad15819
(cua-mode, cua-enable-register-prefix, cua-enable-cua-keys, cua-use-hyper-key,
Juanma Barranquero <lekktu@gmail.com>
parents:
64527
diff
changeset
|
277 `shift', these keys are only enabled if the last region was marked with |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
278 a shifted movement key. If the value is nil, these keys are never |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
279 enabled." |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
280 :type '(choice (const :tag "Disabled" nil) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
281 (const :tag "Shift region only" shift) |
45231 | 282 (other :tag "Enabled" t)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
283 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
284 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
285 (defcustom cua-highlight-region-shift-only nil |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
286 "*If non-nil, only highlight region if marked with S-<move>. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
287 When this is non-nil, CUA toggles `transient-mark-mode' on when the region |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
288 is marked using shifted movement keys, and off when the mark is cleared. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
289 But when the mark was set using \\[cua-set-mark], transient-mark-mode |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
290 is not turned on." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
291 :type 'boolean |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
292 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
293 |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
294 (defcustom cua-prefix-override-inhibit-delay |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
295 (if (featurep 'lisp-float-type) (/ (float 1) (float 5)) nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
296 "*If non-nil, time in seconds to delay before overriding prefix key. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
297 If there is additional input within this time, the prefix key is |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
298 used as a normal prefix key. So typing a key sequence quickly will |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
299 inhibit overriding the prefix key. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
300 As a special case, if the prefix keys repeated within this time, the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
301 first prefix key is discarded, so typing a prefix key twice in quick |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
302 succession will also inhibit overriding the prefix key. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
303 If the value is nil, use a shifted prefix key to inhibit the override." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
304 :type '(choice (number :tag "Inhibit delay") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
305 (const :tag "No delay" nil)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
306 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
307 |
71905
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
308 (defcustom cua-delete-selection t |
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
309 "*If non-nil, typed text replaces text in the active selection." |
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
310 :type '(choice (const :tag "Disabled" nil) |
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
311 (other :tag "Enabled" t)) |
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
312 :group 'cua) |
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
313 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
314 (defcustom cua-keep-region-after-copy nil |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
315 "If non-nil, don't deselect the region after copying." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
316 :type 'boolean |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
317 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
318 |
71905
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
319 (defcustom cua-toggle-set-mark t |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
320 "*If non-nil, the `cua-set-mark' command toggles the mark." |
71905
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
321 :type '(choice (const :tag "Disabled" nil) |
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
322 (other :tag "Enabled" t)) |
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
323 :group 'cua) |
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
324 |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
325 (defcustom cua-auto-mark-last-change nil |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
326 "*If non-nil, set implicit mark at position of last buffer change. |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
327 This means that \\[universal-argument] \\[cua-set-mark] will jump to the position |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
328 of the last buffer change before jumping to the explicit marks on the mark ring. |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
329 See `cua-set-mark' for details." |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
330 :type 'boolean |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
331 :group 'cua) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
332 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
333 (defcustom cua-enable-register-prefix 'not-ctrl-u |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
334 "*If non-nil, registers are supported via numeric prefix arg. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
335 If the value is t, any numeric prefix arg in the range 0 to 9 will be |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
336 interpreted as a register number. |
64558
19736ad15819
(cua-mode, cua-enable-register-prefix, cua-enable-cua-keys, cua-use-hyper-key,
Juanma Barranquero <lekktu@gmail.com>
parents:
64527
diff
changeset
|
337 If the value is `not-ctrl-u', using C-u to enter a numeric prefix is not |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
338 interpreted as a register number. |
64558
19736ad15819
(cua-mode, cua-enable-register-prefix, cua-enable-cua-keys, cua-use-hyper-key,
Juanma Barranquero <lekktu@gmail.com>
parents:
64527
diff
changeset
|
339 If the value is `ctrl-u-only', only numeric prefix entered with C-u is |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
340 interpreted as a register number." |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
341 :type '(choice (const :tag "Disabled" nil) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
342 (const :tag "Enabled, but C-u arg is not a register" not-ctrl-u) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
343 (const :tag "Enabled, but only for C-u arg" ctrl-u-only) |
45231 | 344 (other :tag "Enabled" t)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
345 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
346 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
347 (defcustom cua-delete-copy-to-register-0 t |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
348 "*If non-nil, save last deleted region or rectangle to register 0." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
349 :type 'boolean |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
350 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
351 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
352 (defcustom cua-enable-region-auto-help nil |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
353 "*If non-nil, automatically show help for active region." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
354 :type 'boolean |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
355 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
356 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
357 (defcustom cua-enable-modeline-indications nil |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
358 "*If non-nil, use minor-mode hook to show status in mode line." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
359 :type 'boolean |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
360 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
361 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
362 (defcustom cua-check-pending-input t |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
363 "*If non-nil, don't override prefix key if input pending. |
63869
e7c533a3b1b9
(cua-check-pending-input, cua-repeat-replace-region, cua-mode, cua-debug,
Juanma Barranquero <lekktu@gmail.com>
parents:
63388
diff
changeset
|
364 It is rumoured that `input-pending-p' is unreliable under some window |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
365 managers, so try setting this to nil, if prefix override doesn't work." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
366 :type 'boolean |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
367 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
368 |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
369 (defcustom cua-paste-pop-rotate-temporarily nil |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
370 "*If non-nil, \\[cua-paste-pop] only rotates the kill-ring temporarily. |
74454
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
371 This means that both \\[yank] and the first \\[yank-pop] in a sequence always insert |
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
372 the most recently killed text. Each immediately following \\[cua-paste-pop] replaces |
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
373 the previous text with the next older element on the `kill-ring'. |
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
374 With prefix arg, \\[universal-argument] \\[yank-pop] inserts the same text as the most |
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
375 recent \\[yank-pop] (or \\[yank]) command." |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
376 :type 'boolean |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
377 :group 'cua) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
378 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
379 ;;; Rectangle Customization |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
380 |
56839
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
381 (defcustom cua-virtual-rectangle-edges t |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
382 "*If non-nil, rectangles have virtual straight edges. |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
383 Note that although rectangles are always DISPLAYED with straight edges, the |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
384 buffer is NOT modified, until you execute a command that actually modifies it. |
64558
19736ad15819
(cua-mode, cua-enable-register-prefix, cua-enable-cua-keys, cua-use-hyper-key,
Juanma Barranquero <lekktu@gmail.com>
parents:
64527
diff
changeset
|
385 M-p toggles this feature when a rectangle is active." |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
386 :type 'boolean |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
387 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
388 |
56839
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
389 (defcustom cua-auto-tabify-rectangles 1000 |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
390 "*If non-nil, automatically tabify after rectangle commands. |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
391 This basically means that `tabify' is applied to all lines that |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
392 are modified by inserting or deleting a rectangle. If value is |
63869
e7c533a3b1b9
(cua-check-pending-input, cua-repeat-replace-region, cua-mode, cua-debug,
Juanma Barranquero <lekktu@gmail.com>
parents:
63388
diff
changeset
|
393 an integer, CUA will look for existing tabs in a region around |
56839
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
394 the rectangle, and only do the conversion if any tabs are already |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
395 present. The number specifies then number of characters before |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
396 and after the region marked by the rectangle to search." |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
397 :type '(choice (number :tag "Auto detect (limit)") |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
398 (const :tag "Disabled" nil) |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
399 (other :tag "Enabled" t)) |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
400 :group 'cua) |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
401 |
75488
cfbd9931b493
(cua-global-keymap, cua--region-keymap):
Kim F. Storm <storm@cua.dk>
parents:
75346
diff
changeset
|
402 (defvar cua-global-keymap) ; forward |
cfbd9931b493
(cua-global-keymap, cua--region-keymap):
Kim F. Storm <storm@cua.dk>
parents:
75346
diff
changeset
|
403 (defvar cua--region-keymap) ; forward |
cfbd9931b493
(cua-global-keymap, cua--region-keymap):
Kim F. Storm <storm@cua.dk>
parents:
75346
diff
changeset
|
404 |
69668
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
405 (defcustom cua-rectangle-mark-key [(control return)] |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
406 "Global key used to toggle the cua rectangle mark." |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
407 :set #'(lambda (symbol value) |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
408 (set symbol value) |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
409 (when (and (boundp 'cua--keymaps-initalized) |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
410 cua--keymaps-initalized) |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
411 (define-key cua-global-keymap value |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
412 'cua-set-rectangle-mark) |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
413 (when (boundp 'cua--rectangle-keymap) |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
414 (define-key cua--rectangle-keymap value |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
415 'cua-clear-rectangle-mark) |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
416 (define-key cua--region-keymap value |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
417 'cua-toggle-rectangle-mark)))) |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
418 :type 'key-sequence |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
419 :group 'cua) |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
420 |
67405
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
421 (defcustom cua-rectangle-modifier-key 'meta |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
422 "*Modifier key used for rectangle commands bindings. |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
423 On non-window systems, always use the meta modifier. |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
424 Must be set prior to enabling CUA." |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
425 :type '(choice (const :tag "Meta key" meta) |
71905
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
426 (const :tag "Alt key" alt) |
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
427 (const :tag "Hyper key" hyper) |
67405
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
428 (const :tag "Super key" super)) |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
429 :group 'cua) |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
430 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
431 (defcustom cua-enable-rectangle-auto-help t |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
432 "*If non-nil, automatically show help for region, rectangle and global mark." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
433 :type 'boolean |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
434 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
435 |
63073
f1bf3660220e
* emulation/cua-base.el (cua-rectangle, cua-rectangle-noselect)
Kim F. Storm <storm@cua.dk>
parents:
62449
diff
changeset
|
436 (defface cua-rectangle |
61509 | 437 '((default :inherit region) |
438 (((class color)) :foreground "white" :background "maroon")) | |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
439 "*Font used by CUA for highlighting the rectangle." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
440 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
441 |
63073
f1bf3660220e
* emulation/cua-base.el (cua-rectangle, cua-rectangle-noselect)
Kim F. Storm <storm@cua.dk>
parents:
62449
diff
changeset
|
442 (defface cua-rectangle-noselect |
61509 | 443 '((default :inherit region) |
444 (((class color)) :foreground "white" :background "dimgray")) | |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
445 "*Font used by CUA for highlighting the non-selected rectangle lines." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
446 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
447 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
448 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
449 ;;; Global Mark Customization |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
450 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
451 (defcustom cua-global-mark-keep-visible t |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
452 "*If non-nil, always keep global mark visible in other window." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
453 :type 'boolean |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
454 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
455 |
63073
f1bf3660220e
* emulation/cua-base.el (cua-rectangle, cua-rectangle-noselect)
Kim F. Storm <storm@cua.dk>
parents:
62449
diff
changeset
|
456 (defface cua-global-mark |
61587
15ece4eaca8d
(cua-global-mark-face): Add special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
61509
diff
changeset
|
457 '((((min-colors 88)(class color)) :foreground "black" :background "yellow1") |
15ece4eaca8d
(cua-global-mark-face): Add special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
61509
diff
changeset
|
458 (((class color)) :foreground "black" :background "yellow") |
61509 | 459 (t :bold t)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
460 "*Font used by CUA for highlighting the global mark." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
461 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
462 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
463 (defcustom cua-global-mark-blink-cursor-interval 0.20 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
464 "*Blink cursor at this interval when global mark is active." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
465 :type '(choice (number :tag "Blink interval") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
466 (const :tag "No blink" nil)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
467 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
468 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
469 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
470 ;;; Cursor Indication Customization |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
471 |
45278
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
472 (defcustom cua-enable-cursor-indications nil |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
473 "*If non-nil, use different cursor colors for indications." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
474 :type 'boolean |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
475 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
476 |
47777
6a7ae10d9c96
(cua-normal-cursor-color): Fixed
Kim F. Storm <storm@cua.dk>
parents:
45954
diff
changeset
|
477 (defcustom cua-normal-cursor-color (or (and (boundp 'initial-cursor-color) initial-cursor-color) |
6a7ae10d9c96
(cua-normal-cursor-color): Fixed
Kim F. Storm <storm@cua.dk>
parents:
45954
diff
changeset
|
478 (and (boundp 'initial-frame-alist) |
6a7ae10d9c96
(cua-normal-cursor-color): Fixed
Kim F. Storm <storm@cua.dk>
parents:
45954
diff
changeset
|
479 (assoc 'cursor-color initial-frame-alist) |
6a7ae10d9c96
(cua-normal-cursor-color): Fixed
Kim F. Storm <storm@cua.dk>
parents:
45954
diff
changeset
|
480 (cdr (assoc 'cursor-color initial-frame-alist))) |
6a7ae10d9c96
(cua-normal-cursor-color): Fixed
Kim F. Storm <storm@cua.dk>
parents:
45954
diff
changeset
|
481 (and (boundp 'default-frame-alist) |
6a7ae10d9c96
(cua-normal-cursor-color): Fixed
Kim F. Storm <storm@cua.dk>
parents:
45954
diff
changeset
|
482 (assoc 'cursor-color default-frame-alist) |
6a7ae10d9c96
(cua-normal-cursor-color): Fixed
Kim F. Storm <storm@cua.dk>
parents:
45954
diff
changeset
|
483 (cdr (assoc 'cursor-color default-frame-alist))) |
6a7ae10d9c96
(cua-normal-cursor-color): Fixed
Kim F. Storm <storm@cua.dk>
parents:
45954
diff
changeset
|
484 (frame-parameter nil 'cursor-color) |
6a7ae10d9c96
(cua-normal-cursor-color): Fixed
Kim F. Storm <storm@cua.dk>
parents:
45954
diff
changeset
|
485 "red") |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
486 "Normal (non-overwrite) cursor color. |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
487 Default is to load cursor color from initial or default frame parameters. |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
488 |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
489 If the value is a COLOR name, then only the `cursor-color' attribute will be |
55271
d7007197f057
Change cursor-type block to hollow.
Kim F. Storm <storm@cua.dk>
parents:
55267
diff
changeset
|
490 affected. If the value is a cursor TYPE (one of: box, hollow, bar, or hbar), |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
491 then only the `cursor-type' property will be affected. If the value is |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
492 a cons (TYPE . COLOR), then both properties are affected." |
47777
6a7ae10d9c96
(cua-normal-cursor-color): Fixed
Kim F. Storm <storm@cua.dk>
parents:
45954
diff
changeset
|
493 :initialize 'custom-initialize-default |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
494 :type '(choice |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
495 (color :tag "Color") |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
496 (choice :tag "Type" |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
497 (const :tag "Filled box" box) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
498 (const :tag "Vertical bar" bar) |
63180
78264fe43c01
(cua-normal-cursor-color, cua-read-only-cursor-color,
Juanma Barranquero <lekktu@gmail.com>
parents:
63073
diff
changeset
|
499 (const :tag "Horizontal bar" hbar) |
55271
d7007197f057
Change cursor-type block to hollow.
Kim F. Storm <storm@cua.dk>
parents:
55267
diff
changeset
|
500 (const :tag "Hollow box" hollow)) |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
501 (cons :tag "Color and Type" |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
502 (choice :tag "Type" |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
503 (const :tag "Filled box" box) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
504 (const :tag "Vertical bar" bar) |
63180
78264fe43c01
(cua-normal-cursor-color, cua-read-only-cursor-color,
Juanma Barranquero <lekktu@gmail.com>
parents:
63073
diff
changeset
|
505 (const :tag "Horizontal bar" hbar) |
55271
d7007197f057
Change cursor-type block to hollow.
Kim F. Storm <storm@cua.dk>
parents:
55267
diff
changeset
|
506 (const :tag "Hollow box" hollow)) |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
507 (color :tag "Color"))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
508 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
509 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
510 (defcustom cua-read-only-cursor-color "darkgreen" |
54851 | 511 "*Cursor color used in read-only buffers, if non-nil. |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
512 Only used when `cua-enable-cursor-indications' is non-nil. |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
513 |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
514 If the value is a COLOR name, then only the `cursor-color' attribute will be |
55271
d7007197f057
Change cursor-type block to hollow.
Kim F. Storm <storm@cua.dk>
parents:
55267
diff
changeset
|
515 affected. If the value is a cursor TYPE (one of: box, hollow, bar, or hbar), |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
516 then only the `cursor-type' property will be affected. If the value is |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
517 a cons (TYPE . COLOR), then both properties are affected." |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
518 :type '(choice |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
519 (color :tag "Color") |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
520 (choice :tag "Type" |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
521 (const :tag "Filled box" box) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
522 (const :tag "Vertical bar" bar) |
63180
78264fe43c01
(cua-normal-cursor-color, cua-read-only-cursor-color,
Juanma Barranquero <lekktu@gmail.com>
parents:
63073
diff
changeset
|
523 (const :tag "Horizontal bar" hbar) |
55271
d7007197f057
Change cursor-type block to hollow.
Kim F. Storm <storm@cua.dk>
parents:
55267
diff
changeset
|
524 (const :tag "Hollow box" hollow)) |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
525 (cons :tag "Color and Type" |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
526 (choice :tag "Type" |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
527 (const :tag "Filled box" box) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
528 (const :tag "Vertical bar" bar) |
63180
78264fe43c01
(cua-normal-cursor-color, cua-read-only-cursor-color,
Juanma Barranquero <lekktu@gmail.com>
parents:
63073
diff
changeset
|
529 (const :tag "Horizontal bar" hbar) |
55271
d7007197f057
Change cursor-type block to hollow.
Kim F. Storm <storm@cua.dk>
parents:
55267
diff
changeset
|
530 (const :tag "Hollow box" hollow)) |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
531 (color :tag "Color"))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
532 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
533 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
534 (defcustom cua-overwrite-cursor-color "yellow" |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
535 "*Cursor color used when overwrite mode is set, if non-nil. |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
536 Only used when `cua-enable-cursor-indications' is non-nil. |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
537 |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
538 If the value is a COLOR name, then only the `cursor-color' attribute will be |
55271
d7007197f057
Change cursor-type block to hollow.
Kim F. Storm <storm@cua.dk>
parents:
55267
diff
changeset
|
539 affected. If the value is a cursor TYPE (one of: box, hollow, bar, or hbar), |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
540 then only the `cursor-type' property will be affected. If the value is |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
541 a cons (TYPE . COLOR), then both properties are affected." |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
542 :type '(choice |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
543 (color :tag "Color") |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
544 (choice :tag "Type" |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
545 (const :tag "Filled box" box) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
546 (const :tag "Vertical bar" bar) |
63180
78264fe43c01
(cua-normal-cursor-color, cua-read-only-cursor-color,
Juanma Barranquero <lekktu@gmail.com>
parents:
63073
diff
changeset
|
547 (const :tag "Horizontal bar" hbar) |
55271
d7007197f057
Change cursor-type block to hollow.
Kim F. Storm <storm@cua.dk>
parents:
55267
diff
changeset
|
548 (const :tag "Hollow box" hollow)) |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
549 (cons :tag "Color and Type" |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
550 (choice :tag "Type" |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
551 (const :tag "Filled box" box) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
552 (const :tag "Vertical bar" bar) |
63180
78264fe43c01
(cua-normal-cursor-color, cua-read-only-cursor-color,
Juanma Barranquero <lekktu@gmail.com>
parents:
63073
diff
changeset
|
553 (const :tag "Horizontal bar" hbar) |
55271
d7007197f057
Change cursor-type block to hollow.
Kim F. Storm <storm@cua.dk>
parents:
55267
diff
changeset
|
554 (const :tag "Hollow box" hollow)) |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
555 (color :tag "Color"))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
556 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
557 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
558 (defcustom cua-global-mark-cursor-color "cyan" |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
559 "*Indication for active global mark. |
54851 | 560 Will change cursor color to specified color if string. |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
561 Only used when `cua-enable-cursor-indications' is non-nil. |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
562 |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
563 If the value is a COLOR name, then only the `cursor-color' attribute will be |
55271
d7007197f057
Change cursor-type block to hollow.
Kim F. Storm <storm@cua.dk>
parents:
55267
diff
changeset
|
564 affected. If the value is a cursor TYPE (one of: box, hollow, bar, or hbar), |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
565 then only the `cursor-type' property will be affected. If the value is |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
566 a cons (TYPE . COLOR), then both properties are affected." |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
567 :type '(choice |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
568 (color :tag "Color") |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
569 (choice :tag "Type" |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
570 (const :tag "Filled box" box) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
571 (const :tag "Vertical bar" bar) |
63180
78264fe43c01
(cua-normal-cursor-color, cua-read-only-cursor-color,
Juanma Barranquero <lekktu@gmail.com>
parents:
63073
diff
changeset
|
572 (const :tag "Horizontal bar" hbar) |
55271
d7007197f057
Change cursor-type block to hollow.
Kim F. Storm <storm@cua.dk>
parents:
55267
diff
changeset
|
573 (const :tag "Hollow box" hollow)) |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
574 (cons :tag "Color and Type" |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
575 (choice :tag "Type" |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
576 (const :tag "Filled box" box) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
577 (const :tag "Vertical bar" bar) |
63180
78264fe43c01
(cua-normal-cursor-color, cua-read-only-cursor-color,
Juanma Barranquero <lekktu@gmail.com>
parents:
63073
diff
changeset
|
578 (const :tag "Horizontal bar" hbar) |
55271
d7007197f057
Change cursor-type block to hollow.
Kim F. Storm <storm@cua.dk>
parents:
55267
diff
changeset
|
579 (const :tag "Hollow box" hollow)) |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
580 (color :tag "Color"))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
581 :group 'cua) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
582 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
583 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
584 ;;; Rectangle support is in cua-rect.el |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
585 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
586 (autoload 'cua-set-rectangle-mark "cua-rect" nil t nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
587 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
588 ;; Stub definitions until it is loaded |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
589 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
590 (when (not (featurep 'cua-rect)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
591 (defvar cua--rectangle) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
592 (setq cua--rectangle nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
593 (defvar cua--last-killed-rectangle) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
594 (setq cua--last-killed-rectangle nil)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
595 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
596 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
597 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
598 ;;; Global Mark support is in cua-gmrk.el |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
599 |
65896
7cc413612d3d
* ibuf-ext.el (ibuffer-do-shell-command-pipe)
Romain Francoise <romain@orebokech.com>
parents:
65726
diff
changeset
|
600 (autoload 'cua-toggle-global-mark "cua-gmrk" nil t nil) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
601 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
602 ;; Stub definitions until cua-gmrk.el is loaded |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
603 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
604 (when (not (featurep 'cua-gmrk)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
605 (defvar cua--global-mark-active) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
606 (setq cua--global-mark-active nil)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
607 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
608 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
609 (provide 'cua-base) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
610 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
611 (eval-when-compile |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
612 (require 'cua-rect) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
613 (require 'cua-gmrk) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
614 ) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
615 |
45074
d57f600f5b7e
(cua-inhibit-cua-keys): New buffer-local variable.
Kim F. Storm <storm@cua.dk>
parents:
45062
diff
changeset
|
616 |
d57f600f5b7e
(cua-inhibit-cua-keys): New buffer-local variable.
Kim F. Storm <storm@cua.dk>
parents:
45062
diff
changeset
|
617 ;;; Low-level Interface |
d57f600f5b7e
(cua-inhibit-cua-keys): New buffer-local variable.
Kim F. Storm <storm@cua.dk>
parents:
45062
diff
changeset
|
618 |
d57f600f5b7e
(cua-inhibit-cua-keys): New buffer-local variable.
Kim F. Storm <storm@cua.dk>
parents:
45062
diff
changeset
|
619 (defvar cua-inhibit-cua-keys nil |
63869
e7c533a3b1b9
(cua-check-pending-input, cua-repeat-replace-region, cua-mode, cua-debug,
Juanma Barranquero <lekktu@gmail.com>
parents:
63388
diff
changeset
|
620 "Buffer-local variable that may disable the CUA keymappings.") |
45074
d57f600f5b7e
(cua-inhibit-cua-keys): New buffer-local variable.
Kim F. Storm <storm@cua.dk>
parents:
45062
diff
changeset
|
621 (make-variable-buffer-local 'cua-inhibit-cua-keys) |
d57f600f5b7e
(cua-inhibit-cua-keys): New buffer-local variable.
Kim F. Storm <storm@cua.dk>
parents:
45062
diff
changeset
|
622 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
623 ;;; Aux. variables |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
624 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
625 ;; Current region was started using cua-set-mark. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
626 (defvar cua--explicit-region-start nil) |
64989
6b11882571cb
(cua-delete-region): Return t if
Kim F. Storm <storm@cua.dk>
parents:
64701
diff
changeset
|
627 (make-variable-buffer-local 'cua--explicit-region-start) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
628 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
629 ;; Latest region was started using shifted movement command. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
630 (defvar cua--last-region-shifted nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
631 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
632 ;; buffer + point prior to current command when rectangle is active |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
633 ;; checked in post-command hook to see if point was moved |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
634 (defvar cua--buffer-and-point-before-command nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
635 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
636 ;; status string for mode line indications |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
637 (defvar cua--status-string nil) |
64989
6b11882571cb
(cua-delete-region): Return t if
Kim F. Storm <storm@cua.dk>
parents:
64701
diff
changeset
|
638 (make-variable-buffer-local 'cua--status-string) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
639 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
640 (defvar cua--debug nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
641 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
642 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
643 ;;; Prefix key override mechanism |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
644 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
645 ;; The prefix override (when mark-active) operates in three substates: |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
646 ;; [1] Before using a prefix key |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
647 ;; [2] Immediately after using a prefix key |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
648 ;; [3] A fraction of a second later |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
649 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
650 ;; In state [1], the cua--prefix-override-keymap is active. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
651 ;; This keymap binds the C-x and C-c prefix keys to the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
652 ;; cua--prefix-override-handler function. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
653 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
654 ;; When a prefix key is typed in state [1], cua--prefix-override-handler |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
655 ;; will push back the keys already read to the event queue. If input is |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
656 ;; pending, it changes directly to state [3]. Otherwise, a short timer [T] |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
657 ;; is started, and it changes to state [2]. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
658 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
659 ;; In state [2], the cua--prefix-override-keymap is inactive. Instead the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
660 ;; cua--prefix-repeat-keymap is active. This keymap binds C-c C-c and C-x |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
661 ;; C-x to the cua--prefix-repeat-handler function. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
662 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
663 ;; If the prefix key is repeated in state [2], cua--prefix-repeat-handler |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
664 ;; will cancel [T], back the keys already read (except for the second prefix |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
665 ;; keys) to the event queue, and changes to state [3]. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
666 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
667 ;; The basic cua--cua-keys-keymap binds [C-x timeout] to kill-region and |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
668 ;; [C-c timeout] to copy-region-as-kill, so if [T] times out in state [2], |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
669 ;; the cua--prefix-override-timeout function will push a `timeout' event on |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
670 ;; the event queue, and changes to state [3]. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
671 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
672 ;; In state [3] both cua--prefix-override-keymap and cua--prefix-repeat-keymap |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
673 ;; are inactive, so the timeout in cua-global-keymap binding is used, or the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
674 ;; normal prefix key binding from the global or local map will be used. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
675 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
676 ;; The pre-command hook (executed as a consequence of the timeout or normal |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
677 ;; prefix key binding) will cancel [T] and change from state [3] back to |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
678 ;; state [1]. So cua--prefix-override-handler and cua--prefix-repeat-handler |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
679 ;; are always called with state reset to [1]! |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
680 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
681 ;; State [1] is recognized by cua--prefix-override-timer is nil, |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
682 ;; state [2] is recognized by cua--prefix-override-timer is a timer, and |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
683 ;; state [3] is recognized by cua--prefix-override-timer is t. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
684 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
685 (defvar cua--prefix-override-timer nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
686 (defvar cua--prefix-override-length nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
687 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
688 (defun cua--prefix-override-replay (arg repeat) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
689 (let* ((keys (this-command-keys)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
690 (i (length keys)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
691 (key (aref keys (1- i)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
692 (setq cua--prefix-override-length (- i repeat)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
693 (setq cua--prefix-override-timer |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
694 (or |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
695 ;; In state [2], change to state [3] |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
696 (> repeat 0) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
697 ;; In state [1], change directly to state [3] |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
698 (and cua-check-pending-input (input-pending-p)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
699 ;; In state [1], [T] disabled, so change to state [3] |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
700 (not (numberp cua-prefix-override-inhibit-delay)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
701 (<= cua-prefix-override-inhibit-delay 0) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
702 ;; In state [1], start [T] and change to state [2] |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
703 (run-with-timer cua-prefix-override-inhibit-delay nil |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
704 'cua--prefix-override-timeout))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
705 ;; Don't record this command |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
706 (setq this-command last-command) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
707 ;; Restore the prefix arg |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
708 (setq prefix-arg arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
709 (reset-this-command-lengths) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
710 ;; Push the key back on the event queue |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
711 (setq unread-command-events (cons key unread-command-events)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
712 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
713 (defun cua--prefix-override-handler (arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
714 "Start timer waiting for prefix key to be followed by another key. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
715 Repeating prefix key when region is active works as a single prefix key." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
716 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
717 (cua--prefix-override-replay arg 0)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
718 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
719 (defun cua--prefix-repeat-handler (arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
720 "Repeating prefix key when region is active works as a single prefix key." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
721 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
722 (cua--prefix-override-replay arg 1)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
723 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
724 (defun cua--prefix-copy-handler (arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
725 "Copy region/rectangle, then replay last key." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
726 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
727 (if cua--rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
728 (cua-copy-rectangle arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
729 (cua-copy-region arg)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
730 (let ((keys (this-single-command-keys))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
731 (setq unread-command-events |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
732 (cons (aref keys (1- (length keys))) unread-command-events)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
733 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
734 (defun cua--prefix-cut-handler (arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
735 "Cut region/rectangle, then replay last key." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
736 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
737 (if cua--rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
738 (cua-cut-rectangle arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
739 (cua-cut-region arg)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
740 (let ((keys (this-single-command-keys))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
741 (setq unread-command-events |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
742 (cons (aref keys (1- (length keys))) unread-command-events)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
743 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
744 (defun cua--prefix-override-timeout () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
745 (setq cua--prefix-override-timer t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
746 (when (= (length (this-command-keys)) cua--prefix-override-length) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
747 (setq unread-command-events (cons 'timeout unread-command-events)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
748 (if prefix-arg |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
749 (reset-this-command-lengths) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
750 (setq overriding-terminal-local-map nil)) |
45225
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
751 (cua--select-keymaps))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
752 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
753 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
754 ;;; Aux. functions |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
755 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
756 (defun cua--fallback () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
757 ;; Execute original command |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
758 (setq this-command this-original-command) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
759 (call-interactively this-command)) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
760 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
761 (defun cua--keep-active () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
762 (setq mark-active t |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
763 deactivate-mark nil)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
764 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
765 (defun cua--deactivate (&optional now) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
766 (setq cua--explicit-region-start nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
767 (if (not now) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
768 (setq deactivate-mark t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
769 (setq mark-active nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
770 (run-hooks 'deactivate-mark-hook))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
771 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
772 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
773 ;; The current register prefix |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
774 (defvar cua--register nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
775 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
776 (defun cua--prefix-arg (arg) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
777 (setq cua--register |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
778 (and cua-enable-register-prefix |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
779 (integerp arg) (>= arg 0) (< arg 10) |
45952
ec1df96b1c23
(cua--prefix-arg): Make register prefixes
Kim F. Storm <storm@cua.dk>
parents:
45597
diff
changeset
|
780 (let* ((prefix (aref (this-command-keys) 0)) |
ec1df96b1c23
(cua--prefix-arg): Make register prefixes
Kim F. Storm <storm@cua.dk>
parents:
45597
diff
changeset
|
781 (ctrl-u-prefix (and (integerp prefix) |
45954 | 782 (= prefix ?\C-u)))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
783 (cond |
45954 | 784 ((eq cua-enable-register-prefix 'not-ctrl-u) |
785 (not ctrl-u-prefix)) | |
786 ((eq cua-enable-register-prefix 'ctrl-u-only) | |
787 ctrl-u-prefix) | |
788 (t t))) | |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
789 (+ arg ?0))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
790 (if cua--register nil arg)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
791 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
792 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
793 ;;; Region specific commands |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
794 |
45597
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
795 (defvar cua--last-deleted-region-pos nil) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
796 (defvar cua--last-deleted-region-text nil) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
797 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
798 (defun cua-delete-region () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
799 "Delete the active region. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
800 Save a copy in register 0 if `cua-delete-copy-to-register-0' is non-nil." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
801 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
802 (let ((start (mark)) (end (point))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
803 (or (<= start end) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
804 (setq start (prog1 end (setq end start)))) |
69900
2bf5f807797c
(cua-delete-region, cua-paste)
Kim F. Storm <storm@cua.dk>
parents:
69668
diff
changeset
|
805 (setq cua--last-deleted-region-text (filter-buffer-substring start end)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
806 (if cua-delete-copy-to-register-0 |
45597
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
807 (set-register ?0 cua--last-deleted-region-text)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
808 (delete-region start end) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
809 (setq cua--last-deleted-region-pos |
45597
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
810 (cons (current-buffer) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
811 (and (consp buffer-undo-list) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
812 (car buffer-undo-list)))) |
64989
6b11882571cb
(cua-delete-region): Return t if
Kim F. Storm <storm@cua.dk>
parents:
64701
diff
changeset
|
813 (cua--deactivate) |
6b11882571cb
(cua-delete-region): Return t if
Kim F. Storm <storm@cua.dk>
parents:
64701
diff
changeset
|
814 (/= start end))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
815 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
816 (defun cua-replace-region () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
817 "Replace the active region with the character you type." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
818 (interactive) |
71905
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
819 (let ((not-empty (and cua-delete-selection (cua-delete-region)))) |
64989
6b11882571cb
(cua-delete-region): Return t if
Kim F. Storm <storm@cua.dk>
parents:
64701
diff
changeset
|
820 (unless (eq this-original-command this-command) |
6b11882571cb
(cua-delete-region): Return t if
Kim F. Storm <storm@cua.dk>
parents:
64701
diff
changeset
|
821 (let ((overwrite-mode |
6b11882571cb
(cua-delete-region): Return t if
Kim F. Storm <storm@cua.dk>
parents:
64701
diff
changeset
|
822 (and overwrite-mode |
6b11882571cb
(cua-delete-region): Return t if
Kim F. Storm <storm@cua.dk>
parents:
64701
diff
changeset
|
823 not-empty |
6b11882571cb
(cua-delete-region): Return t if
Kim F. Storm <storm@cua.dk>
parents:
64701
diff
changeset
|
824 (not (eq this-original-command 'self-insert-command))))) |
6b11882571cb
(cua-delete-region): Return t if
Kim F. Storm <storm@cua.dk>
parents:
64701
diff
changeset
|
825 (cua--fallback))))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
826 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
827 (defun cua-copy-region (arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
828 "Copy the region to the kill ring. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
829 With numeric prefix arg, copy to register 0-9 instead." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
830 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
831 (setq arg (cua--prefix-arg arg)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
832 (setq cua--last-killed-rectangle nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
833 (let ((start (mark)) (end (point))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
834 (or (<= start end) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
835 (setq start (prog1 end (setq end start)))) |
62184
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
836 (cond |
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
837 (cua--register |
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
838 (copy-to-register cua--register start end nil)) |
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
839 ((eq this-original-command 'clipboard-kill-ring-save) |
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
840 (clipboard-kill-ring-save start end)) |
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
841 (t |
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
842 (copy-region-as-kill start end))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
843 (if cua-keep-region-after-copy |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
844 (cua--keep-active) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
845 (cua--deactivate)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
846 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
847 (defun cua-cut-region (arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
848 "Cut the region and copy to the kill ring. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
849 With numeric prefix arg, copy to register 0-9 instead." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
850 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
851 (setq cua--last-killed-rectangle nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
852 (if buffer-read-only |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
853 (cua-copy-region arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
854 (setq arg (cua--prefix-arg arg)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
855 (let ((start (mark)) (end (point))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
856 (or (<= start end) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
857 (setq start (prog1 end (setq end start)))) |
62184
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
858 (cond |
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
859 (cua--register |
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
860 (copy-to-register cua--register start end t)) |
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
861 ((eq this-original-command 'clipboard-kill-region) |
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
862 (clipboard-kill-region start end)) |
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
863 (t |
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
864 (kill-region start end)))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
865 (cua--deactivate))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
866 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
867 ;;; Generic commands for regions, rectangles, and global marks |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
868 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
869 (defun cua-cancel () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
870 "Cancel the active region, rectangle, or global mark." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
871 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
872 (setq mark-active nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
873 (setq cua--explicit-region-start nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
874 (if (fboundp 'cua--cancel-rectangle) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
875 (cua--cancel-rectangle))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
876 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
877 (defun cua-paste (arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
878 "Paste last cut or copied region or rectangle. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
879 An active region is deleted before executing the command. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
880 With numeric prefix arg, paste from register 0-9 instead. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
881 If global mark is active, copy from register or one character." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
882 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
883 (setq arg (cua--prefix-arg arg)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
884 (let ((regtxt (and cua--register (get-register cua--register))) |
56839
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
885 (count (prefix-numeric-value arg)) |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
886 paste-column paste-lines) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
887 (cond |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
888 ((and cua--register (not regtxt)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
889 (message "Nothing in register %c" cua--register)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
890 (cua--global-mark-active |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
891 (if regtxt |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
892 (cua--insert-at-global-mark regtxt) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
893 (when (not (eobp)) |
69900
2bf5f807797c
(cua-delete-region, cua-paste)
Kim F. Storm <storm@cua.dk>
parents:
69668
diff
changeset
|
894 (cua--insert-at-global-mark (filter-buffer-substring (point) (+ (point) count))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
895 (forward-char count)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
896 (buffer-read-only |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
897 (message "Cannot paste into a read-only buffer")) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
898 (t |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
899 ;; Must save register here, since delete may override reg 0. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
900 (if mark-active |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
901 ;; Before a yank command, make sure we don't yank |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
902 ;; the same region that we are going to delete. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
903 ;; That would make yank a no-op. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
904 (if cua--rectangle |
56839
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
905 (progn |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
906 (goto-char (min (mark) (point))) |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
907 (setq paste-column (cua--rectangle-left)) |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
908 (setq paste-lines (cua--delete-rectangle)) |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
909 (if (= paste-lines 1) |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
910 (setq paste-lines nil))) ;; paste all |
69900
2bf5f807797c
(cua-delete-region, cua-paste)
Kim F. Storm <storm@cua.dk>
parents:
69668
diff
changeset
|
911 (if (string= (filter-buffer-substring (point) (mark)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
912 (car kill-ring)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
913 (current-kill 1)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
914 (cua-delete-region))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
915 (cond |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
916 (regtxt |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
917 (cond |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
918 ((consp regtxt) (cua--insert-rectangle regtxt)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
919 ((stringp regtxt) (insert-for-yank regtxt)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
920 (t (message "Unknown data in register %c" cua--register)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
921 ((and cua--last-killed-rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
922 (eq (and kill-ring (car kill-ring)) (car cua--last-killed-rectangle))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
923 (let ((pt (point))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
924 (when (not (eq buffer-undo-list t)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
925 (setq this-command 'cua--paste-rectangle) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
926 (undo-boundary) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
927 (setq buffer-undo-list (cons pt buffer-undo-list))) |
56839
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
928 (cua--insert-rectangle (cdr cua--last-killed-rectangle) |
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
929 nil paste-column paste-lines) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
930 (if arg (goto-char pt)))) |
62184
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
931 ((eq this-original-command 'clipboard-yank) |
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
932 (clipboard-yank)) |
76132
0d644f70ff05
(cua-paste): Handle x-clipboard-yank.
Kim F. Storm <storm@cua.dk>
parents:
75488
diff
changeset
|
933 ((eq this-original-command 'x-clipboard-yank) |
0d644f70ff05
(cua-paste): Handle x-clipboard-yank.
Kim F. Storm <storm@cua.dk>
parents:
75488
diff
changeset
|
934 (x-clipboard-yank)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
935 (t (yank arg))))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
936 |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
937 |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
938 ;; cua-paste-pop-rotate-temporarily == t mechanism: |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
939 ;; |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
940 ;; C-y M-y M-y => only rotates kill ring temporarily, |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
941 ;; so next C-y yanks what previous C-y yanked, |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
942 ;; |
74454
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
943 ;; M-y M-y M-y => equivalent to C-y M-y M-y |
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
944 ;; |
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
945 ;; But: After another command, C-u M-y remembers the temporary |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
946 ;; kill-ring position, so |
74454
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
947 ;; C-u M-y => yanks what the last M-y yanked |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
948 ;; |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
949 |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
950 (defvar cua-paste-pop-count nil) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
951 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
952 (defun cua-paste-pop (arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
953 "Replace a just-pasted text or rectangle with a different text. |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
954 See `yank-pop' for details about the default behaviour. For an alternative |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
955 behaviour, see `cua-paste-pop-rotate-temporarily'." |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
956 (interactive "P") |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
957 (cond |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
958 ((eq last-command 'cua--paste-rectangle) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
959 (undo) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
960 (yank arg)) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
961 ((not cua-paste-pop-rotate-temporarily) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
962 (yank-pop (prefix-numeric-value arg))) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
963 (t |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
964 (let ((rotate (if (consp arg) 1 (prefix-numeric-value arg)))) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
965 (cond |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
966 ((or (null cua-paste-pop-count) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
967 (eq last-command 'yank) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
968 (eq last-command 'cua-paste)) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
969 (setq cua-paste-pop-count rotate) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
970 (setq last-command 'yank) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
971 (yank-pop cua-paste-pop-count)) |
74454
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
972 ((and (eq last-command 'cua-paste-pop) (not (consp arg))) |
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
973 (setq cua-paste-pop-count (+ cua-paste-pop-count rotate)) |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
974 (setq last-command 'yank) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
975 (yank-pop cua-paste-pop-count)) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
976 (t |
74454
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
977 (setq cua-paste-pop-count |
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
978 (if (consp arg) (+ cua-paste-pop-count rotate -1) 1)) |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
979 (yank (1+ cua-paste-pop-count))))) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
980 ;; Undo rotating the kill-ring, so next C-y will |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
981 ;; yank the original head. |
74454
7d244d3c8089
(cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
74365
diff
changeset
|
982 (setq kill-ring-yank-pointer kill-ring) |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
983 (setq this-command 'cua-paste-pop)))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
984 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
985 (defun cua-exchange-point-and-mark (arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
986 "Exchanges point and mark, but don't activate the mark. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
987 Activates the mark if a prefix argument is given." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
988 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
989 (if arg |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
990 (setq mark-active t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
991 (let (mark-active) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
992 (exchange-point-and-mark) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
993 (if cua--rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
994 (cua--rectangle-corner 0))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
995 |
45520
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
996 ;; Typed text that replaced the highlighted region. |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
997 (defvar cua--repeat-replace-text nil) |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
998 |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
999 (defun cua-repeat-replace-region (arg) |
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
1000 "Repeat replacing text of highlighted region with typed text. |
63869
e7c533a3b1b9
(cua-check-pending-input, cua-repeat-replace-region, cua-mode, cua-debug,
Juanma Barranquero <lekktu@gmail.com>
parents:
63388
diff
changeset
|
1001 Searches for the next stretch of text identical to the region last |
e7c533a3b1b9
(cua-check-pending-input, cua-repeat-replace-region, cua-mode, cua-debug,
Juanma Barranquero <lekktu@gmail.com>
parents:
63388
diff
changeset
|
1002 replaced by typing text over it and replaces it with the same stretch |
45597
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1003 of text." |
45520
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
1004 (interactive "P") |
45597
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1005 (when cua--last-deleted-region-pos |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1006 (save-excursion |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1007 (save-restriction |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1008 (set-buffer (car cua--last-deleted-region-pos)) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1009 (widen) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1010 ;; Find the text that replaced the region via the undo list. |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1011 (let ((ul buffer-undo-list) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1012 (elt (cdr cua--last-deleted-region-pos)) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1013 u s e) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1014 (when elt |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1015 (while (consp ul) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1016 (setq u (car ul) ul (cdr ul)) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1017 (cond |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1018 ((eq u elt) ;; got it |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1019 (setq ul nil)) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1020 ((and (consp u) (integerp (car u)) (integerp (cdr u))) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1021 (if (and s (= (cdr u) s)) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1022 (setq s (car u)) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1023 (setq s (car u) e (cdr u))))))) |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1024 (cond ((and s e (<= s e) (= s (mark t))) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1025 (setq cua--repeat-replace-text |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1026 (filter-buffer-substring s e nil t))) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1027 ((and (null s) (eq u elt)) ;; nothing inserted |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1028 (setq cua--repeat-replace-text |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1029 "")) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1030 (t |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1031 (message "Cannot locate replacement text")))))) |
45597
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1032 (setq cua--last-deleted-region-pos nil)) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1033 (if (and cua--last-deleted-region-text |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1034 cua--repeat-replace-text |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1035 (search-forward cua--last-deleted-region-text nil t nil)) |
c85054b077e6
(cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents:
45541
diff
changeset
|
1036 (replace-match cua--repeat-replace-text arg t))) |
45520
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
1037 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1038 (defun cua-help-for-region (&optional help) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1039 "Show region specific help in echo area." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1040 (interactive) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
1041 (message |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1042 (concat (if help "C-?:help " "") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1043 "C-z:undo C-x:cut C-c:copy C-v:paste S-ret:rect"))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1044 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1045 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1046 ;;; Shift activated / extended region |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1047 |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1048 (defun cua-pop-to-last-change () |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1049 (let ((undo-list buffer-undo-list) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1050 pos elt) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1051 (while (and (not pos) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1052 (consp undo-list)) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1053 (setq elt (car undo-list) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1054 undo-list (cdr undo-list)) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1055 (cond |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1056 ((integerp elt) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1057 (setq pos elt)) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1058 ((not (consp elt))) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1059 ((and (integerp (cdr elt)) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1060 (or (integerp (car elt)) (stringp (car elt)))) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1061 (setq pos (cdr elt))) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1062 ((and (eq (car elt) 'apply) (consp (cdr elt)) (integerp (cadr elt))) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1063 (setq pos (nth 3 elt))))) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1064 (when (and pos |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1065 (/= pos (point)) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1066 (>= pos (point-min)) (<= pos (point-max))) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1067 (goto-char pos) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1068 t))) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1069 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1070 (defun cua-set-mark (&optional arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1071 "Set mark at where point is, clear mark, or jump to mark. |
50253 | 1072 |
1073 With no prefix argument, clear mark if already set. Otherwise, set | |
1074 mark, and push old mark position on local mark ring; also push mark on | |
54851 | 1075 global mark ring if last mark was set in another buffer. |
50253 | 1076 |
1077 With argument, jump to mark, and pop a new position for mark off | |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1078 the local mark ring (this does not affect the global mark ring). |
50253 | 1079 Use \\[pop-global-mark] to jump to a mark off the global mark ring |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1080 \(see `pop-global-mark'). |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1081 |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1082 If `cua-auto-mark-last-change' is non-nil, this command behaves as if there |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1083 was an implicit mark at the position of the last buffer change. |
50382
9bf67e990ee1
(cua-set-mark): Unconditionally repeat
Kim F. Storm <storm@cua.dk>
parents:
50295
diff
changeset
|
1084 |
9bf67e990ee1
(cua-set-mark): Unconditionally repeat
Kim F. Storm <storm@cua.dk>
parents:
50295
diff
changeset
|
1085 Repeating the command without the prefix jumps to the next position |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1086 off the local (or global) mark ring. |
50253 | 1087 |
1088 With a double \\[universal-argument] prefix argument, unconditionally set mark." | |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1089 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1090 (cond |
50253 | 1091 ((and (consp arg) (> (prefix-numeric-value arg) 4)) |
1092 (push-mark-command nil)) | |
45541
00093b6b87d7
(cua-set-mark): Align pop to marko
Kim F. Storm <storm@cua.dk>
parents:
45520
diff
changeset
|
1093 ((eq last-command 'pop-to-mark-command) |
50253 | 1094 (setq this-command 'pop-to-mark-command) |
1095 (pop-to-mark-command)) | |
50382
9bf67e990ee1
(cua-set-mark): Unconditionally repeat
Kim F. Storm <storm@cua.dk>
parents:
50295
diff
changeset
|
1096 ((and (eq last-command 'pop-global-mark) (not arg)) |
50253 | 1097 (setq this-command 'pop-global-mark) |
1098 (pop-global-mark)) | |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1099 (arg |
45541
00093b6b87d7
(cua-set-mark): Align pop to marko
Kim F. Storm <storm@cua.dk>
parents:
45520
diff
changeset
|
1100 (setq this-command 'pop-to-mark-command) |
74365
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1101 (or (and cua-auto-mark-last-change |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1102 (cua-pop-to-last-change)) |
c728cbf657c6
(cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
72661
diff
changeset
|
1103 (pop-to-mark-command))) |
71905
8e9a2b05bd3d
(cua-delete-selection, cua-toggle-set-mark): New defcustoms.
Kim F. Storm <storm@cua.dk>
parents:
70799
diff
changeset
|
1104 ((and cua-toggle-set-mark mark-active) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1105 (cua--deactivate) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1106 (message "Mark Cleared")) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1107 (t |
45541
00093b6b87d7
(cua-set-mark): Align pop to marko
Kim F. Storm <storm@cua.dk>
parents:
45520
diff
changeset
|
1108 (push-mark-command nil nil) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1109 (setq cua--explicit-region-start t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1110 (setq cua--last-region-shifted nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1111 (if cua-enable-region-auto-help |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1112 (cua-help-for-region t))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1113 |
55263
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1114 ;;; Scrolling commands which does not signal errors at top/bottom |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1115 ;;; of buffer at first key-press (instead moves to top/bottom |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1116 ;;; of buffer). |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1117 |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1118 (defun cua-scroll-up (&optional arg) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1119 "Scroll text of current window upward ARG lines; or near full screen if no ARG. |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1120 If window cannot be scrolled further, move cursor to bottom line instead. |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1121 A near full screen is `next-screen-context-lines' less than a full screen. |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1122 Negative ARG means scroll downward. |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1123 If ARG is the atom `-', scroll downward by nearly full screen." |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1124 (interactive "P") |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1125 (cond |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1126 ((eq arg '-) (cua-scroll-down nil)) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1127 ((< (prefix-numeric-value arg) 0) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1128 (cua-scroll-down (- (prefix-numeric-value arg)))) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1129 ((eobp) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1130 (scroll-up arg)) ; signal error |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1131 (t |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1132 (condition-case nil |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1133 (scroll-up arg) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1134 (end-of-buffer (goto-char (point-max))))))) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1135 |
59972
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1136 (put 'cua-scroll-up 'CUA 'move) |
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1137 |
55263
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1138 (defun cua-scroll-down (&optional arg) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1139 "Scroll text of current window downward ARG lines; or near full screen if no ARG. |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1140 If window cannot be scrolled further, move cursor to top line instead. |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1141 A near full screen is `next-screen-context-lines' less than a full screen. |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1142 Negative ARG means scroll upward. |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1143 If ARG is the atom `-', scroll upward by nearly full screen." |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1144 (interactive "P") |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1145 (cond |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1146 ((eq arg '-) (cua-scroll-up nil)) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1147 ((< (prefix-numeric-value arg) 0) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1148 (cua-scroll-up (- (prefix-numeric-value arg)))) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1149 ((bobp) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1150 (scroll-down arg)) ; signal error |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1151 (t |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1152 (condition-case nil |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1153 (scroll-down arg) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1154 (beginning-of-buffer (goto-char (point-min))))))) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1155 |
61150
20dc81ce84e7
(cua-scroll-down): Add CUA property.
Kim F. Storm <storm@cua.dk>
parents:
60488
diff
changeset
|
1156 (put 'cua-scroll-down 'CUA 'move) |
59972
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1157 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1158 ;;; Cursor indications |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1159 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1160 (defun cua--update-indications () |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1161 (let* ((cursor |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1162 (cond |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1163 ((and cua--global-mark-active |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1164 cua-global-mark-cursor-color) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1165 cua-global-mark-cursor-color) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1166 ((and buffer-read-only |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1167 cua-read-only-cursor-color) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1168 cua-read-only-cursor-color) |
56839
8425c441196c
(cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents:
56433
diff
changeset
|
1169 ((and cua-overwrite-cursor-color overwrite-mode) |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1170 cua-overwrite-cursor-color) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1171 (t cua-normal-cursor-color))) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1172 (color (if (consp cursor) (cdr cursor) cursor)) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1173 (type (if (consp cursor) (car cursor) cursor))) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1174 (if (and color |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1175 (stringp color) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1176 (not (equal color (frame-parameter nil 'cursor-color)))) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1177 (set-cursor-color color)) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1178 (if (and type |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1179 (symbolp type) |
55336
33225d8d84ab
(cua--update-indications): Fix last change.
Kim F. Storm <storm@cua.dk>
parents:
55271
diff
changeset
|
1180 (not (eq type default-cursor-type))) |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1181 (setq default-cursor-type type)))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1182 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1183 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1184 ;;; Pre-command hook |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1185 |
64311
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1186 (defun cua--pre-command-handler-1 () |
72661
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1187 ;; Cancel prefix key timeout if user enters another key. |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1188 (when cua--prefix-override-timer |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1189 (if (timerp cua--prefix-override-timer) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1190 (cancel-timer cua--prefix-override-timer)) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1191 (setq cua--prefix-override-timer nil)) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1192 |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1193 (cond |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1194 ;; Only symbol commands can have necessary properties |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1195 ((not (symbolp this-command)) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1196 nil) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1197 |
72661
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1198 ;; Handle delete-selection property on non-movement commands |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1199 ((not (eq (get this-command 'CUA) 'move)) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1200 (when (and mark-active (not deactivate-mark)) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1201 (let* ((ds (or (get this-command 'delete-selection) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1202 (get this-command 'pending-delete))) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1203 (nc (cond |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1204 ((not ds) nil) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1205 ((eq ds 'yank) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1206 'cua-paste) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1207 ((eq ds 'kill) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1208 (if cua--rectangle |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1209 'cua-copy-rectangle |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1210 'cua-copy-region)) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1211 ((eq ds 'supersede) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1212 (if cua--rectangle |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1213 'cua-delete-rectangle |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1214 'cua-delete-region)) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1215 (t |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1216 (if cua--rectangle |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1217 'cua-delete-rectangle ;; replace? |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1218 'cua-replace-region))))) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1219 (if nc |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1220 (setq this-original-command this-command |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1221 this-command nc))))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1222 |
72661
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1223 ;; Handle shifted cursor keys and other movement commands. |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1224 ;; If region is not active, region is activated if key is shifted. |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1225 ;; If region is active, region is cancelled if key is unshifted (and region not started with C-SPC). |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1226 ;; If rectangle is active, expand rectangle in specified direction and ignore the movement. |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1227 ((if window-system |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1228 (memq 'shift (event-modifiers |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1229 (aref (this-single-command-raw-keys) 0))) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1230 (or |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1231 (memq 'shift (event-modifiers |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1232 (aref (this-single-command-keys) 0))) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1233 ;; See if raw escape sequence maps to a shifted event, e.g. S-up or C-S-home. |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1234 (and (boundp 'function-key-map) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1235 function-key-map |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1236 (let ((ev (lookup-key function-key-map |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1237 (this-single-command-raw-keys)))) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1238 (and (vector ev) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1239 (symbolp (setq ev (aref ev 0))) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1240 (string-match "S-" (symbol-name ev))))))) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1241 (unless mark-active |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1242 (push-mark-command nil t)) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1243 (setq cua--last-region-shifted t) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1244 (setq cua--explicit-region-start nil)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1245 |
72661
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1246 ;; Set mark if user explicitly said to do so |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1247 ((or cua--explicit-region-start cua--rectangle) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1248 (unless mark-active |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1249 (push-mark-command nil nil))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
1250 |
72661
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1251 ;; Else clear mark after this command. |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1252 (t |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1253 ;; If we set mark-active to nil here, the region highlight will not be |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1254 ;; removed by the direct_output_ commands. |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1255 (setq deactivate-mark t))) |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1256 |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1257 ;; Detect extension of rectangles by mouse or other movement |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1258 (setq cua--buffer-and-point-before-command |
153255cb260a
(cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents:
71905
diff
changeset
|
1259 (if cua--rectangle (cons (current-buffer) (point))))) |
64311
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1260 |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1261 (defun cua--pre-command-handler () |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1262 (when cua-mode |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1263 (condition-case nil |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1264 (cua--pre-command-handler-1) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1265 (error nil)))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1266 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1267 ;;; Post-command hook |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1268 |
64311
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1269 (defun cua--post-command-handler-1 () |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1270 (when cua--global-mark-active |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1271 (cua--global-mark-post-command)) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1272 (when (fboundp 'cua--rectangle-post-command) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1273 (cua--rectangle-post-command)) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1274 (setq cua--buffer-and-point-before-command nil) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1275 (if (or (not mark-active) deactivate-mark) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1276 (setq cua--explicit-region-start nil)) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1277 |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1278 ;; Debugging |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1279 (if cua--debug |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1280 (cond |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1281 (cua--rectangle (cua--rectangle-assert)) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1282 (mark-active (message "Mark=%d Point=%d Expl=%s" |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1283 (mark t) (point) cua--explicit-region-start)))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1284 |
64311
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1285 ;; Disable transient-mark-mode if rectangle active in current buffer. |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1286 (if (not (window-minibuffer-p (selected-window))) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1287 (setq transient-mark-mode (and (not cua--rectangle) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1288 (if cua-highlight-region-shift-only |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1289 (not cua--explicit-region-start) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1290 t)))) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1291 (if cua-enable-cursor-indications |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1292 (cua--update-indications)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1293 |
64311
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1294 (cua--select-keymaps)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1295 |
64311
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1296 (defun cua--post-command-handler () |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1297 (when cua-mode |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1298 (condition-case nil |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1299 (cua--post-command-handler-1) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1300 (error nil)))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1301 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1302 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1303 ;;; Keymaps |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1304 |
67405
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1305 ;; Cached value of actual cua-rectangle-modifier-key |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1306 (defvar cua--rectangle-modifier-key 'meta) |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1307 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1308 (defun cua--M/H-key (map key fct) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1309 ;; bind H-KEY or M-KEY to FCT in MAP |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1310 (unless (listp key) (setq key (list key))) |
67405
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1311 (define-key map (vector (cons cua--rectangle-modifier-key key)) fct)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1312 |
45502
3cea63601c2a
(cua--self-insert-char-p): New function.
Kim F. Storm <storm@cua.dk>
parents:
45278
diff
changeset
|
1313 (defun cua--self-insert-char-p (def) |
3cea63601c2a
(cua--self-insert-char-p): New function.
Kim F. Storm <storm@cua.dk>
parents:
45278
diff
changeset
|
1314 ;; Return DEF if current key sequence is self-inserting in |
3cea63601c2a
(cua--self-insert-char-p): New function.
Kim F. Storm <storm@cua.dk>
parents:
45278
diff
changeset
|
1315 ;; global-map. |
3cea63601c2a
(cua--self-insert-char-p): New function.
Kim F. Storm <storm@cua.dk>
parents:
45278
diff
changeset
|
1316 (if (memq (global-key-binding (this-single-command-keys)) |
3cea63601c2a
(cua--self-insert-char-p): New function.
Kim F. Storm <storm@cua.dk>
parents:
45278
diff
changeset
|
1317 '(self-insert-command self-insert-iso)) |
3cea63601c2a
(cua--self-insert-char-p): New function.
Kim F. Storm <storm@cua.dk>
parents:
45278
diff
changeset
|
1318 def nil)) |
3cea63601c2a
(cua--self-insert-char-p): New function.
Kim F. Storm <storm@cua.dk>
parents:
45278
diff
changeset
|
1319 |
45225
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1320 (defvar cua-global-keymap (make-sparse-keymap) |
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1321 "Global keymap for cua-mode; users may add to this keymap.") |
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1322 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1323 (defvar cua--cua-keys-keymap (make-sparse-keymap)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1324 (defvar cua--prefix-override-keymap (make-sparse-keymap)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1325 (defvar cua--prefix-repeat-keymap (make-sparse-keymap)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1326 (defvar cua--global-mark-keymap (make-sparse-keymap)) ; Initalized when cua-gmrk.el is loaded |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1327 (defvar cua--rectangle-keymap (make-sparse-keymap)) ; Initalized when cua-rect.el is loaded |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1328 (defvar cua--region-keymap (make-sparse-keymap)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1329 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1330 (defvar cua--ena-cua-keys-keymap nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1331 (defvar cua--ena-prefix-override-keymap nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1332 (defvar cua--ena-prefix-repeat-keymap nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1333 (defvar cua--ena-region-keymap nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1334 (defvar cua--ena-global-mark-keymap nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1335 |
45225
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1336 (defvar cua--keymap-alist |
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1337 `((cua--ena-prefix-override-keymap . ,cua--prefix-override-keymap) |
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1338 (cua--ena-prefix-repeat-keymap . ,cua--prefix-repeat-keymap) |
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1339 (cua--ena-cua-keys-keymap . ,cua--cua-keys-keymap) |
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1340 (cua--ena-global-mark-keymap . ,cua--global-mark-keymap) |
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1341 (cua--rectangle . ,cua--rectangle-keymap) |
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1342 (cua--ena-region-keymap . ,cua--region-keymap) |
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1343 (cua-mode . ,cua-global-keymap))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1344 |
45225
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1345 (defun cua--select-keymaps () |
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1346 ;; Setup conditions for selecting the proper keymaps in cua--keymap-alist. |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1347 (setq cua--ena-region-keymap |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1348 (and mark-active (not deactivate-mark))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1349 (setq cua--ena-prefix-override-keymap |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1350 (and cua--ena-region-keymap |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1351 cua-enable-cua-keys |
45074
d57f600f5b7e
(cua-inhibit-cua-keys): New buffer-local variable.
Kim F. Storm <storm@cua.dk>
parents:
45062
diff
changeset
|
1352 (not cua-inhibit-cua-keys) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1353 (or (eq cua-enable-cua-keys t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1354 (not cua--explicit-region-start)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1355 (not executing-kbd-macro) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1356 (not cua--prefix-override-timer))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1357 (setq cua--ena-prefix-repeat-keymap |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1358 (and cua--ena-region-keymap |
67385
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1359 (or (timerp cua--prefix-override-timer) |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1360 (eq cua--prefix-override-timer 'shift)))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1361 (setq cua--ena-cua-keys-keymap |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1362 (and cua-enable-cua-keys |
45074
d57f600f5b7e
(cua-inhibit-cua-keys): New buffer-local variable.
Kim F. Storm <storm@cua.dk>
parents:
45062
diff
changeset
|
1363 (not cua-inhibit-cua-keys) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1364 (or (eq cua-enable-cua-keys t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1365 cua--last-region-shifted))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1366 (setq cua--ena-global-mark-keymap |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1367 (and cua--global-mark-active |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1368 (not (window-minibuffer-p))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1369 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1370 (defvar cua--keymaps-initalized nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1371 |
67385
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1372 (defun cua--shift-control-prefix (prefix arg) |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1373 ;; handle S-C-x and S-C-c by emulating the fast double prefix function. |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1374 ;; Don't record this command |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1375 (setq this-command last-command) |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1376 ;; Restore the prefix arg |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1377 (setq prefix-arg arg) |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1378 (reset-this-command-lengths) |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1379 ;; Activate the cua--prefix-repeat-keymap |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1380 (setq cua--prefix-override-timer 'shift) |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1381 ;; Push duplicate keys back on the event queue |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1382 (setq unread-command-events (cons prefix (cons prefix unread-command-events)))) |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1383 |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1384 (defun cua--shift-control-c-prefix (arg) |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1385 (interactive "P") |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1386 (cua--shift-control-prefix ?\C-c arg)) |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1387 |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1388 (defun cua--shift-control-x-prefix (arg) |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1389 (interactive "P") |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1390 (cua--shift-control-prefix ?\C-x arg)) |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1391 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1392 (defun cua--init-keymaps () |
67405
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1393 ;; Cache actual rectangle modifier key. |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1394 (setq cua--rectangle-modifier-key |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1395 (if (and cua-rectangle-modifier-key |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1396 (memq window-system '(x))) |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1397 cua-rectangle-modifier-key |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1398 'meta)) |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1399 ;; C-return always toggles rectangle mark |
69668
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
1400 (define-key cua-global-keymap cua-rectangle-mark-key 'cua-set-rectangle-mark) |
67405
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1401 (unless (eq cua--rectangle-modifier-key 'meta) |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1402 (cua--M/H-key cua-global-keymap ?\s 'cua-set-rectangle-mark) |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1403 (define-key cua-global-keymap |
f8d3bd39d0a1
* emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents:
67385
diff
changeset
|
1404 (vector (list cua--rectangle-modifier-key 'mouse-1)) 'cua-mouse-set-rectangle-mark)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1405 |
64558
19736ad15819
(cua-mode, cua-enable-register-prefix, cua-enable-cua-keys, cua-use-hyper-key,
Juanma Barranquero <lekktu@gmail.com>
parents:
64527
diff
changeset
|
1406 (define-key cua-global-keymap [(shift control ?\s)] 'cua-toggle-global-mark) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1407 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1408 ;; replace region with rectangle or element on kill ring |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1409 (define-key cua-global-keymap [remap yank] 'cua-paste) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1410 (define-key cua-global-keymap [remap clipboard-yank] 'cua-paste) |
76132
0d644f70ff05
(cua-paste): Handle x-clipboard-yank.
Kim F. Storm <storm@cua.dk>
parents:
75488
diff
changeset
|
1411 (define-key cua-global-keymap [remap x-clipboard-yank] 'cua-paste) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1412 ;; replace current yank with previous kill ring element |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1413 (define-key cua-global-keymap [remap yank-pop] 'cua-paste-pop) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1414 ;; set mark |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1415 (define-key cua-global-keymap [remap set-mark-command] 'cua-set-mark) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1416 |
55263
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1417 ;; scrolling |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1418 (define-key cua-global-keymap [remap scroll-up] 'cua-scroll-up) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1419 (define-key cua-global-keymap [remap scroll-down] 'cua-scroll-down) |
eb737a4709cb
(cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents:
54851
diff
changeset
|
1420 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1421 (define-key cua--cua-keys-keymap [(control x) timeout] 'kill-region) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1422 (define-key cua--cua-keys-keymap [(control c) timeout] 'copy-region-as-kill) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1423 (define-key cua--cua-keys-keymap [(control z)] 'undo) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1424 (define-key cua--cua-keys-keymap [(control v)] 'yank) |
45520
f62b4c7276d7
(cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents:
45502
diff
changeset
|
1425 (define-key cua--cua-keys-keymap [(meta v)] 'cua-repeat-replace-region) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1426 (define-key cua--cua-keys-keymap [remap exchange-point-and-mark] 'cua-exchange-point-and-mark) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1427 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1428 (define-key cua--prefix-override-keymap [(control x)] 'cua--prefix-override-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1429 (define-key cua--prefix-override-keymap [(control c)] 'cua--prefix-override-handler) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
1430 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1431 (define-key cua--prefix-repeat-keymap [(control x) (control x)] 'cua--prefix-repeat-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1432 (define-key cua--prefix-repeat-keymap [(control x) up] 'cua--prefix-cut-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1433 (define-key cua--prefix-repeat-keymap [(control x) down] 'cua--prefix-cut-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1434 (define-key cua--prefix-repeat-keymap [(control x) left] 'cua--prefix-cut-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1435 (define-key cua--prefix-repeat-keymap [(control x) right] 'cua--prefix-cut-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1436 (define-key cua--prefix-repeat-keymap [(control c) (control c)] 'cua--prefix-repeat-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1437 (define-key cua--prefix-repeat-keymap [(control c) up] 'cua--prefix-copy-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1438 (define-key cua--prefix-repeat-keymap [(control c) down] 'cua--prefix-copy-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1439 (define-key cua--prefix-repeat-keymap [(control c) left] 'cua--prefix-copy-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1440 (define-key cua--prefix-repeat-keymap [(control c) right] 'cua--prefix-copy-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1441 |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49430
diff
changeset
|
1442 ;; Enable shifted fallbacks for C-x and C-c when region is active |
67385
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1443 (define-key cua--region-keymap [(shift control x)] 'cua--shift-control-x-prefix) |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1444 (define-key cua--region-keymap [(shift control c)] 'cua--shift-control-c-prefix) |
15ed3778b098
(cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents:
65896
diff
changeset
|
1445 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1446 ;; replace current region |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1447 (define-key cua--region-keymap [remap self-insert-command] 'cua-replace-region) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1448 (define-key cua--region-keymap [remap self-insert-iso] 'cua-replace-region) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1449 (define-key cua--region-keymap [remap insert-register] 'cua-replace-region) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1450 (define-key cua--region-keymap [remap newline-and-indent] 'cua-replace-region) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1451 (define-key cua--region-keymap [remap newline] 'cua-replace-region) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1452 (define-key cua--region-keymap [remap open-line] 'cua-replace-region) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1453 ;; delete current region |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1454 (define-key cua--region-keymap [remap delete-backward-char] 'cua-delete-region) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1455 (define-key cua--region-keymap [remap backward-delete-char] 'cua-delete-region) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1456 (define-key cua--region-keymap [remap backward-delete-char-untabify] 'cua-delete-region) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1457 (define-key cua--region-keymap [remap delete-char] 'cua-delete-region) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1458 ;; kill region |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1459 (define-key cua--region-keymap [remap kill-region] 'cua-cut-region) |
62184
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
1460 (define-key cua--region-keymap [remap clipboard-kill-region] 'cua-cut-region) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1461 ;; copy region |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1462 (define-key cua--region-keymap [remap copy-region-as-kill] 'cua-copy-region) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1463 (define-key cua--region-keymap [remap kill-ring-save] 'cua-copy-region) |
62184
d2e6a54e6fb1
(cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents:
62023
diff
changeset
|
1464 (define-key cua--region-keymap [remap clipboard-kill-ring-save] 'cua-copy-region) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1465 ;; cancel current region/rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1466 (define-key cua--region-keymap [remap keyboard-escape-quit] 'cua-cancel) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1467 (define-key cua--region-keymap [remap keyboard-quit] 'cua-cancel) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1468 ) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1469 |
59972
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1470 |
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1471 ;; Setup standard movement commands to be recognized by CUA. |
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1472 |
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1473 (dolist (cmd |
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1474 '(forward-char backward-char |
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1475 next-line previous-line |
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1476 forward-word backward-word |
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1477 end-of-line beginning-of-line |
60488
234a7cab00e4
Put CUA move property on move-end-of-line
Kim F. Storm <storm@cua.dk>
parents:
59996
diff
changeset
|
1478 move-end-of-line move-beginning-of-line |
59972
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1479 end-of-buffer beginning-of-buffer |
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1480 scroll-up scroll-down |
65726
01f4ad04e6ac
Set CUA move property on additional commands:
Kim F. Storm <storm@cua.dk>
parents:
64989
diff
changeset
|
1481 up-list down-list backward-up-list |
01f4ad04e6ac
Set CUA move property on additional commands:
Kim F. Storm <storm@cua.dk>
parents:
64989
diff
changeset
|
1482 end-of-defun beginning-of-defun |
01f4ad04e6ac
Set CUA move property on additional commands:
Kim F. Storm <storm@cua.dk>
parents:
64989
diff
changeset
|
1483 forward-sexp backward-sexp |
01f4ad04e6ac
Set CUA move property on additional commands:
Kim F. Storm <storm@cua.dk>
parents:
64989
diff
changeset
|
1484 forward-list backward-list |
59972
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1485 forward-sentence backward-sentence |
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1486 forward-paragraph backward-paragraph)) |
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1487 (put cmd 'CUA 'move)) |
97e808b19272
(cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents:
58963
diff
changeset
|
1488 |
45278
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1489 ;; State prior to enabling cua-mode |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1490 ;; Value is a list with the following elements: |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1491 ;; transient-mark-mode |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1492 ;; delete-selection-mode |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1493 ;; pc-selection-mode |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1494 |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1495 (defvar cua--saved-state nil) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1496 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1497 ;;;###autoload |
50636
0af2d4122c02
(cua-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50382
diff
changeset
|
1498 (define-minor-mode cua-mode |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1499 "Toggle CUA key-binding mode. |
64527
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1500 When enabled, using shifted movement keys will activate the |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1501 region (and highlight the region using `transient-mark-mode'), |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1502 and typed text replaces the active selection. |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1503 |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1504 Also when enabled, you can use C-z, C-x, C-c, and C-v to undo, |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1505 cut, copy, and paste in addition to the normal Emacs bindings. |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1506 The C-x and C-c keys only do cut and copy when the region is |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1507 active, so in most cases, they do not conflict with the normal |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1508 function of these prefix keys. |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1509 |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1510 If you really need to perform a command which starts with one of |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1511 the prefix keys even when the region is active, you have three |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1512 options: |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1513 - press the prefix key twice very quickly (within 0.2 seconds), |
64558
19736ad15819
(cua-mode, cua-enable-register-prefix, cua-enable-cua-keys, cua-use-hyper-key,
Juanma Barranquero <lekktu@gmail.com>
parents:
64527
diff
changeset
|
1514 - press the prefix key and the following key within 0.2 seconds, or |
64527
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1515 - use the SHIFT key with the prefix key, i.e. C-S-x or C-S-c. |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1516 |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1517 You can customize `cua-enable-cua-keys' to completely disable the |
95c2d98fdeb1
(cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents:
64311
diff
changeset
|
1518 CUA bindings, or `cua-prefix-override-inhibit-delay' to change |
68523
bbaecffc7697
(cua-mode): Mention that CUA enables
Kim F. Storm <storm@cua.dk>
parents:
67405
diff
changeset
|
1519 the prefix fallback behavior. |
bbaecffc7697
(cua-mode): Mention that CUA enables
Kim F. Storm <storm@cua.dk>
parents:
67405
diff
changeset
|
1520 |
68570 | 1521 CUA mode manages Transient Mark mode internally. Trying to disable |
1522 Transient Mark mode while CUA mode is enabled does not work; if you | |
68523
bbaecffc7697
(cua-mode): Mention that CUA enables
Kim F. Storm <storm@cua.dk>
parents:
67405
diff
changeset
|
1523 only want to highlight the region when it is selected using a |
bbaecffc7697
(cua-mode): Mention that CUA enables
Kim F. Storm <storm@cua.dk>
parents:
67405
diff
changeset
|
1524 shifted movement key, set `cua-highlight-region-shift-only'." |
50636
0af2d4122c02
(cua-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50382
diff
changeset
|
1525 :global t |
61279 | 1526 :group 'cua |
69668
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
1527 :set-after '(cua-enable-modeline-indications |
16f8a4a89f79
(cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
1528 cua-rectangle-mark-key cua-rectangle-modifier-key) |
50636
0af2d4122c02
(cua-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50382
diff
changeset
|
1529 :require 'cua-base |
0af2d4122c02
(cua-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50382
diff
changeset
|
1530 :link '(emacs-commentary-link "cua-base.el") |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1531 (setq mark-even-if-inactive t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1532 (setq highlight-nonselected-windows nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1533 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1534 (unless cua--keymaps-initalized |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1535 (cua--init-keymaps) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1536 (setq cua--keymaps-initalized t)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1537 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1538 (if cua-mode |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1539 (progn |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1540 (add-hook 'pre-command-hook 'cua--pre-command-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1541 (add-hook 'post-command-hook 'cua--post-command-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1542 (if (and cua-enable-modeline-indications (not (assoc 'cua-mode minor-mode-alist))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1543 (setq minor-mode-alist (cons '(cua-mode cua--status-string) minor-mode-alist))) |
55267
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1544 (if cua-enable-cursor-indications |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1545 (cua--update-indications))) |
4a6854d33d2b
* emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents:
55263
diff
changeset
|
1546 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1547 (remove-hook 'pre-command-hook 'cua--pre-command-handler) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1548 (remove-hook 'post-command-hook 'cua--post-command-handler)) |
45225
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1549 |
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1550 (if (not cua-mode) |
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1551 (setq emulation-mode-map-alists (delq 'cua--keymap-alist emulation-mode-map-alists)) |
63388
cabaef9d110d
(cua-mode): Use add-to-ordered-list to
Kim F. Storm <storm@cua.dk>
parents:
63180
diff
changeset
|
1552 (add-to-ordered-list 'emulation-mode-map-alists 'cua--keymap-alist 400) |
45225
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1553 (cua--select-keymaps)) |
76c3f51638bd
(cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents:
45074
diff
changeset
|
1554 |
45278
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1555 (cond |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1556 (cua-mode |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1557 (setq cua--saved-state |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1558 (list |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1559 transient-mark-mode |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1560 (and (boundp 'delete-selection-mode) delete-selection-mode) |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1561 (and (boundp 'pc-selection-mode) pc-selection-mode))) |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1562 (if (and (boundp 'delete-selection-mode) delete-selection-mode) |
51587
d7e174e9d6eb
(cua-mode): Use explicit arg to turn off minor modes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50636
diff
changeset
|
1563 (delete-selection-mode -1)) |
45278
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1564 (if (and (boundp 'pc-selection-mode) pc-selection-mode) |
51587
d7e174e9d6eb
(cua-mode): Use explicit arg to turn off minor modes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50636
diff
changeset
|
1565 (pc-selection-mode -1)) |
55341
7ee62cfb248c
(cua-mode): Deactivate mark when cua-mode is enabled.
Kim F. Storm <storm@cua.dk>
parents:
55336
diff
changeset
|
1566 (cua--deactivate) |
45278
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1567 (setq transient-mark-mode (and cua-mode |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1568 (if cua-highlight-region-shift-only |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1569 (not cua--explicit-region-start) |
50636
0af2d4122c02
(cua-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50382
diff
changeset
|
1570 t)))) |
45278
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1571 (cua--saved-state |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1572 (setq transient-mark-mode (car cua--saved-state)) |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1573 (if (nth 1 cua--saved-state) |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1574 (delete-selection-mode 1)) |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1575 (if (nth 2 cua--saved-state) |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1576 (pc-selection-mode 1)) |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1577 (if (interactive-p) |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1578 (message "CUA mode disabled.%s%s%s%s" |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1579 (if (nth 1 cua--saved-state) " Delete-Selection" "") |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1580 (if (and (nth 1 cua--saved-state) (nth 2 cua--saved-state)) " and" "") |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1581 (if (nth 2 cua--saved-state) " PC-Selection" "") |
97b1e590eb61
(cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents:
45231
diff
changeset
|
1582 (if (or (nth 1 cua--saved-state) (nth 2 cua--saved-state)) " enabled" ""))) |
50636
0af2d4122c02
(cua-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50382
diff
changeset
|
1583 (setq cua--saved-state nil)))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1584 |
64311
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1585 |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1586 ;;;###autoload |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1587 (defun cua-selection-mode (arg) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1588 "Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings." |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1589 (interactive "P") |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1590 (setq-default cua-enable-cua-keys nil) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1591 (cua-mode arg)) |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1592 |
d1bb70278f2a
(cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents:
64085
diff
changeset
|
1593 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1594 (defun cua-debug () |
63869
e7c533a3b1b9
(cua-check-pending-input, cua-repeat-replace-region, cua-mode, cua-debug,
Juanma Barranquero <lekktu@gmail.com>
parents:
63388
diff
changeset
|
1595 "Toggle CUA debugging." |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1596 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1597 (setq cua--debug (not cua--debug))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1598 |
49898
53baa12e5cee
Add run-time check to catch users trying
Kim F. Storm <storm@cua.dk>
parents:
49598
diff
changeset
|
1599 ;; Install run-time check for older versions of CUA-mode which does not |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59972
diff
changeset
|
1600 ;; work with GNU Emacs version 22.1 and newer. |
49898
53baa12e5cee
Add run-time check to catch users trying
Kim F. Storm <storm@cua.dk>
parents:
49598
diff
changeset
|
1601 ;; |
53baa12e5cee
Add run-time check to catch users trying
Kim F. Storm <storm@cua.dk>
parents:
49598
diff
changeset
|
1602 ;; Except for version 1.2, all of the 1.x and 2.x version of cua-mode |
53baa12e5cee
Add run-time check to catch users trying
Kim F. Storm <storm@cua.dk>
parents:
49598
diff
changeset
|
1603 ;; provided the `CUA-mode' feature. Since this is no longer true, |
53baa12e5cee
Add run-time check to catch users trying
Kim F. Storm <storm@cua.dk>
parents:
49598
diff
changeset
|
1604 ;; we can warn the user if the `CUA-mode' feature is ever provided. |
53baa12e5cee
Add run-time check to catch users trying
Kim F. Storm <storm@cua.dk>
parents:
49598
diff
changeset
|
1605 |
53baa12e5cee
Add run-time check to catch users trying
Kim F. Storm <storm@cua.dk>
parents:
49598
diff
changeset
|
1606 ;;;###autoload (eval-after-load 'CUA-mode |
53baa12e5cee
Add run-time check to catch users trying
Kim F. Storm <storm@cua.dk>
parents:
49598
diff
changeset
|
1607 ;;;###autoload '(error (concat "\n\n" |
70799
1f93e9207b29
Mention customizing cua-mode as alternative
Kim F. Storm <storm@cua.dk>
parents:
69900
diff
changeset
|
1608 ;;;###autoload "CUA-mode is now part of the standard GNU Emacs distribution, so you may\n" |
1f93e9207b29
Mention customizing cua-mode as alternative
Kim F. Storm <storm@cua.dk>
parents:
69900
diff
changeset
|
1609 ;;;###autoload "now enable CUA via the Options menu or by customizing option `cua-mode'.\n\n" |
62023 | 1610 ;;;###autoload "You have loaded an older version of CUA-mode which does\n" |
1611 ;;;###autoload "not work correctly with this version of GNU Emacs.\n\n" | |
61999
b8e64f81f45f
Fix check for CUA-mode if no init file.
Kim F. Storm <storm@cua.dk>
parents:
61642
diff
changeset
|
1612 ;;;###autoload (if user-init-file (concat |
49898
53baa12e5cee
Add run-time check to catch users trying
Kim F. Storm <storm@cua.dk>
parents:
49598
diff
changeset
|
1613 ;;;###autoload "To correct this, remove the loading and customization of the\n" |
62023 | 1614 ;;;###autoload "old version from the " user-init-file " file.\n\n"))))) |
49898
53baa12e5cee
Add run-time check to catch users trying
Kim F. Storm <storm@cua.dk>
parents:
49598
diff
changeset
|
1615 |
50060 | 1616 (provide 'cua) |
1617 | |
52401 | 1618 ;;; arch-tag: 21fb6289-ba25-4fee-bfdc-f9fb351acf05 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1619 ;;; cua-base.el ends here |