annotate lisp/emulation/cua-rect.el @ 90375:e6bf73e43cf4

Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-49 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 164-184) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: man/mh-e.texi (Folders): Various edits. - Update from erc--emacs--0 * gnus--rel--5.10 (patch 62-70) - Merge from emacs--devo--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Tue, 28 Mar 2006 23:08:20 +0000
parents c5406394f567 5f7de9821aeb
children c156f6a9e7b5
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-rect.el --- CUA unified rectangle support
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: 64085
diff changeset
3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
68648
067115a6e738 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 67419
diff changeset
4 ;; 2005, 2006 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 emulations convenience CUA
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
8
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
10
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
14 ;; any later version.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
15
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
19 ;; GNU General Public License for more details.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
20
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63871
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63871
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 ;;; Acknowledgements
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
27
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
28 ;; The rectangle handling and display code borrows from the standard
45318
b80d723ad7cc Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 45297
diff changeset
29 ;; GNU emacs rect.el package and the rect-mark.el package by Rick
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
30 ;; Sladkey <jrs@world.std.com>.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
31
45078
829beb9a6a4b Follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 44938
diff changeset
32 ;;; Commentary:
829beb9a6a4b Follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 44938
diff changeset
33
829beb9a6a4b Follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 44938
diff changeset
34 ;;; Code:
829beb9a6a4b Follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 44938
diff changeset
35
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
36 (provide 'cua-rect)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
37
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
38 (eval-when-compile
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
39 (require 'cua-base)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
40 (require 'cua-gmrk)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
41 )
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
42
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
43 ;;; Rectangle support
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
44
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
45 (require 'rect)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
46
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
47 ;; If non-nil, restrict current region to this rectangle.
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
48 ;; Value is a vector [top bot left right corner ins virt select].
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
49 ;; CORNER specifies currently active corner 0=t/l 1=t/r 2=b/l 3=b/r.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
50 ;; INS specifies whether to insert on left(nil) or right(t) side.
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
51 ;; If VIRT is non-nil, virtual straight edges are enabled.
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
52 ;; If SELECT is a regexp, only lines starting with that regexp are affected.")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
53 (defvar cua--rectangle nil)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
54 (make-variable-buffer-local 'cua--rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
55
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
56 ;; Most recent rectangle geometry. Note: car is buffer.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
57 (defvar cua--last-rectangle nil)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
58
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
59 ;; Rectangle restored by undo.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
60 (defvar cua--restored-rectangle nil)
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 ;; Last rectangle copied/killed; nil if last kill was not a rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
63 (defvar 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
64
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
65 ;; List of overlays used to display current rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
66 (defvar cua--rectangle-overlays nil)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
67 (make-variable-buffer-local 'cua--rectangle-overlays)
67214
4fd503f32b2c (cua--rectangle-overlays): Make permanent-local.
Kim F. Storm <storm@cua.dk>
parents: 67143
diff changeset
68 (put 'cua--rectangle-overlays 'permanent-local t)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
69
56902
8d62e1b62c44 * emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents: 56896
diff changeset
70 (defvar cua--overlay-keymap
8d62e1b62c44 * emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents: 56896
diff changeset
71 (let ((map (make-sparse-keymap)))
8d62e1b62c44 * emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents: 56896
diff changeset
72 (define-key map "\r" 'cua-rotate-rectangle)))
8d62e1b62c44 * emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents: 56896
diff changeset
73
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
74 (defvar cua--virtual-edges-debug nil)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
75
59973
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
76 ;; Undo rectangle commands.
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
77
59973
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
78 (defvar cua--rect-undo-set-point nil)
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
79
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
80 (defun cua--rectangle-undo-boundary ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
81 (when (listp buffer-undo-list)
59973
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
82 (let ((s (cua--rect-start-position))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
83 (e (cua--rect-end-position)))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
84 (undo-boundary)
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
85 (push (list 'apply 0 s e
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
86 'cua--rect-undo-handler
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
87 (copy-sequence cua--rectangle) t s e)
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
88 buffer-undo-list))))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
89
59973
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
90 (defun cua--rect-undo-handler (rect on s e)
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
91 (if (setq on (not on))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
92 (setq cua--rect-undo-set-point s)
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
93 (setq cua--restored-rectangle (copy-sequence rect))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
94 (setq cua--buffer-and-point-before-command nil))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
95 (push (list 'apply 0 s (if on e s)
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
96 'cua--rect-undo-handler rect on s e)
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
97 buffer-undo-list))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
98
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
99 ;;; Rectangle geometry
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
100
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
101 (defun cua--rectangle-top (&optional val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
102 ;; Top of CUA rectangle (buffer position on first line).
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
103 (if (not val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
104 (aref cua--rectangle 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
105 (setq val (line-beginning-position))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
106 (if (<= val (aref cua--rectangle 1))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
107 (aset cua--rectangle 0 val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
108 (aset cua--rectangle 1 val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
109 (cua--rectangle-corner 2))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
110
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
111 (defun cua--rectangle-bot (&optional val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
112 ;; Bot of CUA rectangle (buffer position on last line).
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
113 (if (not val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
114 (aref cua--rectangle 1)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
115 (setq val (line-end-position))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
116 (if (>= val (aref cua--rectangle 0))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
117 (aset cua--rectangle 1 val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
118 (aset cua--rectangle 0 val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
119 (cua--rectangle-corner 2))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
120
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
121 (defun cua--rectangle-left (&optional val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
122 ;; Left column of CUA rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
123 (if (integerp val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
124 (if (<= val (aref cua--rectangle 3))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
125 (aset cua--rectangle 2 val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
126 (aset cua--rectangle 3 val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
127 (cua--rectangle-corner (if (cua--rectangle-right-side) -1 1)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
128 (aref cua--rectangle 2)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
129
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
130 (defun cua--rectangle-right (&optional val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
131 ;; Right column of CUA rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
132 (if (integerp val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
133 (if (>= val (aref cua--rectangle 2))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
134 (aset cua--rectangle 3 val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
135 (aset cua--rectangle 2 val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
136 (cua--rectangle-corner (if (cua--rectangle-right-side) -1 1)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
137 (aref cua--rectangle 3)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
138
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
139 (defun cua--rectangle-corner (&optional advance)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
140 ;; Currently active corner of rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
141 (let ((c (aref cua--rectangle 4)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
142 (if (not (integerp advance))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
143 c
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46180
diff changeset
144 (aset cua--rectangle 4
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
145 (if (= advance 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
146 (- 3 c) ; opposite corner
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
147 (mod (+ c 4 advance) 4)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
148 (aset cua--rectangle 5 0))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
149
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
150 (defun cua--rectangle-right-side (&optional topbot)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
151 ;; t if point is on right side of rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
152 (if (and topbot (= (cua--rectangle-left) (cua--rectangle-right)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
153 (< (cua--rectangle-corner) 2)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
154 (= (mod (cua--rectangle-corner) 2) 1)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
155
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
156 (defun cua--rectangle-column ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
157 (if (cua--rectangle-right-side)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
158 (cua--rectangle-right)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
159 (cua--rectangle-left)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
160
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
161 (defun cua--rectangle-insert-col (&optional col)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
162 ;; Currently active corner of rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
163 (if (integerp col)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
164 (aset cua--rectangle 5 col)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
165 (if (cua--rectangle-right-side t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
166 (if (= (aref cua--rectangle 5) 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
167 (1+ (cua--rectangle-right))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
168 (aref cua--rectangle 5))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
169 (cua--rectangle-left))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
170
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
171 (defun cua--rectangle-virtual-edges (&optional set val)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
172 ;; Current setting of rectangle virtual-edges
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
173 (if set
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
174 (aset cua--rectangle 6 val))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
175 (and ;(not buffer-read-only)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
176 (aref cua--rectangle 6)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
177
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
178 (defun cua--rectangle-restriction (&optional val bounded negated)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
179 ;; Current rectangle restriction
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
180 (if val
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
181 (aset cua--rectangle 7
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
182 (and (stringp val)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
183 (> (length val) 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
184 (list val bounded negated)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
185 (aref cua--rectangle 7)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
186
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
187 (defun cua--rectangle-assert ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
188 (message "%S (%d)" cua--rectangle (point))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
189 (if (< (cua--rectangle-right) (cua--rectangle-left))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
190 (message "rectangle right < left"))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
191 (if (< (cua--rectangle-bot) (cua--rectangle-top))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
192 (message "rectangle bot < top")))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
193
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
194 (defun cua--rectangle-get-corners ()
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
195 ;; Calculate the rectangular region represented by point and mark,
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
196 ;; putting start in the upper left corner and end in the
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
197 ;; bottom right corner.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
198 (let ((top (point)) (bot (mark)) r l corner)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
199 (save-excursion
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
200 (goto-char top)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
201 (setq l (current-column))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
202 (goto-char bot)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
203 (setq r (current-column))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
204 (if (<= top bot)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
205 (setq corner (if (<= l r) 0 1))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
206 (setq top (prog1 bot (setq bot top)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
207 (setq corner (if (<= l r) 2 3)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
208 (if (<= l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
209 (if (< l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
210 (setq r (1- r)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
211 (setq l (prog1 r (setq r l)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
212 (goto-char top)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
213 (move-to-column l)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
214 (setq top (point))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
215 (goto-char bot)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
216 (move-to-column r)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
217 (setq bot (point))))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
218 (vector top bot l r corner 0 cua-virtual-rectangle-edges nil)))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
219
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
220 (defun cua--rectangle-set-corners ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
221 ;; Set mark and point in opposite corners of current rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
222 (let (pp pc mp mc (c (cua--rectangle-corner)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
223 (cond
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
224 ((= c 0) ; top/left -> bot/right
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
225 (setq pp (cua--rectangle-top) pc (cua--rectangle-left)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
226 mp (cua--rectangle-bot) mc (cua--rectangle-right)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
227 ((= c 1) ; top/right -> bot/left
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
228 (setq pp (cua--rectangle-top) pc (cua--rectangle-right)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
229 mp (cua--rectangle-bot) mc (cua--rectangle-left)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
230 ((= c 2) ; bot/left -> top/right
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
231 (setq pp (cua--rectangle-bot) pc (cua--rectangle-left)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
232 mp (cua--rectangle-top) mc (cua--rectangle-right)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
233 ((= c 3) ; bot/right -> top/left
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
234 (setq pp (cua--rectangle-bot) pc (cua--rectangle-right)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
235 mp (cua--rectangle-top) mc (cua--rectangle-left))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
236 (goto-char mp)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
237 (move-to-column mc)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
238 (set-mark (point))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
239 (goto-char pp)
56902
8d62e1b62c44 * emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents: 56896
diff changeset
240 ;; Move cursor inside rectangle, except if char at rigth edge is a tab.
56896
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
241 (if (and (if (cua--rectangle-right-side)
56902
8d62e1b62c44 * emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents: 56896
diff changeset
242 (and (= (move-to-column pc) (- pc tab-width))
8d62e1b62c44 * emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents: 56896
diff changeset
243 (not (eolp)))
56896
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
244 (> (move-to-column pc) pc))
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
245 (not (bolp)))
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
246 (backward-char 1))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
247 ))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
248
59973
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
249 (defun cua--rect-start-position ()
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
250 ;; Return point of top left corner
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
251 (save-excursion
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
252 (goto-char (cua--rectangle-top))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
253 (and (> (move-to-column (cua--rectangle-left))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
254 (cua--rectangle-left))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
255 (not (bolp))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
256 (backward-char 1))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
257 (point)))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
258
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
259 (defun cua--rect-end-position ()
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
260 ;; Return point of bottom right cornet
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
261 (save-excursion
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
262 (goto-char (cua--rectangle-bot))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
263 (and (= (move-to-column (cua--rectangle-right))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
264 (- (cua--rectangle-right) tab-width))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
265 (not (eolp))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
266 (not (bolp))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
267 (backward-char 1))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
268 (point)))
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
269
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
270 ;;; Rectangle resizing
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
271
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
272 (defun cua--forward-line (n)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
273 ;; Move forward/backward one line. Returns t if movement.
56902
8d62e1b62c44 * emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents: 56896
diff changeset
274 (let ((pt (point)))
8d62e1b62c44 * emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents: 56896
diff changeset
275 (and (= (forward-line n) 0)
8d62e1b62c44 * emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents: 56896
diff changeset
276 ;; Deal with end of buffer
8d62e1b62c44 * emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents: 56896
diff changeset
277 (or (not (eobp))
8d62e1b62c44 * emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents: 56896
diff changeset
278 (goto-char pt)))))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
279
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
280 (defun cua--rectangle-resized ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
281 ;; Refresh state after resizing rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
282 (setq 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
283 (cua--rectangle-insert-col 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
284 (cua--rectangle-set-corners)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
285 (cua--keep-active))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
286
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
287 (defun cua-resize-rectangle-right (n)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
288 "Resize rectangle to the right."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
289 (interactive "p")
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
290 (let ((resized (> n 0)))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
291 (while (> n 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
292 (setq n (1- n))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
293 (cond
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
294 ((cua--rectangle-right-side)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
295 (cua--rectangle-right (1+ (cua--rectangle-right)))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
296 (move-to-column (cua--rectangle-right)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
297 (t
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
298 (cua--rectangle-left (1+ (cua--rectangle-left)))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
299 (move-to-column (cua--rectangle-right)))))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
300 (if resized
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
301 (cua--rectangle-resized))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
302
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
303 (defun cua-resize-rectangle-left (n)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
304 "Resize rectangle to the left."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
305 (interactive "p")
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
306 (let (resized)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
307 (while (> n 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
308 (setq n (1- n))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
309 (if (or (= (cua--rectangle-right) 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
310 (and (not (cua--rectangle-right-side)) (= (cua--rectangle-left) 0)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
311 (setq n 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
312 (cond
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
313 ((cua--rectangle-right-side)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
314 (cua--rectangle-right (1- (cua--rectangle-right)))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
315 (move-to-column (cua--rectangle-right)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
316 (t
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
317 (cua--rectangle-left (1- (cua--rectangle-left)))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
318 (move-to-column (cua--rectangle-right))))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
319 (setq resized t)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
320 (if resized
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
321 (cua--rectangle-resized))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
322
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
323 (defun cua-resize-rectangle-down (n)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
324 "Resize rectangle downwards."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
325 (interactive "p")
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
326 (let (resized)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
327 (while (> n 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
328 (setq n (1- n))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
329 (cond
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
330 ((>= (cua--rectangle-corner) 2)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
331 (goto-char (cua--rectangle-bot))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
332 (when (cua--forward-line 1)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
333 (move-to-column (cua--rectangle-column))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
334 (cua--rectangle-bot t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
335 (setq resized t)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
336 (t
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
337 (goto-char (cua--rectangle-top))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
338 (when (cua--forward-line 1)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
339 (move-to-column (cua--rectangle-column))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
340 (cua--rectangle-top t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
341 (setq resized t)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
342 (if resized
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
343 (cua--rectangle-resized))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
344
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
345 (defun cua-resize-rectangle-up (n)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
346 "Resize rectangle upwards."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
347 (interactive "p")
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
348 (let (resized)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
349 (while (> n 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
350 (setq n (1- n))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
351 (cond
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
352 ((>= (cua--rectangle-corner) 2)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
353 (goto-char (cua--rectangle-bot))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
354 (when (cua--forward-line -1)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
355 (move-to-column (cua--rectangle-column))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
356 (cua--rectangle-bot t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
357 (setq resized t)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
358 (t
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
359 (goto-char (cua--rectangle-top))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
360 (when (cua--forward-line -1)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
361 (move-to-column (cua--rectangle-column))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
362 (cua--rectangle-top t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
363 (setq resized t)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
364 (if resized
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
365 (cua--rectangle-resized))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
366
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
367 (defun cua-resize-rectangle-eol ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
368 "Resize rectangle to end of line."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
369 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
370 (unless (eolp)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
371 (end-of-line)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
372 (if (> (current-column) (cua--rectangle-right))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
373 (cua--rectangle-right (current-column)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
374 (if (not (cua--rectangle-right-side))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
375 (cua--rectangle-corner 1))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
376 (cua--rectangle-resized)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
377
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
378 (defun cua-resize-rectangle-bol ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
379 "Resize rectangle to beginning of line."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
380 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
381 (unless (bolp)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
382 (beginning-of-line)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
383 (cua--rectangle-left (current-column))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
384 (if (cua--rectangle-right-side)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
385 (cua--rectangle-corner -1))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
386 (cua--rectangle-resized)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
387
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
388 (defun cua-resize-rectangle-bot ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
389 "Resize rectangle to bottom of buffer."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
390 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
391 (goto-char (point-max))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
392 (move-to-column (cua--rectangle-column))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
393 (cua--rectangle-bot t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
394 (cua--rectangle-resized))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
395
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
396 (defun cua-resize-rectangle-top ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
397 "Resize rectangle to top of buffer."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
398 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
399 (goto-char (point-min))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
400 (move-to-column (cua--rectangle-column))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
401 (cua--rectangle-top t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
402 (cua--rectangle-resized))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
403
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
404 (defun cua-resize-rectangle-page-up ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
405 "Resize rectangle upwards by one scroll page."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
406 (interactive)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
407 (scroll-down)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
408 (move-to-column (cua--rectangle-column))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
409 (if (>= (cua--rectangle-corner) 2)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
410 (cua--rectangle-bot t)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
411 (cua--rectangle-top t))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
412 (cua--rectangle-resized))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
413
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
414 (defun cua-resize-rectangle-page-down ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
415 "Resize rectangle downwards by one scroll page."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
416 (interactive)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
417 (scroll-up)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
418 (move-to-column (cua--rectangle-column))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
419 (if (>= (cua--rectangle-corner) 2)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
420 (cua--rectangle-bot t)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
421 (cua--rectangle-top t))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
422 (cua--rectangle-resized))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
423
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
424 ;;; Mouse support
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
425
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
426 ;; This is pretty simplistic, but it does the job...
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
427
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
428 (defun cua-mouse-resize-rectangle (event)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
429 "Set rectangle corner at mouse click position."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
430 (interactive "e")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
431 (mouse-set-point event)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
432 ;; FIX ME -- need to calculate virtual column.
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
433 (if (cua--rectangle-virtual-edges)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
434 (move-to-column (car (posn-col-row (event-end event))) t))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
435 (if (cua--rectangle-right-side)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
436 (cua--rectangle-right (current-column))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
437 (cua--rectangle-left (current-column)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
438 (if (>= (cua--rectangle-corner) 2)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
439 (cua--rectangle-bot t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
440 (cua--rectangle-top t))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
441 (cua--rectangle-resized))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
442
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
443 (defvar cua--mouse-last-pos nil)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
444
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
445 (defun cua-mouse-set-rectangle-mark (event)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
446 "Start rectangle at mouse click position."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
447 (interactive "e")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
448 (when cua--rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
449 (cua--deactivate-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
450 (cua--deactivate t))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
451 (setq cua--last-rectangle nil)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
452 (mouse-set-point event)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
453 ;; FIX ME -- need to calculate virtual column.
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
454 (cua-set-rectangle-mark)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
455 (setq 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
456 (setq cua--mouse-last-pos nil))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
457
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
458 (defun cua-mouse-save-then-kill-rectangle (event arg)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
459 "Expand rectangle to mouse click position and copy rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
460 If command is repeated at same position, delete the rectangle."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
461 (interactive "e\nP")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
462 (if (and (eq this-command last-command)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
463 (eq (point) (car-safe cua--mouse-last-pos))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
464 (eq cua--last-killed-rectangle (cdr-safe cua--mouse-last-pos)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
465 (progn
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
466 (unless buffer-read-only
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
467 (cua--delete-rectangle))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
468 (cua--deactivate))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
469 (cua-mouse-resize-rectangle event)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
470 (let ((cua-keep-region-after-copy t))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
471 (cua-copy-rectangle arg)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
472 (setq cua--mouse-last-pos (cons (point) cua--last-killed-rectangle)))))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
473
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
474 (defun cua--mouse-ignore (event)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
475 (interactive "e")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
476 (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
477
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
478 (defun cua--rectangle-move (dir)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
479 (let ((moved t)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
480 (top (cua--rectangle-top))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
481 (bot (cua--rectangle-bot))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
482 (l (cua--rectangle-left))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
483 (r (cua--rectangle-right)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
484 (cond
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
485 ((eq dir 'up)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
486 (goto-char top)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
487 (when (cua--forward-line -1)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
488 (cua--rectangle-top t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
489 (goto-char bot)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
490 (forward-line -1)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
491 (cua--rectangle-bot t)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
492 ((eq dir 'down)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
493 (goto-char bot)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
494 (when (cua--forward-line 1)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
495 (cua--rectangle-bot t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
496 (goto-char top)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
497 (cua--forward-line 1)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
498 (cua--rectangle-top t)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
499 ((eq dir 'left)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
500 (when (> l 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
501 (cua--rectangle-left (1- l))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
502 (cua--rectangle-right (1- r))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
503 ((eq dir 'right)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
504 (cua--rectangle-right (1+ r))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
505 (cua--rectangle-left (1+ l)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
506 (t
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
507 (setq moved nil)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
508 (when moved
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
509 (setq 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
510 (cua--rectangle-set-corners)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
511 (cua--keep-active))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
512
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
513
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
514 ;;; Operations on current rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
515
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
516 (defun cua--tabify-start (start end)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
517 ;; Return position where auto-tabify should start (or nil if not required).
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
518 (save-excursion
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
519 (save-restriction
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
520 (widen)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
521 (and (not buffer-read-only)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
522 cua-auto-tabify-rectangles
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
523 (if (or (not (integerp cua-auto-tabify-rectangles))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
524 (= (point-min) (point-max))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
525 (progn
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
526 (goto-char (max (point-min)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
527 (- start cua-auto-tabify-rectangles)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
528 (search-forward "\t" (min (point-max)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
529 (+ end cua-auto-tabify-rectangles)) t)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
530 start)))))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
531
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
532 (defun cua--rectangle-operation (keep-clear visible undo pad tabify &optional fct post-fct)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
533 ;; Call FCT for each line of region with 4 parameters:
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
534 ;; Region start, end, left-col, right-col
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
535 ;; Point is at start when FCT is called
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
536 ;; Call fct with (s,e) = whole lines if VISIBLE non-nil.
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
537 ;; Only call fct for visible lines if VISIBLE==t.
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
538 ;; Set undo boundary if UNDO is non-nil.
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
539 ;; Rectangle is padded if PAD = t or numeric and (cua--rectangle-virtual-edges)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
540 ;; Perform auto-tabify after operation if TABIFY is non-nil.
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
541 ;; Mark is kept if keep-clear is 'keep and cleared if keep-clear is 'clear.
57075
57f225a13a09 (cua--rectangle-operation): Let bind
Kim F. Storm <storm@cua.dk>
parents: 57011
diff changeset
542 (let* ((inhibit-field-text-motion t)
57f225a13a09 (cua--rectangle-operation): Let bind
Kim F. Storm <storm@cua.dk>
parents: 57011
diff changeset
543 (start (cua--rectangle-top))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
544 (end (cua--rectangle-bot))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
545 (l (cua--rectangle-left))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
546 (r (1+ (cua--rectangle-right)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
547 (m (make-marker))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
548 (tabpad (and (integerp pad) (= pad 2)))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
549 (sel (cua--rectangle-restriction))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
550 (tabify-start (and tabify (cua--tabify-start start end))))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
551 (if undo
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
552 (cua--rectangle-undo-boundary))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
553 (if (integerp pad)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
554 (setq pad (cua--rectangle-virtual-edges)))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
555 (save-excursion
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
556 (save-restriction
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
557 (widen)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
558 (when (> (cua--rectangle-corner) 1)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
559 (goto-char end)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
560 (and (bolp) (not (eolp)) (not (eobp))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
561 (setq end (1+ end))))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
562 (when (eq visible t)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
563 (setq start (max (window-start) start))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
564 (setq end (min (window-end) end)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
565 (goto-char end)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
566 (setq end (line-end-position))
56896
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
567 (if (and visible (bolp) (not (eobp)))
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
568 (setq end (1+ end)))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
569 (goto-char start)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
570 (setq start (line-beginning-position))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
571 (narrow-to-region start end)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
572 (goto-char (point-min))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
573 (while (< (point) (point-max))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
574 (move-to-column r pad)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
575 (and (not pad) (not visible) (> (current-column) r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
576 (backward-char 1))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
577 (if (and tabpad (not pad) (looking-at "\t"))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
578 (forward-char 1))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
579 (set-marker m (point))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
580 (move-to-column l pad)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
581 (if (and fct (or visible (and (>= (current-column) l) (<= (current-column) r))))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
582 (let ((v t) (p (point)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
583 (when sel
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
584 (if (car (cdr sel))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
585 (setq v (looking-at (car sel)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
586 (setq v (re-search-forward (car sel) m t))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
587 (goto-char p))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
588 (if (car (cdr (cdr sel)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
589 (setq v (null v))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
590 (if visible
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
591 (funcall fct p m l r v)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
592 (if v
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
593 (funcall fct p m l r)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
594 (set-marker m nil)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
595 (forward-line 1))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
596 (if (not visible)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
597 (cua--rectangle-bot t))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
598 (if post-fct
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
599 (funcall post-fct l r))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
600 (when tabify-start
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
601 (tabify tabify-start (point)))))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
602 (cond
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
603 ((eq keep-clear 'keep)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
604 (cua--keep-active))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
605 ((eq keep-clear 'clear)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
606 (cua--deactivate))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
607 ((eq keep-clear 'corners)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
608 (cua--rectangle-set-corners)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
609 (cua--keep-active)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
610 (setq 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
611
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
612 (put 'cua--rectangle-operation 'lisp-indent-function 4)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
613
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
614 (defun cua--delete-rectangle ()
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
615 (let ((lines 0))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
616 (if (not (cua--rectangle-virtual-edges))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
617 (cua--rectangle-operation nil nil t 2 t
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
618 '(lambda (s e l r v)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
619 (setq lines (1+ lines))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
620 (if (and (> e s) (<= e (point-max)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
621 (delete-region s e))))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
622 (cua--rectangle-operation nil 1 t nil t
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
623 '(lambda (s e l r v)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
624 (setq lines (1+ lines))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
625 (when (and (> e s) (<= e (point-max)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
626 (delete-region s e)))))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
627 lines))
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 (defun cua--extract-rectangle ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
630 (let (rect)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
631 (if (not (cua--rectangle-virtual-edges))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
632 (cua--rectangle-operation nil nil nil nil nil ; do not tabify
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
633 '(lambda (s e l r)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
634 (setq rect (cons (buffer-substring-no-properties s e) rect))))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
635 (cua--rectangle-operation nil 1 nil nil nil ; do not tabify
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
636 '(lambda (s e l r v)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
637 (let ((copy t) (bs 0) (as 0) row)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
638 (if (= s e) (setq e (1+ e)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
639 (goto-char s)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
640 (move-to-column l)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
641 (if (= (point) (line-end-position))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
642 (setq bs (- r l)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
643 copy nil)
67419
79aa532aaa44 (cua--extract-rectangle): Undo recent change re. \s in strings.
Kim F. Storm <storm@cua.dk>
parents: 67407
diff changeset
644 (skip-chars-forward "\s\t" e)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
645 (setq bs (- (min r (current-column)) l)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
646 s (point))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
647 (move-to-column r)
67419
79aa532aaa44 (cua--extract-rectangle): Undo recent change re. \s in strings.
Kim F. Storm <storm@cua.dk>
parents: 67407
diff changeset
648 (skip-chars-backward "\s\t" s)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
649 (setq as (- r (max (current-column) l))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
650 e (point)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
651 (setq row (if (and copy (> e s))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
652 (buffer-substring-no-properties s e)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
653 ""))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
654 (when (> bs 0)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
655 (setq row (concat (make-string bs ?\s) row)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
656 (when (> as 0)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
657 (setq row (concat row (make-string as ?\s))))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
658 (setq rect (cons row rect))))))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
659 (nreverse rect)))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
660
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
661 (defun cua--insert-rectangle (rect &optional below paste-column line-count)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
662 ;; Insert rectangle as insert-rectangle, but don't set mark and exit with
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
663 ;; point at either next to top right or below bottom left corner
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
664 ;; Notice: In overwrite mode, the rectangle is inserted as separate text lines.
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
665 (if (eq below 'auto)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
666 (setq below (and (bolp)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
667 (or (eolp) (eobp) (= (1+ (point)) (point-max))))))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
668 (unless paste-column
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
669 (setq paste-column (current-column)))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
670 (let ((lines rect)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
671 (first t)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
672 (tabify-start (cua--tabify-start (point) (point)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
673 last-column
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
674 p)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
675 (while (or lines below)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
676 (or first
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
677 (if overwrite-mode
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
678 (insert ?\n)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
679 (forward-line 1)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
680 (or (bolp) (insert ?\n))))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
681 (unless overwrite-mode
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
682 (move-to-column paste-column t))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
683 (if (not lines)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
684 (setq below nil)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
685 (insert-for-yank (car lines))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
686 (unless last-column
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
687 (setq last-column (current-column)))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
688 (setq lines (cdr lines))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
689 (and first (not below)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
690 (setq p (point))))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
691 (setq first nil)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
692 (if (and line-count (= (setq line-count (1- line-count)) 0))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
693 (setq lines nil)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
694 (when (and line-count last-column (not overwrite-mode))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
695 (while (> line-count 0)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
696 (forward-line 1)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
697 (or (bolp) (insert ?\n))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
698 (move-to-column paste-column t)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
699 (insert-char ?\s (- last-column paste-column -1))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
700 (setq line-count (1- line-count))))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
701 (when (and tabify-start
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
702 (not overwrite-mode))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
703 (tabify tabify-start (point)))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
704 (and p (not overwrite-mode)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
705 (goto-char p))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
706
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
707 (defun cua--copy-rectangle-as-kill (&optional ring)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
708 (if cua--register
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
709 (set-register cua--register (cua--extract-rectangle))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
710 (setq killed-rectangle (cua--extract-rectangle))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
711 (setq cua--last-killed-rectangle (cons (and kill-ring (car kill-ring)) killed-rectangle))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
712 (if ring
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
713 (kill-new (mapconcat
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
714 (function (lambda (row) (concat row "\n")))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
715 killed-rectangle "")))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
716
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
717 (defun cua--activate-rectangle ()
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
718 ;; Turn on rectangular marking mode by disabling transient mark mode
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
719 ;; and manually handling highlighting from a post command hook.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
720 ;; Be careful if we are already marking a rectangle.
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46180
diff changeset
721 (setq cua--rectangle
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46180
diff changeset
722 (if (and cua--last-rectangle
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
723 (eq (car cua--last-rectangle) (current-buffer))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
724 (eq (car (cdr cua--last-rectangle)) (point)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
725 (cdr (cdr cua--last-rectangle))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
726 (cua--rectangle-get-corners))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
727 cua--status-string (if (cua--rectangle-virtual-edges) " [R]" "")
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
728 cua--last-rectangle nil))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
729
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
730 ;; (defvar cua-save-point nil)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
731
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
732 (defun cua--deactivate-rectangle ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
733 ;; This is used to clean up after `cua--activate-rectangle'.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
734 (mapcar (function delete-overlay) cua--rectangle-overlays)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46180
diff changeset
735 (setq cua--last-rectangle (cons (current-buffer)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
736 (cons (point) ;; cua-save-point
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
737 cua--rectangle))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
738 cua--rectangle nil
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
739 cua--rectangle-overlays nil
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
740 cua--status-string nil
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
741 cua--mouse-last-pos nil))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
742
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
743 (defun cua--highlight-rectangle ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
744 ;; This function is used to highlight the rectangular region.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
745 ;; We do this by putting an overlay on each line within the rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
746 ;; Each overlay extends across all the columns of the rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
747 ;; We try to reuse overlays where possible because this is more efficient
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
748 ;; and results in less flicker.
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
749 ;; If cua--rectangle-virtual-edges is nil and the buffer contains tabs or short lines,
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
750 ;; the higlighted region may not be perfectly rectangular.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
751 (let ((deactivate-mark deactivate-mark)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
752 (old cua--rectangle-overlays)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
753 (new nil)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
754 (left (cua--rectangle-left))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
755 (right (1+ (cua--rectangle-right))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
756 (when (/= left right)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
757 (sit-for 0) ; make window top/bottom reliable
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
758 (cua--rectangle-operation nil t nil nil nil ; do not tabify
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
759 '(lambda (s e l r v)
63073
f1bf3660220e * emulation/cua-base.el (cua-rectangle, cua-rectangle-noselect)
Kim F. Storm <storm@cua.dk>
parents: 62450
diff changeset
760 (let ((rface (if v 'cua-rectangle 'cua-rectangle-noselect))
56896
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
761 overlay bs ms as)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
762 (when (cua--rectangle-virtual-edges)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
763 (let ((lb (line-beginning-position))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
764 (le (line-end-position))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
765 cl cl0 pl cr cr0 pr)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
766 (goto-char s)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
767 (setq cl (move-to-column l)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
768 pl (point))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
769 (setq cr (move-to-column r)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
770 pr (point))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
771 (if (= lb pl)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
772 (setq cl0 0)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
773 (goto-char (1- pl))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
774 (setq cl0 (current-column)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
775 (if (= lb le)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
776 (setq cr0 0)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
777 (goto-char (1- pr))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
778 (setq cr0 (current-column)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
779 (unless (and (= cl l) (= cr r))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
780 (when (/= cl l)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
781 (setq bs (propertize
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
782 (make-string
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
783 (- l cl0 (if (and (= le pl) (/= le lb)) 1 0))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
784 (if cua--virtual-edges-debug ?. ?\s))
67143
cbf6461ecbbd (cua--highlight-rectangle): Preserve
Kim F. Storm <storm@cua.dk>
parents: 64710
diff changeset
785 'face (or (get-text-property (1- s) 'face) 'default)))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
786 (if (/= pl le)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
787 (setq s (1- s))))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
788 (cond
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
789 ((= cr r)
56896
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
790 (if (and (/= pr le)
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
791 (/= cr0 (1- cr))
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
792 (or bs (/= cr0 (- cr tab-width)))
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
793 (/= (mod cr tab-width) 0))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
794 (setq e (1- e))))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
795 ((= cr cl)
56896
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
796 (setq ms (propertize
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
797 (make-string
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
798 (- r l)
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
799 (if cua--virtual-edges-debug ?, ?\s))
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
800 'face rface))
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
801 (if (cua--rectangle-right-side)
69574
e963763ec80a (cua--highlight-rectangle): Set overlay
Kim F. Storm <storm@cua.dk>
parents: 68648
diff changeset
802 (put-text-property (1- (length ms)) (length ms) 'cursor 2 ms)
e963763ec80a (cua--highlight-rectangle): Set overlay
Kim F. Storm <storm@cua.dk>
parents: 68648
diff changeset
803 (put-text-property 0 1 'cursor 2 ms))
56896
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
804 (setq bs (concat bs ms))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
805 (setq rface nil))
56896
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
806 (t
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
807 (setq as (propertize
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
808 (make-string
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
809 (- r cr0 (if (= le pr) 1 0))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
810 (if cua--virtual-edges-debug ?~ ?\s))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
811 'face rface))
56896
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
812 (if (cua--rectangle-right-side)
69574
e963763ec80a (cua--highlight-rectangle): Set overlay
Kim F. Storm <storm@cua.dk>
parents: 68648
diff changeset
813 (put-text-property (1- (length as)) (length as) 'cursor 2 as)
e963763ec80a (cua--highlight-rectangle): Set overlay
Kim F. Storm <storm@cua.dk>
parents: 68648
diff changeset
814 (put-text-property 0 1 'cursor 2 as))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
815 (if (/= pr le)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
816 (setq e (1- e))))))))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
817 ;; Trim old leading overlays.
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
818 (while (and old
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
819 (setq overlay (car old))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
820 (< (overlay-start overlay) s)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
821 (/= (overlay-end overlay) e))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
822 (delete-overlay overlay)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
823 (setq old (cdr old)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
824 ;; Reuse an overlay if possible, otherwise create one.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
825 (if (and old
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
826 (setq overlay (car old))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
827 (or (= (overlay-start overlay) s)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
828 (= (overlay-end overlay) e)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
829 (progn
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
830 (move-overlay overlay s e)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
831 (setq old (cdr old)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
832 (setq overlay (make-overlay s e)))
56896
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
833 (overlay-put overlay 'before-string bs)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
834 (overlay-put overlay 'after-string as)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
835 (overlay-put overlay 'face rface)
56902
8d62e1b62c44 * emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents: 56896
diff changeset
836 (overlay-put overlay 'keymap cua--overlay-keymap)
64710
0135928f4763 (cua--highlight-rectangle): Only show
Kim F. Storm <storm@cua.dk>
parents: 64701
diff changeset
837 (overlay-put overlay 'window (selected-window))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
838 (setq new (cons overlay new))))))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
839 ;; Trim old trailing overlays.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
840 (mapcar (function delete-overlay) old)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
841 (setq cua--rectangle-overlays (nreverse new))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
842
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
843 (defun cua--indent-rectangle (&optional ch to-col clear)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
844 ;; Indent current rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
845 (let ((col (cua--rectangle-insert-col))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
846 (pad (cua--rectangle-virtual-edges))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
847 indent)
56896
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
848 (cua--rectangle-operation (if clear 'clear 'corners) nil t pad nil
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
849 '(lambda (s e l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
850 (move-to-column col pad)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
851 (if (and (eolp)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
852 (< (current-column) col))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
853 (move-to-column col t))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
854 (cond
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
855 (to-col (indent-to to-col))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
856 (ch (insert ch))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
857 (t (tab-to-tab-stop)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
858 (if (cua--rectangle-right-side t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
859 (cua--rectangle-insert-col (current-column))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
860 (setq indent (- (current-column) l))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
861 '(lambda (l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
862 (when (and indent (> indent 0))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
863 (aset cua--rectangle 2 (+ l indent))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
864 (aset cua--rectangle 3 (+ r indent -1)))))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
865
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 ;; rectangle functions / actions
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
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
870 (defvar cua--rectangle-initialized nil)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
871
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
872 (defun cua-set-rectangle-mark (&optional reopen)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
873 "Set mark and start in CUA rectangle mode.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
874 With prefix argument, activate previous rectangle if possible."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
875 (interactive "P")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
876 (unless cua--rectangle-initialized
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
877 (cua--init-rectangles))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
878 (when (not cua--rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
879 (if (and reopen
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
880 cua--last-rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
881 (eq (car cua--last-rectangle) (current-buffer)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
882 (goto-char (car (cdr cua--last-rectangle)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
883 (if (not mark-active)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
884 (push-mark nil nil t)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
885 (cua--activate-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
886 (cua--rectangle-set-corners)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
887 (setq mark-active t
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
888 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
889 (if cua-enable-rectangle-auto-help
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
890 (cua-help-for-rectangle t))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
891
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
892 (defun cua-clear-rectangle-mark ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
893 "Cancel current rectangle."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
894 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
895 (when cua--rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
896 (setq mark-active nil
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
897 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
898 (cua--deactivate-rectangle)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
899
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
900 (defun cua-toggle-rectangle-mark ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
901 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
902 (if cua--rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
903 (cua--deactivate-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
904 (unless cua--rectangle-initialized
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
905 (cua--init-rectangles))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
906 (cua--activate-rectangle))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
907 (if cua--rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
908 (if cua-enable-rectangle-auto-help
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
909 (cua-help-for-rectangle t))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
910 (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
911 (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
912
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
913 (defun cua-restrict-regexp-rectangle (arg)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
914 "Restrict rectangle to lines (not) matching REGEXP.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
915 With prefix argument, the toggle restriction."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
916 (interactive "P")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
917 (let ((r (cua--rectangle-restriction)) regexp)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
918 (if (and r (null (car (cdr r))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
919 (if arg
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
920 (cua--rectangle-restriction (car r) nil (not (car (cdr (cdr r)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
921 (cua--rectangle-restriction "" nil nil))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
922 (cua--rectangle-restriction
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
923 (read-from-minibuffer "Restrict rectangle (regexp): "
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
924 nil nil nil nil) nil arg))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
925
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
926 (defun cua-restrict-prefix-rectangle (arg)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
927 "Restrict rectangle to lines (not) starting with CHAR.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
928 With prefix argument, the toggle restriction."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
929 (interactive "P")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
930 (let ((r (cua--rectangle-restriction)) regexp)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
931 (if (and r (car (cdr r)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
932 (if arg
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
933 (cua--rectangle-restriction (car r) t (not (car (cdr (cdr r)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
934 (cua--rectangle-restriction "" nil nil))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
935 (cua--rectangle-restriction
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46180
diff changeset
936 (format "[%c]"
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
937 (read-char "Restrictive rectangle (char): ")) t arg))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
939 (defun cua-move-rectangle-up ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
940 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
941 (cua--rectangle-move 'up))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
942
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
943 (defun cua-move-rectangle-down ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
944 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
945 (cua--rectangle-move 'down))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
946
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
947 (defun cua-move-rectangle-left ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
948 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
949 (cua--rectangle-move 'left))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
950
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
951 (defun cua-move-rectangle-right ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
952 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
953 (cua--rectangle-move 'right))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
954
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
955 (defun cua-copy-rectangle (arg)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
956 (interactive "P")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
957 (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
958 (cua--copy-rectangle-as-kill arg)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
959 (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
960 (cua--keep-active)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
961 (cua--deactivate)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
962
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
963 (defun cua-cut-rectangle (arg)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
964 (interactive "P")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
965 (if buffer-read-only
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
966 (cua-copy-rectangle arg)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
967 (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
968 (goto-char (min (mark) (point)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
969 (cua--copy-rectangle-as-kill arg)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
970 (cua--delete-rectangle))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
971 (cua--deactivate))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
972
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
973 (defun cua-delete-rectangle ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
974 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
975 (goto-char (min (point) (mark)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
976 (if cua-delete-copy-to-register-0
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
977 (set-register ?0 (cua--extract-rectangle)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
978 (cua--delete-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
979 (cua--deactivate))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
980
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
981 (defun cua-rotate-rectangle ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
982 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
983 (cua--rectangle-corner (if (= (cua--rectangle-left) (cua--rectangle-right)) 0 1))
56896
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
984 (cua--rectangle-set-corners)
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
985 (if (cua--rectangle-virtual-edges)
77bbb90bd021 (cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents: 56838
diff changeset
986 (setq cua--buffer-and-point-before-command nil)))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
987
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
988 (defun cua-toggle-rectangle-virtual-edges ()
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
989 (interactive)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
990 (cua--rectangle-virtual-edges t (not (cua--rectangle-virtual-edges)))
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
991 (cua--rectangle-set-corners)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
992 (setq cua--status-string (and (cua--rectangle-virtual-edges) " [R]"))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
993 (cua--keep-active))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
994
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
995 (defun cua-do-rectangle-padding ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
996 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
997 (if buffer-read-only
63871
ffc4b2e19212 (cua-do-rectangle-padding): Remove period from end of messages.
Juanma Barranquero <lekktu@gmail.com>
parents: 63073
diff changeset
998 (message "Cannot do padding in read-only buffer")
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
999 (cua--rectangle-operation nil nil t t t)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1000 (cua--rectangle-set-corners))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1001 (cua--keep-active))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1002
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1003 (defun cua-open-rectangle ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1004 "Blank out CUA rectangle, shifting text right.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1005 The text previously in the region is not overwritten by the blanks,
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1006 but instead winds up to the right of the rectangle."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1007 (interactive)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1008 (cua--rectangle-operation 'corners nil t 1 nil
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1009 '(lambda (s e l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1010 (skip-chars-forward " \t")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1011 (let ((ws (- (current-column) l))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1012 (p (point)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1013 (skip-chars-backward " \t")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1014 (delete-region (point) p)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1015 (indent-to (+ r ws))))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1016
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1017 (defun cua-close-rectangle (arg)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1018 "Delete all whitespace starting at left edge of CUA rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1019 On each line in the rectangle, all continuous whitespace starting
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1020 at that column is deleted.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1021 With prefix arg, also delete whitespace to the left of that column."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1022 (interactive "P")
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1023 (cua--rectangle-operation 'clear nil t 1 nil
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1024 '(lambda (s e l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1025 (when arg
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1026 (skip-syntax-backward " " (line-beginning-position))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1027 (setq s (point)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1028 (skip-syntax-forward " " (line-end-position))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1029 (delete-region s (point)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1030
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1031 (defun cua-blank-rectangle ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1032 "Blank out CUA rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1033 The text previously in the rectangle is overwritten by the blanks."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1034 (interactive)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1035 (cua--rectangle-operation 'keep nil nil 1 nil
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1036 '(lambda (s e l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1037 (goto-char e)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1038 (skip-syntax-forward " " (line-end-position))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1039 (setq e (point))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1040 (let ((column (current-column)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1041 (goto-char s)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1042 (skip-syntax-backward " " (line-beginning-position))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1043 (delete-region (point) e)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1044 (indent-to column)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1045
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1046 (defun cua-align-rectangle ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1047 "Align rectangle lines to left column."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1048 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1049 (let (x)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1050 (cua--rectangle-operation 'clear nil t t nil
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1051 '(lambda (s e l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1052 (let ((b (line-beginning-position)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1053 (skip-syntax-backward "^ " b)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1054 (skip-syntax-backward " " b)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1055 (setq s (point)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1056 (skip-syntax-forward " " (line-end-position))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1057 (delete-region s (point))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1058 (indent-to l))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1059 '(lambda (l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1060 (move-to-column l)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1061 ;; (setq cua-save-point (point))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1062 ))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1063
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1064 (defun cua-copy-rectangle-as-text (&optional arg delete)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1065 "Copy rectangle, but store as normal text."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1066 (interactive "P")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1067 (if cua--global-mark-active
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1068 (if delete
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1069 (cua--cut-rectangle-to-global-mark t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1070 (cua--copy-rectangle-to-global-mark t))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1071 (let* ((rect (cua--extract-rectangle))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1072 (text (mapconcat
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1073 (function (lambda (row) (concat row "\n")))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1074 rect "")))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1075 (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
1076 (if cua--register
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1077 (set-register cua--register text)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1078 (kill-new text)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1079 (if delete
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1080 (cua--delete-rectangle))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1081 (cua--deactivate)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1082
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1083 (defun cua-cut-rectangle-as-text (arg)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1084 "Kill rectangle, but store as normal text."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1085 (interactive "P")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1086 (cua-copy-rectangle-as-text arg (not buffer-read-only)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1087
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1088 (defun cua-string-rectangle (string)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1089 "Replace CUA rectangle contents with STRING on each line.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1090 The length of STRING need not be the same as the rectangle width."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1091 (interactive "sString rectangle: ")
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1092 (cua--rectangle-operation 'keep nil t t nil
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1093 '(lambda (s e l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1094 (delete-region s e)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1095 (skip-chars-forward " \t")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1096 (let ((ws (- (current-column) l)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1097 (delete-region s (point))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1098 (insert string)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1099 (indent-to (+ (current-column) ws))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1100 (unless (cua--rectangle-restriction)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1101 '(lambda (l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1102 (cua--rectangle-right (max l (+ l (length string) -1)))))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1103
63871
ffc4b2e19212 (cua-do-rectangle-padding): Remove period from end of messages.
Juanma Barranquero <lekktu@gmail.com>
parents: 63073
diff changeset
1104 (defun cua-fill-char-rectangle (character)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1105 "Replace CUA rectangle contents with CHARACTER."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1106 (interactive "cFill rectangle with character: ")
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1107 (cua--rectangle-operation 'clear nil t 1 nil
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1108 '(lambda (s e l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1109 (delete-region s e)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1110 (move-to-column l t)
63871
ffc4b2e19212 (cua-do-rectangle-padding): Remove period from end of messages.
Juanma Barranquero <lekktu@gmail.com>
parents: 63073
diff changeset
1111 (insert-char character (- r l)))))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1112
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1113 (defun cua-replace-in-rectangle (regexp newtext)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1114 "Replace REGEXP with NEWTEXT in each line of CUA rectangle."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1115 (interactive "sReplace regexp: \nsNew text: ")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1116 (if buffer-read-only
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1117 (message "Cannot replace in read-only buffer")
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1118 (cua--rectangle-operation 'keep nil t 1 nil
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1119 '(lambda (s e l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1120 (if (re-search-forward regexp e t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1121 (replace-match newtext nil nil))))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1122
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1123 (defun cua-incr-rectangle (increment)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1124 "Increment each line of CUA rectangle by prefix amount."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1125 (interactive "p")
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1126 (cua--rectangle-operation 'keep nil t 1 nil
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1127 '(lambda (s e l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1128 (cond
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1129 ((re-search-forward "0x\\([0-9a-fA-F]+\\)" e t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1130 (let* ((txt (buffer-substring-no-properties (match-beginning 1) (match-end 1)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1131 (n (string-to-number txt 16))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1132 (fmt (format "0x%%0%dx" (length txt))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1133 (replace-match (format fmt (+ n increment)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1134 ((re-search-forward "\\( *-?[0-9]+\\)" e t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1135 (let* ((txt (buffer-substring-no-properties (match-beginning 1) (match-end 1)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1136 (prefix (if (= (aref txt 0) ?0) "0" ""))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1137 (n (string-to-number txt 10))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1138 (fmt (format "%%%s%dd" prefix (length txt))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1139 (replace-match (format fmt (+ n increment)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1140 (t nil)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1141
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1142 (defvar cua--rectangle-seq-format "%d"
63871
ffc4b2e19212 (cua-do-rectangle-padding): Remove period from end of messages.
Juanma Barranquero <lekktu@gmail.com>
parents: 63073
diff changeset
1143 "Last format used by `cua-sequence-rectangle'.")
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1144
63871
ffc4b2e19212 (cua-do-rectangle-padding): Remove period from end of messages.
Juanma Barranquero <lekktu@gmail.com>
parents: 63073
diff changeset
1145 (defun cua-sequence-rectangle (first incr format)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1146 "Resequence each line of CUA rectangle starting from FIRST.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1147 The numbers are formatted according to the FORMAT string."
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46180
diff changeset
1148 (interactive
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1149 (list (if current-prefix-arg
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1150 (prefix-numeric-value current-prefix-arg)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1151 (string-to-number
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1152 (read-string "Start value: (0) " nil nil "0")))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1153 (string-to-number
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1154 (read-string "Increment: (1) " nil nil "1"))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1155 (read-string (concat "Format: (" cua--rectangle-seq-format ") "))))
63871
ffc4b2e19212 (cua-do-rectangle-padding): Remove period from end of messages.
Juanma Barranquero <lekktu@gmail.com>
parents: 63073
diff changeset
1156 (if (= (length format) 0)
ffc4b2e19212 (cua-do-rectangle-padding): Remove period from end of messages.
Juanma Barranquero <lekktu@gmail.com>
parents: 63073
diff changeset
1157 (setq format cua--rectangle-seq-format)
ffc4b2e19212 (cua-do-rectangle-padding): Remove period from end of messages.
Juanma Barranquero <lekktu@gmail.com>
parents: 63073
diff changeset
1158 (setq cua--rectangle-seq-format format))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1159 (cua--rectangle-operation 'clear nil t 1 nil
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1160 '(lambda (s e l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1161 (delete-region s e)
63871
ffc4b2e19212 (cua-do-rectangle-padding): Remove period from end of messages.
Juanma Barranquero <lekktu@gmail.com>
parents: 63073
diff changeset
1162 (insert (format format first))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1163 (setq first (+ first incr)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1164
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1165 (defmacro cua--convert-rectangle-as (command tabify)
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1166 `(cua--rectangle-operation 'clear nil nil nil ,tabify
55264
1a506cc5235d (cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
1167 '(lambda (s e l r)
1a506cc5235d (cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
1168 (,command s e))))
1a506cc5235d (cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
1169
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1170 (defun cua-upcase-rectangle ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1171 "Convert the rectangle to upper case."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1172 (interactive)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1173 (cua--convert-rectangle-as upcase-region nil))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1174
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1175 (defun cua-downcase-rectangle ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1176 "Convert the rectangle to lower case."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1177 (interactive)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1178 (cua--convert-rectangle-as downcase-region nil))
55264
1a506cc5235d (cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
1179
1a506cc5235d (cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
1180 (defun cua-upcase-initials-rectangle ()
1a506cc5235d (cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
1181 "Convert the rectangle initials to upper case."
1a506cc5235d (cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
1182 (interactive)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1183 (cua--convert-rectangle-as upcase-initials-region nil))
55264
1a506cc5235d (cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
1184
1a506cc5235d (cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
1185 (defun cua-capitalize-rectangle ()
1a506cc5235d (cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
1186 "Convert the rectangle to proper case."
1a506cc5235d (cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
1187 (interactive)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1188 (cua--convert-rectangle-as capitalize-region nil))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1189
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1190
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1191 ;;; Replace/rearrange text in current rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1192
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1193 (defun cua--rectangle-aux-replace (width adjust keep replace pad format-fct &optional setup-fct)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1194 ;; Process text inserted by calling SETUP-FCT or current rectangle if nil.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1195 ;; Then call FORMAT-FCT on text (if non-nil); takes two args: start and end.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1196 ;; Fill to WIDTH characters if > 0 or fill to current width if == 0.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1197 ;; Don't fill if WIDTH < 0.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1198 ;; Replace current rectangle by filled text if REPLACE is non-nil
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1199 (let ((auxbuf (get-buffer-create "*CUA temp*"))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1200 (w (if (> width 1) width
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1201 (- (cua--rectangle-right) (cua--rectangle-left) -1)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1202 (r (or setup-fct (cua--extract-rectangle)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1203 y z (tr 0))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1204 (save-excursion
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1205 (set-buffer auxbuf)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1206 (erase-buffer)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1207 (if setup-fct
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1208 (funcall setup-fct)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1209 (cua--insert-rectangle r))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1210 (if format-fct
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1211 (let ((fill-column w))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1212 (funcall format-fct (point-min) (point-max))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1213 (when replace
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1214 (goto-char (point-min))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1215 (while (not (eobp))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1216 (setq z (cons (buffer-substring (point) (line-end-position)) z))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1217 (forward-line 1))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1218 (if (not cua--debug)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1219 (kill-buffer auxbuf))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1220 (when replace
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1221 (setq z (reverse z))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1222 (if cua--debug
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1223 (print z auxbuf))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1224 (cua--rectangle-operation nil nil t pad nil
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1225 '(lambda (s e l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1226 (let (cc)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1227 (goto-char e)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1228 (skip-chars-forward " \t")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1229 (setq cc (current-column))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1230 (if cua--debug
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1231 (print (list cc s e) auxbuf))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1232 (delete-region s (point))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1233 (if (not z)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1234 (setq y 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1235 (move-to-column l t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1236 (insert (car z))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1237 (when (> (current-column) (+ l w))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1238 (setq y (point))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1239 (move-to-column (+ l w) t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1240 (delete-region (point) y)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1241 (setq tr (1+ tr)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1242 (setq z (cdr z)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1243 (if cua--debug
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1244 (print (list (current-column) cc) auxbuf))
67407
bb2f67d4e710 (cua--rectangle-aux-replace): Fix
Kim F. Storm <storm@cua.dk>
parents: 67405
diff changeset
1245 (just-one-space 0)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1246 (indent-to cc))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1247 (if (> tr 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1248 (message "Warning: Truncated %d row%s" tr (if (> tr 1) "s" "")))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1249 (if adjust
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1250 (cua--rectangle-right (+ (cua--rectangle-left) w -1)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1251 (if keep
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1252 (cua--rectangle-resized)))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1253
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1254 (put 'cua--rectangle-aux-replace 'lisp-indent-function 4)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1255
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1256 (defun cua--left-fill-rectangle (start end)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1257 (beginning-of-line)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1258 (while (< (point) (point-max))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1259 (delete-horizontal-space nil)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1260 (forward-line 1))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1261 (fill-region-as-paragraph (point-min) (point-max) 'left nil)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1262 (untabify (point-min) (point-max)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1263
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1264 (defun cua-text-fill-rectangle (width text)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1265 "Replace rectagle with filled TEXT read from minibuffer.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1266 A numeric prefix argument is used a new width for the filled rectangle."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1267 (interactive (list
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1268 (prefix-numeric-value current-prefix-arg)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1269 (read-from-minibuffer "Enter text: "
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1270 nil nil nil nil)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1271 (cua--rectangle-aux-replace width t t t 1
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1272 'cua--left-fill-rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1273 '(lambda () (insert text))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1274
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1275 (defun cua-refill-rectangle (width)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1276 "Fill contents of current rectagle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1277 A numeric prefix argument is used as new width for the filled rectangle."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1278 (interactive "P")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1279 (cua--rectangle-aux-replace
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1280 (if width (prefix-numeric-value width) 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1281 t t t 1 'cua--left-fill-rectangle))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1282
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1283 (defun cua-shell-command-on-rectangle (replace command)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1284 "Run shell command on rectangle like `shell-command-on-region'.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1285 With prefix arg, replace rectangle with output from command."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1286 (interactive (list
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1287 current-prefix-arg
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1288 (read-from-minibuffer "Shell command on rectangle: "
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46180
diff changeset
1289 nil nil nil
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1290 'shell-command-history)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1291 (cua--rectangle-aux-replace -1 t t replace 1
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1292 '(lambda (s e)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1293 (shell-command-on-region s e command
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1294 replace replace nil))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1295
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1296 (defun cua-reverse-rectangle ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1297 "Reverse the lines of the rectangle."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1298 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1299 (cua--rectangle-aux-replace 0 t t t t 'reverse-region))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1300
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1301 (defun cua-scroll-rectangle-up ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1302 "Remove the first line of the rectangle and scroll remaining lines up."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1303 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1304 (cua--rectangle-aux-replace 0 t t t t
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46180
diff changeset
1305 '(lambda (s e)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1306 (if (= (forward-line 1) 0)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1307 (delete-region s (point))))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1308
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1309 (defun cua-scroll-rectangle-down ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1310 "Insert a blank line at the first line of the rectangle.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1311 The remaining lines are scrolled down, losing the last line."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1312 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1313 (cua--rectangle-aux-replace 0 t t t t
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1314 '(lambda (s e)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1315 (goto-char s)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1316 (insert "\n"))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1317
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1318
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1319 ;;; Insert/delete text to left or right of rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1320
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1321 (defun cua-insert-char-rectangle (&optional ch)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1322 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1323 (if buffer-read-only
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1324 (ding)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1325 (cua--indent-rectangle (or ch (aref (this-single-command-keys) 0)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1326 (cua--keep-active))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1327 t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1328
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1329 (defun cua-indent-rectangle (column)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1330 "Indent rectangle to next tab stop.
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1331 With prefix arg, indent to that column."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1332 (interactive "P")
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1333 (if (null column)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1334 (cua-insert-char-rectangle ?\t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1335 (cua--indent-rectangle nil (prefix-numeric-value column))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1336
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1337 (defun cua-delete-char-rectangle ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1338 "Delete char to left or right of rectangle."
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1339 (interactive)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1340 (let ((col (cua--rectangle-insert-col))
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1341 (pad (cua--rectangle-virtual-edges))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1342 indent)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1343 (cua--rectangle-operation 'corners nil t pad nil
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1344 '(lambda (s e l r)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46180
diff changeset
1345 (move-to-column
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1346 (if (cua--rectangle-right-side t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1347 (max (1+ r) col) l)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1348 pad)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1349 (if (bolp)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1350 nil
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1351 (delete-backward-char 1)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1352 (if (cua--rectangle-right-side t)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1353 (cua--rectangle-insert-col (current-column))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1354 (setq indent (- l (current-column))))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1355 '(lambda (l r)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1356 (when (and indent (> indent 0))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1357 (aset cua--rectangle 2 (- l indent))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1358 (aset cua--rectangle 3 (- r indent 1)))))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1359
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1360 (defun cua-help-for-rectangle (&optional help)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1361 (interactive)
67405
f8d3bd39d0a1 * emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents: 67399
diff changeset
1362 (let ((M (cond ((eq cua--rectangle-modifier-key 'hyper) " H-")
f8d3bd39d0a1 * emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents: 67399
diff changeset
1363 ((eq cua--rectangle-modifier-key 'super) " s-")
f8d3bd39d0a1 * emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents: 67399
diff changeset
1364 (t " M-"))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46180
diff changeset
1365 (message
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1366 (concat (if help "C-?:help" "")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46180
diff changeset
1367 M "p:pad" M "o:open" M "c:close" M "b:blank"
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1368 M "s:string" M "f:fill" M "i:incr" M "n:seq"))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1369
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1370
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1371 ;;; CUA-like cut & paste for rectangles
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1372
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1373 (defun cua--cancel-rectangle ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1374 ;; Cancel rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1375 (if cua--rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1376 (cua--deactivate-rectangle))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1377 (setq cua--last-rectangle nil))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1378
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1379 (defun cua--rectangle-post-command ()
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1380 (if cua--restored-rectangle
59973
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
1381 (progn
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
1382 (setq cua--rectangle cua--restored-rectangle
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
1383 cua--restored-rectangle nil
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
1384 mark-active t
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
1385 deactivate-mark nil)
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
1386 (cua--rectangle-set-corners))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1387 (when (and cua--rectangle cua--buffer-and-point-before-command
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1388 (equal (car cua--buffer-and-point-before-command) (current-buffer))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1389 (not (= (cdr cua--buffer-and-point-before-command) (point))))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1390 (if (cua--rectangle-right-side)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1391 (cua--rectangle-right (current-column))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1392 (cua--rectangle-left (current-column)))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1393 (if (>= (cua--rectangle-corner) 2)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1394 (cua--rectangle-bot t)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1395 (cua--rectangle-top t))))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1396 (if cua--rectangle
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1397 (if (and mark-active
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1398 (not deactivate-mark))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1399 (cua--highlight-rectangle)
67214
4fd503f32b2c (cua--rectangle-overlays): Make permanent-local.
Kim F. Storm <storm@cua.dk>
parents: 67143
diff changeset
1400 (cua--deactivate-rectangle))
4fd503f32b2c (cua--rectangle-overlays): Make permanent-local.
Kim F. Storm <storm@cua.dk>
parents: 67143
diff changeset
1401 (when cua--rectangle-overlays
4fd503f32b2c (cua--rectangle-overlays): Make permanent-local.
Kim F. Storm <storm@cua.dk>
parents: 67143
diff changeset
1402 ;; clean-up after revert-buffer
4fd503f32b2c (cua--rectangle-overlays): Make permanent-local.
Kim F. Storm <storm@cua.dk>
parents: 67143
diff changeset
1403 (mapcar (function delete-overlay) cua--rectangle-overlays)
4fd503f32b2c (cua--rectangle-overlays): Make permanent-local.
Kim F. Storm <storm@cua.dk>
parents: 67143
diff changeset
1404 (setq cua--rectangle-overlays nil)
4fd503f32b2c (cua--rectangle-overlays): Make permanent-local.
Kim F. Storm <storm@cua.dk>
parents: 67143
diff changeset
1405 (setq deactivate-mark t)))
59973
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
1406 (when cua--rect-undo-set-point
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
1407 (goto-char cua--rect-undo-set-point)
b1a9da0dcd80 (cua--undo-list, cua--tidy-undo-counter)
Kim F. Storm <storm@cua.dk>
parents: 57075
diff changeset
1408 (setq cua--rect-undo-set-point nil)))
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 ;;; Initialization
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1411
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1412 (defun cua--rect-M/H-key (key cmd)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1413 (cua--M/H-key cua--rectangle-keymap key cmd))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1414
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1415 (defun cua--init-rectangles ()
69669
5f7de9821aeb (cua--init-rectangles): Use
Kim F. Storm <storm@cua.dk>
parents: 69574
diff changeset
1416 (define-key cua--rectangle-keymap cua-rectangle-mark-key 'cua-clear-rectangle-mark)
5f7de9821aeb (cua--init-rectangles): Use
Kim F. Storm <storm@cua.dk>
parents: 69574
diff changeset
1417 (define-key cua--region-keymap cua-rectangle-mark-key 'cua-toggle-rectangle-mark)
67405
f8d3bd39d0a1 * emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents: 67399
diff changeset
1418 (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: 67399
diff changeset
1419 (cua--rect-M/H-key ?\s 'cua-clear-rectangle-mark)
f8d3bd39d0a1 * emulation/cua-base.el (cua-use-hyper-key): Replaced by ...
Kim F. Storm <storm@cua.dk>
parents: 67399
diff changeset
1420 (cua--M/H-key cua--region-keymap ?\s 'cua-toggle-rectangle-mark))
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1421
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1422 (define-key cua--rectangle-keymap [remap copy-region-as-kill] 'cua-copy-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1423 (define-key cua--rectangle-keymap [remap kill-ring-save] 'cua-copy-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1424 (define-key cua--rectangle-keymap [remap kill-region] 'cua-cut-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1425 (define-key cua--rectangle-keymap [remap delete-char] 'cua-delete-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1426 (define-key cua--rectangle-keymap [remap set-mark-command] 'cua-toggle-rectangle-mark)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1427
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1428 (define-key cua--rectangle-keymap [remap forward-char] 'cua-resize-rectangle-right)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1429 (define-key cua--rectangle-keymap [remap backward-char] 'cua-resize-rectangle-left)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1430 (define-key cua--rectangle-keymap [remap next-line] 'cua-resize-rectangle-down)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1431 (define-key cua--rectangle-keymap [remap previous-line] 'cua-resize-rectangle-up)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1432 (define-key cua--rectangle-keymap [remap end-of-line] 'cua-resize-rectangle-eol)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1433 (define-key cua--rectangle-keymap [remap beginning-of-line] 'cua-resize-rectangle-bol)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1434 (define-key cua--rectangle-keymap [remap end-of-buffer] 'cua-resize-rectangle-bot)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1435 (define-key cua--rectangle-keymap [remap beginning-of-buffer] 'cua-resize-rectangle-top)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1436 (define-key cua--rectangle-keymap [remap scroll-down] 'cua-resize-rectangle-page-up)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1437 (define-key cua--rectangle-keymap [remap scroll-up] 'cua-resize-rectangle-page-down)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1438
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1439 (define-key cua--rectangle-keymap [remap delete-backward-char] 'cua-delete-char-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1440 (define-key cua--rectangle-keymap [remap backward-delete-char] 'cua-delete-char-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1441 (define-key cua--rectangle-keymap [remap backward-delete-char-untabify] 'cua-delete-char-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1442 (define-key cua--rectangle-keymap [remap self-insert-command] 'cua-insert-char-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1443 (define-key cua--rectangle-keymap [remap self-insert-iso] 'cua-insert-char-rectangle)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46180
diff changeset
1444
45504
3ddab99699f4 (cua--init-rectangles): Install default
Kim F. Storm <storm@cua.dk>
parents: 45318
diff changeset
1445 ;; Catch self-inserting characters which are "stolen" by other modes
3ddab99699f4 (cua--init-rectangles): Install default
Kim F. Storm <storm@cua.dk>
parents: 45318
diff changeset
1446 (define-key cua--rectangle-keymap [t]
3ddab99699f4 (cua--init-rectangles): Install default
Kim F. Storm <storm@cua.dk>
parents: 45318
diff changeset
1447 '(menu-item "sic" cua-insert-char-rectangle :filter cua--self-insert-char-p))
3ddab99699f4 (cua--init-rectangles): Install default
Kim F. Storm <storm@cua.dk>
parents: 45318
diff changeset
1448
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1449 (define-key cua--rectangle-keymap "\r" 'cua-rotate-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1450 (define-key cua--rectangle-keymap "\t" 'cua-indent-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1451
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1452 (define-key cua--rectangle-keymap [(control ??)] 'cua-help-for-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1453
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1454 (define-key cua--rectangle-keymap [mouse-1] 'cua-mouse-set-rectangle-mark)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1455 (define-key cua--rectangle-keymap [down-mouse-1] 'cua--mouse-ignore)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1456 (define-key cua--rectangle-keymap [drag-mouse-1] 'cua--mouse-ignore)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1457 (define-key cua--rectangle-keymap [mouse-3] 'cua-mouse-save-then-kill-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1458 (define-key cua--rectangle-keymap [down-mouse-3] 'cua--mouse-ignore)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1459 (define-key cua--rectangle-keymap [drag-mouse-3] 'cua--mouse-ignore)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1460
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1461 (cua--rect-M/H-key 'up 'cua-move-rectangle-up)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1462 (cua--rect-M/H-key 'down 'cua-move-rectangle-down)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1463 (cua--rect-M/H-key 'left 'cua-move-rectangle-left)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1464 (cua--rect-M/H-key 'right 'cua-move-rectangle-right)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1465
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1466 (cua--rect-M/H-key '(control up) 'cua-scroll-rectangle-up)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1467 (cua--rect-M/H-key '(control down) 'cua-scroll-rectangle-down)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1468
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1469 (cua--rect-M/H-key ?a 'cua-align-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1470 (cua--rect-M/H-key ?b 'cua-blank-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1471 (cua--rect-M/H-key ?c 'cua-close-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1472 (cua--rect-M/H-key ?f 'cua-fill-char-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1473 (cua--rect-M/H-key ?i 'cua-incr-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1474 (cua--rect-M/H-key ?k 'cua-cut-rectangle-as-text)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1475 (cua--rect-M/H-key ?l 'cua-downcase-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1476 (cua--rect-M/H-key ?m 'cua-copy-rectangle-as-text)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1477 (cua--rect-M/H-key ?n 'cua-sequence-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1478 (cua--rect-M/H-key ?o 'cua-open-rectangle)
56838
c1345747d0db (cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents: 55264
diff changeset
1479 (cua--rect-M/H-key ?p 'cua-toggle-rectangle-virtual-edges)
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1480 (cua--rect-M/H-key ?P 'cua-do-rectangle-padding)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1481 (cua--rect-M/H-key ?q 'cua-refill-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1482 (cua--rect-M/H-key ?r 'cua-replace-in-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1483 (cua--rect-M/H-key ?R 'cua-reverse-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1484 (cua--rect-M/H-key ?s 'cua-string-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1485 (cua--rect-M/H-key ?t 'cua-text-fill-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1486 (cua--rect-M/H-key ?u 'cua-upcase-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1487 (cua--rect-M/H-key ?| 'cua-shell-command-on-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1488 (cua--rect-M/H-key ?' 'cua-restrict-prefix-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1489 (cua--rect-M/H-key ?/ 'cua-restrict-regexp-rectangle)
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1490
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1491 (setq cua--rectangle-initialized t))
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1492
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49598
diff changeset
1493 ;;; arch-tag: b730df53-17b9-4a89-bd63-4a71ec196731
44938
358d42530d42 Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff changeset
1494 ;;; cua-rect.el ends here