annotate lisp/emulation/cua-base.el @ 84201:1e032858dd3e

Move to ../doc/emacs/, misc/
author Glenn Morris <rgm@gnu.org>
date Thu, 06 Sep 2007 04:40:47 +0000
parents 27d11c1d4e46
children 16efb39cdb2e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
7a3f13e2dd57 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74454
diff changeset
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
78218
ac0efac52065 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 76132
diff changeset
13 ;; the Free Software Foundation; either version 3, or (at your option)
44938
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
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63869
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63869
diff changeset
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
d68e3a5fce0c (cua-enable-cua-keys)
Kim F. Storm <storm@cua.dk>
parents: 45225
diff changeset
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
d68e3a5fce0c (cua-enable-cua-keys)
Kim F. Storm <storm@cua.dk>
parents: 45225
diff changeset
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
a82b5511d943 (cua-rectangle-face)
Kim F. Storm <storm@cua.dk>
parents: 61279
diff changeset
437 '((default :inherit region)
a82b5511d943 (cua-rectangle-face)
Kim F. Storm <storm@cua.dk>
parents: 61279
diff changeset
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
a82b5511d943 (cua-rectangle-face)
Kim F. Storm <storm@cua.dk>
parents: 61279
diff changeset
443 '((default :inherit region)
a82b5511d943 (cua-rectangle-face)
Kim F. Storm <storm@cua.dk>
parents: 61279
diff changeset
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
a82b5511d943 (cua-rectangle-face)
Kim F. Storm <storm@cua.dk>
parents: 61279
diff changeset
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
99eea8becc4f (cua-read-only-cursor-color)
Kim F. Storm <storm@cua.dk>
parents: 53167
diff changeset
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
99eea8becc4f (cua-read-only-cursor-color)
Kim F. Storm <storm@cua.dk>
parents: 53167
diff changeset
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
871fe6a1f35a Corrected last fix.
Kim F. Storm <storm@cua.dk>
parents: 45952
diff changeset
782 (= prefix ?\C-u))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49430
diff changeset
783 (cond
45954
871fe6a1f35a Corrected last fix.
Kim F. Storm <storm@cua.dk>
parents: 45952
diff changeset
784 ((eq cua-enable-register-prefix 'not-ctrl-u)
871fe6a1f35a Corrected last fix.
Kim F. Storm <storm@cua.dk>
parents: 45952
diff changeset
785 (not ctrl-u-prefix))
871fe6a1f35a Corrected last fix.
Kim F. Storm <storm@cua.dk>
parents: 45952
diff changeset
786 ((eq cua-enable-register-prefix 'ctrl-u-only)
871fe6a1f35a Corrected last fix.
Kim F. Storm <storm@cua.dk>
parents: 45952
diff changeset
787 ctrl-u-prefix)
871fe6a1f35a Corrected last fix.
Kim F. Storm <storm@cua.dk>
parents: 45952
diff changeset
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 (if cua--rectangle
56839
8425c441196c (cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents: 56433
diff changeset
902 (progn
8425c441196c (cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents: 56433
diff changeset
903 (goto-char (min (mark) (point)))
8425c441196c (cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents: 56433
diff changeset
904 (setq paste-column (cua--rectangle-left))
8425c441196c (cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents: 56433
diff changeset
905 (setq paste-lines (cua--delete-rectangle))
8425c441196c (cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents: 56433
diff changeset
906 (if (= paste-lines 1)
8425c441196c (cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents: 56433
diff changeset
907 (setq paste-lines nil))) ;; paste all
81895
d59242324437 (cua-paste): Before a yank command,
Juri Linkov <juri@jurta.org>
parents: 76132
diff changeset
908 ;; Before a yank command, make sure we don't yank the
d59242324437 (cua-paste): Before a yank command,
Juri Linkov <juri@jurta.org>
parents: 76132
diff changeset
909 ;; head of the kill-ring that really comes from the
82508
0c55974f55f5 (cua-paste): Use `mouse-region-match' instead of checking last-command.
Juri Linkov <juri@jurta.org>
parents: 82376
diff changeset
910 ;; currently active region we are going to delete.
0c55974f55f5 (cua-paste): Use `mouse-region-match' instead of checking last-command.
Juri Linkov <juri@jurta.org>
parents: 82376
diff changeset
911 ;; That would make yank a no-op.
81895
d59242324437 (cua-paste): Before a yank command,
Juri Linkov <juri@jurta.org>
parents: 76132
diff changeset
912 (if (and (string= (filter-buffer-substring (point) (mark))
d59242324437 (cua-paste): Before a yank command,
Juri Linkov <juri@jurta.org>
parents: 76132
diff changeset
913 (car kill-ring))
82508
0c55974f55f5 (cua-paste): Use `mouse-region-match' instead of checking last-command.
Juri Linkov <juri@jurta.org>
parents: 82376
diff changeset
914 (mouse-region-match))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
915 (current-kill 1))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
916 (cua-delete-region)))
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 (regtxt
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
919 (cond
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
920 ((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
921 ((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
922 (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
923 ((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
924 (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
925 (let ((pt (point)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
926 (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
927 (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
928 (undo-boundary)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
929 (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
930 (cua--insert-rectangle (cdr cua--last-killed-rectangle)
8425c441196c (cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents: 56433
diff changeset
931 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
932 (if arg (goto-char pt))))
62184
d2e6a54e6fb1 (cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents: 62023
diff changeset
933 ((eq this-original-command 'clipboard-yank)
d2e6a54e6fb1 (cua-copy-region, cua-cut-region)
Kim F. Storm <storm@cua.dk>
parents: 62023
diff changeset
934 (clipboard-yank))
76132
0d644f70ff05 (cua-paste): Handle x-clipboard-yank.
Kim F. Storm <storm@cua.dk>
parents: 75488
diff changeset
935 ((eq this-original-command 'x-clipboard-yank)
0d644f70ff05 (cua-paste): Handle x-clipboard-yank.
Kim F. Storm <storm@cua.dk>
parents: 75488
diff changeset
936 (x-clipboard-yank))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
937 (t (yank arg)))))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
938
74365
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 ;; cua-paste-pop-rotate-temporarily == t mechanism:
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
941 ;;
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
942 ;; 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
943 ;; 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
944 ;;
74454
7d244d3c8089 (cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 74365
diff changeset
945 ;; 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
946 ;;
7d244d3c8089 (cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 74365
diff changeset
947 ;; 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
948 ;; kill-ring position, so
74454
7d244d3c8089 (cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 74365
diff changeset
949 ;; 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
950 ;;
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
951
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
952 (defvar cua-paste-pop-count nil)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
953
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
954 (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
955 "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
956 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
957 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
958 (interactive "P")
74365
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
959 (cond
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
960 ((eq last-command 'cua--paste-rectangle)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
961 (undo)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
962 (yank arg))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
963 ((not cua-paste-pop-rotate-temporarily)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
964 (yank-pop (prefix-numeric-value arg)))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
965 (t
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
966 (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
967 (cond
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
968 ((or (null cua-paste-pop-count)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
969 (eq last-command 'yank)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
970 (eq last-command 'cua-paste))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
971 (setq cua-paste-pop-count rotate)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
972 (setq last-command 'yank)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
973 (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
974 ((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
975 (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
976 (setq last-command 'yank)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
977 (yank-pop cua-paste-pop-count))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
978 (t
74454
7d244d3c8089 (cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 74365
diff changeset
979 (setq cua-paste-pop-count
7d244d3c8089 (cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 74365
diff changeset
980 (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
981 (yank (1+ cua-paste-pop-count)))))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
982 ;; 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
983 ;; yank the original head.
74454
7d244d3c8089 (cua-paste-pop-rotate-temporarily): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 74365
diff changeset
984 (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
985 (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
986
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
987 (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
988 "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
989 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
990 (interactive "P")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
991 (if arg
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
992 (setq mark-active t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
993 (let (mark-active)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
994 (exchange-point-and-mark)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
995 (if cua--rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
996 (cua--rectangle-corner 0)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
997
45520
f62b4c7276d7 (cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents: 45502
diff changeset
998 ;; Typed text that replaced the highlighted region.
f62b4c7276d7 (cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents: 45502
diff changeset
999 (defvar cua--repeat-replace-text nil)
f62b4c7276d7 (cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents: 45502
diff changeset
1000
f62b4c7276d7 (cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents: 45502
diff changeset
1001 (defun cua-repeat-replace-region (arg)
f62b4c7276d7 (cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents: 45502
diff changeset
1002 "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
1003 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
1004 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
1005 of text."
45520
f62b4c7276d7 (cua--repeat-replace-text): New variable.
Kim F. Storm <storm@cua.dk>
parents: 45502
diff changeset
1006 (interactive "P")
45597
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1007 (when cua--last-deleted-region-pos
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1008 (save-excursion
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1009 (save-restriction
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1010 (set-buffer (car cua--last-deleted-region-pos))
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1011 (widen)
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1012 ;; 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
1013 (let ((ul buffer-undo-list)
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1014 (elt (cdr cua--last-deleted-region-pos))
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1015 u s e)
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1016 (when elt
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1017 (while (consp ul)
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1018 (setq u (car ul) ul (cdr ul))
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1019 (cond
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1020 ((eq u elt) ;; got it
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1021 (setq ul nil))
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1022 ((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
1023 (if (and s (= (cdr u) s))
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1024 (setq s (car u))
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1025 (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
1026 (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
1027 (setq cua--repeat-replace-text
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1028 (filter-buffer-substring s e nil t)))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1029 ((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
1030 (setq cua--repeat-replace-text
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1031 ""))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1032 (t
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1033 (message "Cannot locate replacement text"))))))
45597
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1034 (setq cua--last-deleted-region-pos nil))
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1035 (if (and cua--last-deleted-region-text
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1036 cua--repeat-replace-text
c85054b077e6 (cua--last-deleted-region-pos)
Kim F. Storm <storm@cua.dk>
parents: 45541
diff changeset
1037 (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
1038 (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
1039
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1040 (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
1041 "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
1042 (interactive)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49430
diff changeset
1043 (message
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1044 (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
1045 "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
1046
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1047
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1048 ;;; Shift activated / extended region
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1049
74365
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1050 (defun cua-pop-to-last-change ()
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1051 (let ((undo-list buffer-undo-list)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1052 pos elt)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1053 (while (and (not pos)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1054 (consp undo-list))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1055 (setq elt (car undo-list)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1056 undo-list (cdr undo-list))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1057 (cond
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1058 ((integerp elt)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1059 (setq pos elt))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1060 ((not (consp elt)))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1061 ((and (integerp (cdr elt))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1062 (or (integerp (car elt)) (stringp (car elt))))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1063 (setq pos (cdr elt)))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1064 ((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
1065 (setq pos (nth 3 elt)))))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1066 (when (and pos
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1067 (/= pos (point))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1068 (>= pos (point-min)) (<= pos (point-max)))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1069 (goto-char pos)
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1070 t)))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1071
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1072 (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
1073 "Set mark at where point is, clear mark, or jump to mark.
50253
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1074
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1075 With no prefix argument, clear mark if already set. Otherwise, set
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1076 mark, and push old mark position on local mark ring; also push mark on
54851
99eea8becc4f (cua-read-only-cursor-color)
Kim F. Storm <storm@cua.dk>
parents: 53167
diff changeset
1077 global mark ring if last mark was set in another buffer.
50253
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1078
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1079 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
1080 the local mark ring (this does not affect the global mark ring).
50253
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1081 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
1082 \(see `pop-global-mark').
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1083
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1084 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
1085 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
1086
9bf67e990ee1 (cua-set-mark): Unconditionally repeat
Kim F. Storm <storm@cua.dk>
parents: 50295
diff changeset
1087 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
1088 off the local (or global) mark ring.
50253
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1089
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1090 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
1091 (interactive "P")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1092 (cond
50253
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1093 ((and (consp arg) (> (prefix-numeric-value arg) 4))
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1094 (push-mark-command nil))
45541
00093b6b87d7 (cua-set-mark): Align pop to marko
Kim F. Storm <storm@cua.dk>
parents: 45520
diff changeset
1095 ((eq last-command 'pop-to-mark-command)
50253
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1096 (setq this-command 'pop-to-mark-command)
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1097 (pop-to-mark-command))
50382
9bf67e990ee1 (cua-set-mark): Unconditionally repeat
Kim F. Storm <storm@cua.dk>
parents: 50295
diff changeset
1098 ((and (eq last-command 'pop-global-mark) (not arg))
50253
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1099 (setq this-command 'pop-global-mark)
e902117d7494 (cua-set-mark): Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 50060
diff changeset
1100 (pop-global-mark))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1101 (arg
45541
00093b6b87d7 (cua-set-mark): Align pop to marko
Kim F. Storm <storm@cua.dk>
parents: 45520
diff changeset
1102 (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
1103 (or (and cua-auto-mark-last-change
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1104 (cua-pop-to-last-change))
c728cbf657c6 (cua-toggle-set-mark): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 72661
diff changeset
1105 (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
1106 ((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
1107 (cua--deactivate)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1108 (message "Mark Cleared"))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1109 (t
45541
00093b6b87d7 (cua-set-mark): Align pop to marko
Kim F. Storm <storm@cua.dk>
parents: 45520
diff changeset
1110 (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
1111 (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
1112 (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
1113 (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
1114 (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
1115
55263
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1116 ;;; 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
1117 ;;; 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
1118 ;;; of buffer).
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1119
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1120 (defun cua-scroll-up (&optional arg)
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1121 "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
1122 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
1123 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
1124 Negative ARG means scroll downward.
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1125 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
1126 (interactive "P")
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1127 (cond
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1128 ((eq arg '-) (cua-scroll-down nil))
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1129 ((< (prefix-numeric-value arg) 0)
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1130 (cua-scroll-down (- (prefix-numeric-value arg))))
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1131 ((eobp)
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1132 (scroll-up arg)) ; signal error
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1133 (t
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1134 (condition-case nil
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1135 (scroll-up arg)
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1136 (end-of-buffer (goto-char (point-max)))))))
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1137
59972
97e808b19272 (cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents: 58963
diff changeset
1138 (put 'cua-scroll-up 'CUA 'move)
97e808b19272 (cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents: 58963
diff changeset
1139
55263
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1140 (defun cua-scroll-down (&optional arg)
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1141 "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
1142 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
1143 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
1144 Negative ARG means scroll upward.
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1145 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
1146 (interactive "P")
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1147 (cond
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1148 ((eq arg '-) (cua-scroll-up nil))
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1149 ((< (prefix-numeric-value arg) 0)
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1150 (cua-scroll-up (- (prefix-numeric-value arg))))
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1151 ((bobp)
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1152 (scroll-down arg)) ; signal error
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1153 (t
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1154 (condition-case nil
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1155 (scroll-down arg)
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1156 (beginning-of-buffer (goto-char (point-min)))))))
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1157
61150
20dc81ce84e7 (cua-scroll-down): Add CUA property.
Kim F. Storm <storm@cua.dk>
parents: 60488
diff changeset
1158 (put 'cua-scroll-down 'CUA 'move)
59972
97e808b19272 (cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents: 58963
diff changeset
1159
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1160 ;;; Cursor indications
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1161
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1162 (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
1163 (let* ((cursor
4a6854d33d2b * emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents: 55263
diff changeset
1164 (cond
4a6854d33d2b * emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents: 55263
diff changeset
1165 ((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
1166 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
1167 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
1168 ((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
1169 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
1170 cua-read-only-cursor-color)
56839
8425c441196c (cua-auto-expand-rectangles): Remove
Kim F. Storm <storm@cua.dk>
parents: 56433
diff changeset
1171 ((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
1172 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
1173 (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
1174 (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
1175 (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
1176 (if (and color
4a6854d33d2b * emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents: 55263
diff changeset
1177 (stringp color)
4a6854d33d2b * emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents: 55263
diff changeset
1178 (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
1179 (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
1180 (if (and type
4a6854d33d2b * emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents: 55263
diff changeset
1181 (symbolp type)
55336
33225d8d84ab (cua--update-indications): Fix last change.
Kim F. Storm <storm@cua.dk>
parents: 55271
diff changeset
1182 (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
1183 (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
1184
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1185
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1186 ;;; Pre-command hook
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1187
64311
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1188 (defun cua--pre-command-handler-1 ()
72661
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1189 ;; 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
1190 (when cua--prefix-override-timer
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1191 (if (timerp cua--prefix-override-timer)
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1192 (cancel-timer cua--prefix-override-timer))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1193 (setq cua--prefix-override-timer nil))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1194
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1195 (cond
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1196 ;; Only symbol commands can have necessary properties
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1197 ((not (symbolp this-command))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1198 nil)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1199
72661
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1200 ;; 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
1201 ((not (eq (get this-command 'CUA) 'move))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1202 (when (and mark-active (not deactivate-mark))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1203 (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
1204 (get this-command 'pending-delete)))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1205 (nc (cond
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1206 ((not ds) nil)
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1207 ((eq ds 'yank)
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1208 'cua-paste)
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1209 ((eq ds 'kill)
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1210 (if cua--rectangle
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1211 'cua-copy-rectangle
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1212 'cua-copy-region))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1213 ((eq ds 'supersede)
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1214 (if cua--rectangle
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1215 'cua-delete-rectangle
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1216 'cua-delete-region))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1217 (t
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1218 (if cua--rectangle
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1219 'cua-delete-rectangle ;; replace?
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1220 'cua-replace-region)))))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1221 (if nc
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1222 (setq this-original-command this-command
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1223 this-command nc)))))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1224
72661
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1225 ;; 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
1226 ;; 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
1227 ;; 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
1228 ;; 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
1229 ((if window-system
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1230 (memq 'shift (event-modifiers
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1231 (aref (this-single-command-raw-keys) 0)))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1232 (or
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1233 (memq 'shift (event-modifiers
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1234 (aref (this-single-command-keys) 0)))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1235 ;; See if raw escape sequence maps to a shifted event, e.g. S-up or C-S-home.
83542
2d56e13fd23d Merged from emacs@sv.gnu.org
Karoly Lorentey <lorentey@elte.hu>
parents: 83533 72661
diff changeset
1236 (and (boundp 'local-function-key-map)
2d56e13fd23d Merged from emacs@sv.gnu.org
Karoly Lorentey <lorentey@elte.hu>
parents: 83533 72661
diff changeset
1237 local-function-key-map
2d56e13fd23d Merged from emacs@sv.gnu.org
Karoly Lorentey <lorentey@elte.hu>
parents: 83533 72661
diff changeset
1238 (let ((ev (lookup-key local-function-key-map
72661
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1239 (this-single-command-raw-keys))))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1240 (and (vector ev)
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1241 (symbolp (setq ev (aref ev 0)))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1242 (string-match "S-" (symbol-name ev)))))))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1243 (unless mark-active
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1244 (push-mark-command nil t))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1245 (setq cua--last-region-shifted t)
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1246 (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
1247
72661
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1248 ;; 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
1249 ((or cua--explicit-region-start cua--rectangle)
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1250 (unless mark-active
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1251 (push-mark-command nil nil)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49430
diff changeset
1252
72661
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1253 ;; Else clear mark after this command.
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1254 (t
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1255 ;; 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
1256 ;; removed by the direct_output_ commands.
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1257 (setq deactivate-mark t)))
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1258
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1259 ;; 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
1260 (setq cua--buffer-and-point-before-command
153255cb260a (cua--pre-command-handler-1): Rewrite.
Kim F. Storm <storm@cua.dk>
parents: 71905
diff changeset
1261 (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
1262
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1263 (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
1264 (when cua-mode
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1265 (condition-case nil
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1266 (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
1267 (error nil))))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1268
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1269 ;;; Post-command hook
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1270
64311
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1271 (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
1272 (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
1273 (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
1274 (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
1275 (cua--rectangle-post-command))
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1276 (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
1277 (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
1278 (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
1279
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1280 ;; Debugging
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1281 (if cua--debug
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1282 (cond
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1283 (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
1284 (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
1285 (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
1286
64311
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1287 ;; 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
1288 (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
1289 (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
1290 (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
1291 (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
1292 t))))
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1293 (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
1294 (cua--update-indications))
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 (cua--select-keymaps))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1297
64311
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1298 (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
1299 (when cua-mode
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1300 (condition-case nil
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1301 (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
1302 (error nil))))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1303
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1304
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1305 ;;; Keymaps
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1306
67405
f8d3bd39d0a1 * emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents: 67385
diff changeset
1307 ;; 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
1308 (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
1309
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1310 (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
1311 ;; 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
1312 (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
1313 (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
1314
45502
3cea63601c2a (cua--self-insert-char-p): New function.
Kim F. Storm <storm@cua.dk>
parents: 45278
diff changeset
1315 (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
1316 ;; 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
1317 ;; global-map.
3cea63601c2a (cua--self-insert-char-p): New function.
Kim F. Storm <storm@cua.dk>
parents: 45278
diff changeset
1318 (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
1319 '(self-insert-command self-insert-iso))
3cea63601c2a (cua--self-insert-char-p): New function.
Kim F. Storm <storm@cua.dk>
parents: 45278
diff changeset
1320 def nil))
3cea63601c2a (cua--self-insert-char-p): New function.
Kim F. Storm <storm@cua.dk>
parents: 45278
diff changeset
1321
45225
76c3f51638bd (cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents: 45074
diff changeset
1322 (defvar cua-global-keymap (make-sparse-keymap)
76c3f51638bd (cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents: 45074
diff changeset
1323 "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
1324
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1325 (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
1326 (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
1327 (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
1328 (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
1329 (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
1330 (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
1331
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1332 (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
1333 (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
1334 (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
1335 (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
1336 (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
1337
45225
76c3f51638bd (cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents: 45074
diff changeset
1338 (defvar cua--keymap-alist
76c3f51638bd (cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents: 45074
diff changeset
1339 `((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
1340 (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
1341 (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
1342 (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
1343 (cua--rectangle . ,cua--rectangle-keymap)
76c3f51638bd (cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents: 45074
diff changeset
1344 (cua--ena-region-keymap . ,cua--region-keymap)
76c3f51638bd (cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents: 45074
diff changeset
1345 (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
1346
45225
76c3f51638bd (cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents: 45074
diff changeset
1347 (defun cua--select-keymaps ()
76c3f51638bd (cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents: 45074
diff changeset
1348 ;; 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
1349 (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
1350 (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
1351 (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
1352 (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
1353 cua-enable-cua-keys
45074
d57f600f5b7e (cua-inhibit-cua-keys): New buffer-local variable.
Kim F. Storm <storm@cua.dk>
parents: 45062
diff changeset
1354 (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
1355 (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
1356 (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
1357 (not executing-kbd-macro)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1358 (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
1359 (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
1360 (and cua--ena-region-keymap
67385
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1361 (or (timerp cua--prefix-override-timer)
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1362 (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
1363 (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
1364 (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
1365 (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
1366 (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
1367 cua--last-region-shifted)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1368 (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
1369 (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
1370 (not (window-minibuffer-p)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1371
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1372 (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
1373
67385
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1374 (defun cua--shift-control-prefix (prefix arg)
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1375 ;; 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
1376 ;; Don't record this command
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1377 (setq this-command last-command)
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1378 ;; Restore the prefix arg
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1379 (setq prefix-arg arg)
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1380 (reset-this-command-lengths)
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1381 ;; Activate the cua--prefix-repeat-keymap
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1382 (setq cua--prefix-override-timer 'shift)
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1383 ;; Push duplicate keys back on the event queue
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1384 (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
1385
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1386 (defun cua--shift-control-c-prefix (arg)
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1387 (interactive "P")
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1388 (cua--shift-control-prefix ?\C-c arg))
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1389
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1390 (defun cua--shift-control-x-prefix (arg)
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1391 (interactive "P")
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1392 (cua--shift-control-prefix ?\C-x arg))
15ed3778b098 (cua--select-keymaps): Enable repeat
Kim F. Storm <storm@cua.dk>
parents: 65896
diff changeset
1393
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1394 (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
1395 ;; 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
1396 (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
1397 (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
1398 (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
1399 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
1400 'meta))
f8d3bd39d0a1 * emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents: 67385
diff changeset
1401 ;; C-return always toggles rectangle mark
69668
16f8a4a89f79 (cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 68648
diff changeset
1402 (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
1403 (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
1404 (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
1405 (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
1406 (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
1407
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
1408 (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
1409
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1410 ;; 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
1411 (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
1412 (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
1413 (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
1414 ;; 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
1415 (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
1416 ;; set mark
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1417 (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
1418
55263
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1419 ;; scrolling
eb737a4709cb (cua--standard-movement-commands):
Kim F. Storm <storm@cua.dk>
parents: 54851
diff changeset
1420 (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
1421 (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
1422
44938
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 x) timeout] 'kill-region)
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 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
1425 (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
1426 (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
1427 (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
1428 (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
1429
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1430 (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
1431 (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
1432
44938
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) (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
1434 (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
1435 (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
1436 (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
1437 (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
1438 (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
1439 (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
1440 (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
1441 (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
1442 (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
1443
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49430
diff changeset
1444 ;; 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
1445 (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
1446 (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
1447
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1448 ;; replace current 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 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
1450 (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
1451 (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
1452 (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
1453 (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
1454 (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
1455 ;; delete current 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 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
1457 (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
1458 (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
1459 (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
1460 ;; kill region
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1461 (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
1462 (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
1463 ;; copy region
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1464 (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
1465 (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
1466 (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
1467 ;; cancel current region/rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1468 (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
1469 (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
1470 )
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1471
59972
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 ;; 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
1474
97e808b19272 (cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents: 58963
diff changeset
1475 (dolist (cmd
97e808b19272 (cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents: 58963
diff changeset
1476 '(forward-char backward-char
97e808b19272 (cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents: 58963
diff changeset
1477 next-line previous-line
97e808b19272 (cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents: 58963
diff changeset
1478 forward-word backward-word
97e808b19272 (cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents: 58963
diff changeset
1479 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
1480 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
1481 end-of-buffer beginning-of-buffer
97e808b19272 (cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents: 58963
diff changeset
1482 scroll-up scroll-down
65726
01f4ad04e6ac Set CUA move property on additional commands:
Kim F. Storm <storm@cua.dk>
parents: 64989
diff changeset
1483 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
1484 end-of-defun beginning-of-defun
01f4ad04e6ac Set CUA move property on additional commands:
Kim F. Storm <storm@cua.dk>
parents: 64989
diff changeset
1485 forward-sexp backward-sexp
01f4ad04e6ac Set CUA move property on additional commands:
Kim F. Storm <storm@cua.dk>
parents: 64989
diff changeset
1486 forward-list backward-list
59972
97e808b19272 (cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents: 58963
diff changeset
1487 forward-sentence backward-sentence
97e808b19272 (cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents: 58963
diff changeset
1488 forward-paragraph backward-paragraph))
97e808b19272 (cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents: 58963
diff changeset
1489 (put cmd 'CUA 'move))
97e808b19272 (cua-max-undo, cua-undo): Remove.
Kim F. Storm <storm@cua.dk>
parents: 58963
diff changeset
1490
45278
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1491 ;; State prior to enabling cua-mode
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1492 ;; 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
1493 ;; transient-mark-mode
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1494 ;; delete-selection-mode
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1495 ;; pc-selection-mode
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1496
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1497 (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
1498
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1499 ;;;###autoload
50636
0af2d4122c02 (cua-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50382
diff changeset
1500 (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
1501 "Toggle CUA key-binding mode.
64527
95c2d98fdeb1 (cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents: 64311
diff changeset
1502 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
1503 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
1504 and typed text replaces the active selection.
95c2d98fdeb1 (cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents: 64311
diff changeset
1505
95c2d98fdeb1 (cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents: 64311
diff changeset
1506 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
1507 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
1508 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
1509 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
1510 function of these prefix keys.
95c2d98fdeb1 (cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents: 64311
diff changeset
1511
95c2d98fdeb1 (cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents: 64311
diff changeset
1512 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
1513 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
1514 options:
95c2d98fdeb1 (cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents: 64311
diff changeset
1515 - 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
1516 - 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
1517 - 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
1518
95c2d98fdeb1 (cua-mode): Improve doc string.
Kim F. Storm <storm@cua.dk>
parents: 64311
diff changeset
1519 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
1520 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
1521 the prefix fallback behavior.
bbaecffc7697 (cua-mode): Mention that CUA enables
Kim F. Storm <storm@cua.dk>
parents: 67405
diff changeset
1522
68570
ccdb6d05d81a (cua-mode): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 68523
diff changeset
1523 CUA mode manages Transient Mark mode internally. Trying to disable
ccdb6d05d81a (cua-mode): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 68523
diff changeset
1524 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
1525 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
1526 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
1527 :global t
61279
e745823be4f7 (cua-mode): Specify :group.
Lute Kamstra <lute@gnu.org>
parents: 61150
diff changeset
1528 :group 'cua
69668
16f8a4a89f79 (cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 68648
diff changeset
1529 :set-after '(cua-enable-modeline-indications
16f8a4a89f79 (cua-rectangle-mark-key): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 68648
diff changeset
1530 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
1531 :require 'cua-base
0af2d4122c02 (cua-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50382
diff changeset
1532 :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
1533 (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
1534 (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
1535
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1536 (unless cua--keymaps-initalized
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1537 (cua--init-keymaps)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1538 (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
1539
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1540 (if cua-mode
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1541 (progn
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1542 (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
1543 (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
1544 (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
1545 (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
1546 (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
1547 (cua--update-indications)))
4a6854d33d2b * emulation/cua-base.el: Add support for changing cursor types;
Kim F. Storm <storm@cua.dk>
parents: 55263
diff changeset
1548
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1549 (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
1550 (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
1551
76c3f51638bd (cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents: 45074
diff changeset
1552 (if (not cua-mode)
76c3f51638bd (cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents: 45074
diff changeset
1553 (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
1554 (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
1555 (cua--select-keymaps))
76c3f51638bd (cua-mode): Misc. changes to use
Kim F. Storm <storm@cua.dk>
parents: 45074
diff changeset
1556
45278
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1557 (cond
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1558 (cua-mode
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1559 (setq cua--saved-state
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1560 (list
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1561 transient-mark-mode
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1562 (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
1563 (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
1564 (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
1565 (delete-selection-mode -1))
45278
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1566 (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
1567 (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
1568 (cua--deactivate)
45278
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1569 (setq transient-mark-mode (and cua-mode
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1570 (if cua-highlight-region-shift-only
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1571 (not cua--explicit-region-start)
50636
0af2d4122c02 (cua-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50382
diff changeset
1572 t))))
45278
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1573 (cua--saved-state
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1574 (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
1575 (if (nth 1 cua--saved-state)
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1576 (delete-selection-mode 1))
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1577 (if (nth 2 cua--saved-state)
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1578 (pc-selection-mode 1))
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1579 (if (interactive-p)
97b1e590eb61 (cua-enable-cursor-indications): Default off.
Kim F. Storm <storm@cua.dk>
parents: 45231
diff changeset
1580 (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
1581 (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
1582 (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
1583 (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
1584 (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
1585 (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
1586
64311
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1587
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1588 ;;;###autoload
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1589 (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
1590 "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
1591 (interactive "P")
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1592 (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
1593 (cua-mode arg))
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1594
d1bb70278f2a (cua--pre-command-handler-1, cua--pre-command-handler)
Kim F. Storm <storm@cua.dk>
parents: 64085
diff changeset
1595
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1596 (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
1597 "Toggle CUA debugging."
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1598 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1599 (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
1600
49898
53baa12e5cee Add run-time check to catch users trying
Kim F. Storm <storm@cua.dk>
parents: 49598
diff changeset
1601
50060
b3e355e69315 Provide `cua' feature.
Kim F. Storm <storm@cua.dk>
parents: 50057
diff changeset
1602 (provide 'cua)
b3e355e69315 Provide `cua' feature.
Kim F. Storm <storm@cua.dk>
parents: 50057
diff changeset
1603
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51587
diff changeset
1604 ;;; 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
1605 ;;; cua-base.el ends here