Mercurial > emacs
annotate lisp/emulation/cua-rect.el @ 57972:fc790bd5db8f
(align-areas): Delete whitespace before reindenting, so
that tabs are never placed after spaces.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 06 Nov 2004 12:04:55 +0000 |
parents | 57f225a13a09 |
children | b1a9da0dcd80 566253900690 |
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 |
55264
1a506cc5235d
(cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
3 ;; Copyright (C) 1997-2002, 2004 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
|
4 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
5 ;; 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
|
6 ;; 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
|
7 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
8 ;; 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
|
9 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
10 ;; 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
|
11 ;; 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
|
12 ;; 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
|
13 ;; any later version. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
14 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
15 ;; 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
|
16 ;; 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
|
17 ;; 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
|
18 ;; 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
|
19 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
20 ;; 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
|
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
23 ;; Boston, MA 02111-1307, USA. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
24 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
25 ;;; Acknowledgements |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
26 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
27 ;; The rectangle handling and display code borrows from the standard |
45318 | 28 ;; 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
|
29 ;; 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
|
30 |
45078 | 31 ;;; Commentary: |
32 | |
33 ;;; Code: | |
34 | |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
35 (provide 'cua-rect) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
36 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
37 (eval-when-compile |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
38 (require 'cua-base) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
39 (require 'cua-gmrk) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
40 ) |
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 ;;; Rectangle support |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
43 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
44 (require 'rect) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
45 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
46 ;; 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
|
47 ;; 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
|
48 ;; 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
|
49 ;; 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
|
50 ;; 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
|
51 ;; 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
|
52 (defvar cua--rectangle nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
53 (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
|
54 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
55 ;; 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
|
56 (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
|
57 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
58 ;; Rectangle restored by undo. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
59 (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
|
60 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
61 ;; 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
|
62 (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
|
63 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
64 ;; 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
|
65 (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
|
66 (make-variable-buffer-local 'cua--rectangle-overlays) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
67 |
56902
8d62e1b62c44
* emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents:
56896
diff
changeset
|
68 (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
|
69 (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
|
70 (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
|
71 |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
72 (defvar cua--virtual-edges-debug nil) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
73 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
74 ;; Per-buffer CUA mode undo list. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
75 (defvar cua--undo-list nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
76 (make-variable-buffer-local 'cua--undo-list) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
77 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
78 ;; Record undo boundary for rectangle undo. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
79 (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
|
80 (when (listp buffer-undo-list) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
81 (if (> (length cua--undo-list) cua-undo-max) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
82 (setcdr (nthcdr (1- cua-undo-max) cua--undo-list) nil)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
83 (undo-boundary) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
84 (setq cua--undo-list |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
85 (cons (cons (cdr buffer-undo-list) (copy-sequence cua--rectangle)) cua--undo-list)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
86 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
87 (defun cua--rectangle-undo (&optional arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
88 "Undo some previous changes. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
89 Knows about CUA rectangle highlighting in addition to standard undo." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
90 (interactive "*P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
91 (if cua--rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
92 (cua--rectangle-undo-boundary)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
93 (undo arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
94 (let ((l cua--undo-list)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
95 (while l |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
96 (if (eq (car (car l)) pending-undo-list) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46180
diff
changeset
|
97 (setq cua--restored-rectangle |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
98 (and (vectorp (cdr (car l))) (cdr (car l))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
99 l nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
100 (setq l (cdr l))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
101 (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
|
102 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
103 (defvar cua--tidy-undo-counter 0 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
104 "Number of times `cua--tidy-undo-lists' have run successfully.") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
105 |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
106 ;; Clean out dangling entries from cua's undo list. |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
107 ;; Since this list contains pointers into the standard undo list, |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
108 ;; such references are only meningful as undo information if the |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
109 ;; corresponding entry is still on the standard undo list. |
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--tidy-undo-lists (&optional clean) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
112 (let ((buffers (buffer-list)) (cnt cua--tidy-undo-counter)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
113 (while (and buffers (or clean (not (input-pending-p)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
114 (with-current-buffer (car buffers) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
115 (when (local-variable-p 'cua--undo-list) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
116 (if (or clean (null cua--undo-list) (eq buffer-undo-list t)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
117 (progn |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
118 (kill-local-variable 'cua--undo-list) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
119 (setq cua--tidy-undo-counter (1+ cua--tidy-undo-counter))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
120 (let* ((bul buffer-undo-list) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
121 (cul (cons nil cua--undo-list)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
122 (cc (car (car (cdr cul))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
123 (while (and bul cc) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
124 (if (setq bul (memq cc bul)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
125 (setq cul (cdr cul) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
126 cc (and (cdr cul) (car (car (cdr cul))))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
127 (when cc |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
128 (if cua--debug |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
129 (setq cc (length (cdr cul)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
130 (if (eq (cdr cul) cua--undo-list) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
131 (setq cua--undo-list nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
132 (setcdr cul nil)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
133 (setq cua--tidy-undo-counter (1+ cua--tidy-undo-counter)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
134 (if cua--debug |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46180
diff
changeset
|
135 (message "Clean undo list in %s (%d)" |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
136 (buffer-name) cc))))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
137 (setq buffers (cdr buffers))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
138 (/= cnt cua--tidy-undo-counter))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
139 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
140 ;;; Rectangle geometry |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
141 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
142 (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
|
143 ;; 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
|
144 (if (not val) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
145 (aref cua--rectangle 0) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
146 (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
|
147 (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
|
148 (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
|
149 (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
|
150 (cua--rectangle-corner 2)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
151 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
152 (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
|
153 ;; 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
|
154 (if (not val) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
155 (aref cua--rectangle 1) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
156 (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
|
157 (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
|
158 (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
|
159 (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
|
160 (cua--rectangle-corner 2)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
161 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
162 (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
|
163 ;; 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
|
164 (if (integerp val) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
165 (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
|
166 (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
|
167 (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
|
168 (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
|
169 (aref cua--rectangle 2))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
170 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
171 (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
|
172 ;; 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
|
173 (if (integerp val) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
174 (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
|
175 (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
|
176 (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
|
177 (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
|
178 (aref cua--rectangle 3))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
179 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
180 (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
|
181 ;; 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
|
182 (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
|
183 (if (not (integerp advance)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
184 c |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46180
diff
changeset
|
185 (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
|
186 (if (= advance 0) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
187 (- 3 c) ; opposite corner |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
188 (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
|
189 (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
|
190 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
191 (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
|
192 ;; 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
|
193 (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
|
194 (< (cua--rectangle-corner) 2) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
195 (= (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
|
196 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
197 (defun cua--rectangle-column () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
198 (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
|
199 (cua--rectangle-right) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
200 (cua--rectangle-left))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
201 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
202 (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
|
203 ;; 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
|
204 (if (integerp col) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
205 (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
|
206 (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
|
207 (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
|
208 (1+ (cua--rectangle-right)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
209 (aref cua--rectangle 5)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
210 (cua--rectangle-left)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
211 |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
212 (defun cua--rectangle-virtual-edges (&optional set val) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
213 ;; 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
|
214 (if set |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
215 (aset cua--rectangle 6 val)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
216 (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
|
217 (aref cua--rectangle 6))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
218 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
219 (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
|
220 ;; Current rectangle restriction |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
221 (if val |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
222 (aset cua--rectangle 7 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
223 (and (stringp val) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
224 (> (length val) 0) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
225 (list val bounded negated))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
226 (aref cua--rectangle 7))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
227 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
228 (defun cua--rectangle-assert () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
229 (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
|
230 (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
|
231 (message "rectangle right < left")) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
232 (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
|
233 (message "rectangle bot < top"))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
234 |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
235 (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
|
236 ;; 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
|
237 ;; 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
|
238 ;; bottom right corner. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
239 (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
|
240 (save-excursion |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
241 (goto-char top) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
242 (setq l (current-column)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
243 (goto-char bot) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
244 (setq r (current-column)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
245 (if (<= top bot) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
246 (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
|
247 (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
|
248 (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
|
249 (if (<= l r) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
250 (if (< l r) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
251 (setq r (1- r))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
252 (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
|
253 (goto-char top) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
254 (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
|
255 (setq top (point)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
256 (goto-char bot) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
257 (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
|
258 (setq bot (point)))) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
259 (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
|
260 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
261 (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
|
262 ;; 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
|
263 (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
|
264 (cond |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
265 ((= 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
|
266 (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
|
267 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
|
268 ((= 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
|
269 (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
|
270 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
|
271 ((= 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
|
272 (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
|
273 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
|
274 ((= 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
|
275 (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
|
276 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
|
277 (goto-char mp) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
278 (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
|
279 (set-mark (point)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
280 (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
|
281 ;; 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
|
282 (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
|
283 (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
|
284 (not (eolp))) |
56896
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
285 (> (move-to-column pc) pc)) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
286 (not (bolp))) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
287 (backward-char 1)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
288 )) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
289 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
290 ;;; Rectangle resizing |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
291 |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
292 (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
|
293 ;; 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
|
294 (let ((pt (point))) |
8d62e1b62c44
* emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents:
56896
diff
changeset
|
295 (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
|
296 ;; 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
|
297 (or (not (eobp)) |
8d62e1b62c44
* emulation/cua-rect.el (cua--overlay-keymap): New keymap for
Kim F. Storm <storm@cua.dk>
parents:
56896
diff
changeset
|
298 (goto-char pt))))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
299 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
300 (defun cua--rectangle-resized () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
301 ;; 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
|
302 (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
|
303 (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
|
304 (cua--rectangle-set-corners) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
305 (cua--keep-active)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
306 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
307 (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
|
308 "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
|
309 (interactive "p") |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
310 (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
|
311 (while (> n 0) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
312 (setq n (1- n)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
313 (cond |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
314 ((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
|
315 (cua--rectangle-right (1+ (cua--rectangle-right))) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
316 (move-to-column (cua--rectangle-right))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
317 (t |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
318 (cua--rectangle-left (1+ (cua--rectangle-left))) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
319 (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
|
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-left (n) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
324 "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
|
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 (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
|
330 (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
|
331 (setq n 0) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
332 (cond |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
333 ((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
|
334 (cua--rectangle-right (1- (cua--rectangle-right))) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
335 (move-to-column (cua--rectangle-right))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
336 (t |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
337 (cua--rectangle-left (1- (cua--rectangle-left))) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
338 (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
|
339 (setq resized t))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
340 (if resized |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
341 (cua--rectangle-resized)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
342 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
343 (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
|
344 "Resize rectangle downwards." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
345 (interactive "p") |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
346 (let (resized) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
347 (while (> n 0) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
348 (setq n (1- n)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
349 (cond |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
350 ((>= (cua--rectangle-corner) 2) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
351 (goto-char (cua--rectangle-bot)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
352 (when (cua--forward-line 1) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
353 (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
|
354 (cua--rectangle-bot t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
355 (setq resized t))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
356 (t |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
357 (goto-char (cua--rectangle-top)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
358 (when (cua--forward-line 1) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
359 (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
|
360 (cua--rectangle-top t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
361 (setq resized t))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
362 (if resized |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
363 (cua--rectangle-resized)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
364 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
365 (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
|
366 "Resize rectangle upwards." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
367 (interactive "p") |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
368 (let (resized) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
369 (while (> n 0) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
370 (setq n (1- n)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
371 (cond |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
372 ((>= (cua--rectangle-corner) 2) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
373 (goto-char (cua--rectangle-bot)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
374 (when (cua--forward-line -1) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
375 (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
|
376 (cua--rectangle-bot t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
377 (setq resized t))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
378 (t |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
379 (goto-char (cua--rectangle-top)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
380 (when (cua--forward-line -1) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
381 (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
|
382 (cua--rectangle-top t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
383 (setq resized t))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
384 (if resized |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
385 (cua--rectangle-resized)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
386 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
387 (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
|
388 "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
|
389 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
390 (unless (eolp) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
391 (end-of-line) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
392 (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
|
393 (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
|
394 (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
|
395 (cua--rectangle-corner 1)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
396 (cua--rectangle-resized))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
397 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
398 (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
|
399 "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
|
400 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
401 (unless (bolp) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
402 (beginning-of-line) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
403 (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
|
404 (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
|
405 (cua--rectangle-corner -1)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
406 (cua--rectangle-resized))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
407 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
408 (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
|
409 "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
|
410 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
411 (goto-char (point-max)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
412 (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
|
413 (cua--rectangle-bot t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
414 (cua--rectangle-resized)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
415 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
416 (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
|
417 "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
|
418 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
419 (goto-char (point-min)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
420 (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
|
421 (cua--rectangle-top t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
422 (cua--rectangle-resized)) |
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 (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
|
425 "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
|
426 (interactive) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
427 (scroll-down) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
428 (move-to-column (cua--rectangle-column)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
429 (if (>= (cua--rectangle-corner) 2) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
430 (cua--rectangle-bot t) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
431 (cua--rectangle-top t)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
432 (cua--rectangle-resized)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
433 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
434 (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
|
435 "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
|
436 (interactive) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
437 (scroll-up) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
438 (move-to-column (cua--rectangle-column)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
439 (if (>= (cua--rectangle-corner) 2) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
440 (cua--rectangle-bot t) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
441 (cua--rectangle-top t)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
442 (cua--rectangle-resized)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
443 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
444 ;;; Mouse support |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
445 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
446 ;; 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
|
447 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
448 (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
|
449 "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
|
450 (interactive "e") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
451 (mouse-set-point event) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
452 ;; FIX ME -- need to calculate virtual column. |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
453 (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
|
454 (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
|
455 (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
|
456 (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
|
457 (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
|
458 (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
|
459 (cua--rectangle-bot t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
460 (cua--rectangle-top t)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
461 (cua--rectangle-resized)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
462 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
463 (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
|
464 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
465 (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
|
466 "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
|
467 (interactive "e") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
468 (when cua--rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
469 (cua--deactivate-rectangle) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
470 (cua--deactivate t)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
471 (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
|
472 (mouse-set-point event) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
473 ;; 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
|
474 (cua-set-rectangle-mark) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
475 (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
|
476 (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
|
477 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
478 (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
|
479 "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
|
480 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
|
481 (interactive "e\nP") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
482 (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
|
483 (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
|
484 (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
|
485 (progn |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
486 (unless buffer-read-only |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
487 (cua--delete-rectangle)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
488 (cua--deactivate)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
489 (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
|
490 (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
|
491 (cua-copy-rectangle arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
492 (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
|
493 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
494 (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
|
495 (interactive "e") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
496 (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
|
497 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
498 (defun cua--rectangle-move (dir) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
499 (let ((moved t) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
500 (top (cua--rectangle-top)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
501 (bot (cua--rectangle-bot)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
502 (l (cua--rectangle-left)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
503 (r (cua--rectangle-right))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
504 (cond |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
505 ((eq dir 'up) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
506 (goto-char top) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
507 (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
|
508 (cua--rectangle-top t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
509 (goto-char bot) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
510 (forward-line -1) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
511 (cua--rectangle-bot t))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
512 ((eq dir 'down) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
513 (goto-char bot) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
514 (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
|
515 (cua--rectangle-bot t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
516 (goto-char top) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
517 (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
|
518 (cua--rectangle-top t))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
519 ((eq dir 'left) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
520 (when (> l 0) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
521 (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
|
522 (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
|
523 ((eq dir 'right) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
524 (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
|
525 (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
|
526 (t |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
527 (setq moved nil))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
528 (when moved |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
529 (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
|
530 (cua--rectangle-set-corners) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
531 (cua--keep-active)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
532 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
533 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
534 ;;; Operations on current rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
535 |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
536 (defun cua--tabify-start (start end) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
537 ;; 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
|
538 (save-excursion |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
539 (save-restriction |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
540 (widen) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
541 (and (not buffer-read-only) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
542 cua-auto-tabify-rectangles |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
543 (if (or (not (integerp cua-auto-tabify-rectangles)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
544 (= (point-min) (point-max)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
545 (progn |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
546 (goto-char (max (point-min) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
547 (- start cua-auto-tabify-rectangles))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
548 (search-forward "\t" (min (point-max) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
549 (+ end cua-auto-tabify-rectangles)) t))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
550 start))))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
551 |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
552 (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
|
553 ;; 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
|
554 ;; 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
|
555 ;; Point is at start when FCT is called |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
556 ;; 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
|
557 ;; 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
|
558 ;; Set undo boundary if UNDO is non-nil. |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
559 ;; 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
|
560 ;; 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
|
561 ;; 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
|
562 (let* ((inhibit-field-text-motion t) |
57f225a13a09
(cua--rectangle-operation): Let bind
Kim F. Storm <storm@cua.dk>
parents:
57011
diff
changeset
|
563 (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
|
564 (end (cua--rectangle-bot)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
565 (l (cua--rectangle-left)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
566 (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
|
567 (m (make-marker)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
568 (tabpad (and (integerp pad) (= pad 2))) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
569 (sel (cua--rectangle-restriction)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
570 (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
|
571 (if undo |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
572 (cua--rectangle-undo-boundary)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
573 (if (integerp pad) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
574 (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
|
575 (save-excursion |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
576 (save-restriction |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
577 (widen) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
578 (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
|
579 (goto-char end) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
580 (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
|
581 (setq end (1+ end)))) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
582 (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
|
583 (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
|
584 (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
|
585 (goto-char end) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
586 (setq end (line-end-position)) |
56896
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
587 (if (and visible (bolp) (not (eobp))) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
588 (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
|
589 (goto-char start) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
590 (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
|
591 (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
|
592 (goto-char (point-min)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
593 (while (< (point) (point-max)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
594 (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
|
595 (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
|
596 (backward-char 1)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
597 (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
|
598 (forward-char 1)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
599 (set-marker m (point)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
600 (move-to-column l pad) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
601 (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
|
602 (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
|
603 (when sel |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
604 (if (car (cdr sel)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
605 (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
|
606 (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
|
607 (goto-char p)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
608 (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
|
609 (setq v (null v)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
610 (if visible |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
611 (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
|
612 (if v |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
613 (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
|
614 (set-marker m nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
615 (forward-line 1)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
616 (if (not visible) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
617 (cua--rectangle-bot t)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
618 (if post-fct |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
619 (funcall post-fct l r)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
620 (when tabify-start |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
621 (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
|
622 (cond |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
623 ((eq keep-clear 'keep) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
624 (cua--keep-active)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
625 ((eq keep-clear 'clear) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
626 (cua--deactivate)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
627 ((eq keep-clear 'corners) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
628 (cua--rectangle-set-corners) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
629 (cua--keep-active))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
630 (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
|
631 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
632 (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
|
633 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
634 (defun cua--delete-rectangle () |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
635 (let ((lines 0)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
636 (if (not (cua--rectangle-virtual-edges)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
637 (cua--rectangle-operation nil nil t 2 t |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
638 '(lambda (s e l r v) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
639 (setq lines (1+ lines)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
640 (if (and (> e s) (<= e (point-max))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
641 (delete-region s e)))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
642 (cua--rectangle-operation nil 1 t nil t |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
643 '(lambda (s e l r v) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
644 (setq lines (1+ lines)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
645 (when (and (> e s) (<= e (point-max))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
646 (delete-region s e))))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
647 lines)) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
648 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
649 (defun cua--extract-rectangle () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
650 (let (rect) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
651 (if (not (cua--rectangle-virtual-edges)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
652 (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
|
653 '(lambda (s e l r) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
654 (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
|
655 (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
|
656 '(lambda (s e l r v) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
657 (let ((copy t) (bs 0) (as 0) row) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
658 (if (= s e) (setq e (1+ e))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
659 (goto-char s) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
660 (move-to-column l) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
661 (if (= (point) (line-end-position)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
662 (setq bs (- r l) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
663 copy nil) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
664 (skip-chars-forward "\s\t" e) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
665 (setq bs (- (min r (current-column)) l) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
666 s (point)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
667 (move-to-column r) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
668 (skip-chars-backward "\s\t" s) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
669 (setq as (- r (max (current-column) l)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
670 e (point))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
671 (setq row (if (and copy (> e s)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
672 (buffer-substring-no-properties s e) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
673 "")) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
674 (when (> bs 0) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
675 (setq row (concat (make-string bs ?\s) row))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
676 (when (> as 0) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
677 (setq row (concat row (make-string as ?\s)))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
678 (setq rect (cons row rect)))))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
679 (nreverse rect))) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
680 |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
681 (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
|
682 ;; 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
|
683 ;; 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
|
684 ;; 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
|
685 (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
|
686 (setq below (and (bolp) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
687 (or (eolp) (eobp) (= (1+ (point)) (point-max)))))) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
688 (unless paste-column |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
689 (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
|
690 (let ((lines rect) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
691 (first t) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
692 (tabify-start (cua--tabify-start (point) (point))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
693 last-column |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
694 p) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
695 (while (or lines below) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
696 (or first |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
697 (if overwrite-mode |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
698 (insert ?\n) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
699 (forward-line 1) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
700 (or (bolp) (insert ?\n)))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
701 (unless overwrite-mode |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
702 (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
|
703 (if (not lines) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
704 (setq below nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
705 (insert-for-yank (car lines)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
706 (unless last-column |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
707 (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
|
708 (setq lines (cdr lines)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
709 (and first (not below) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
710 (setq p (point)))) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
711 (setq first nil) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
712 (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
|
713 (setq lines nil))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
714 (when (and line-count last-column (not overwrite-mode)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
715 (while (> line-count 0) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
716 (forward-line 1) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
717 (or (bolp) (insert ?\n)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
718 (move-to-column paste-column t) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
719 (insert-char ?\s (- last-column paste-column -1)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
720 (setq line-count (1- line-count)))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
721 (when (and tabify-start |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
722 (not overwrite-mode)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
723 (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
|
724 (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
|
725 (goto-char p)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
726 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
727 (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
|
728 (if cua--register |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
729 (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
|
730 (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
|
731 (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
|
732 (if ring |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
733 (kill-new (mapconcat |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
734 (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
|
735 killed-rectangle ""))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
736 |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
737 (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
|
738 ;; 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
|
739 ;; 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
|
740 ;; Be careful if we are already marking a rectangle. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46180
diff
changeset
|
741 (setq cua--rectangle |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46180
diff
changeset
|
742 (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
|
743 (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
|
744 (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
|
745 (cdr (cdr cua--last-rectangle)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
746 (cua--rectangle-get-corners)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
747 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
|
748 cua--last-rectangle nil)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
749 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
750 ;; (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
|
751 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
752 (defun cua--deactivate-rectangle () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
753 ;; 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
|
754 (mapcar (function delete-overlay) cua--rectangle-overlays) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46180
diff
changeset
|
755 (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
|
756 (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
|
757 cua--rectangle)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
758 cua--rectangle nil |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
759 cua--rectangle-overlays nil |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
760 cua--status-string nil |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
761 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
|
762 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
763 (defun cua--highlight-rectangle () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
764 ;; 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
|
765 ;; 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
|
766 ;; 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
|
767 ;; 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
|
768 ;; and results in less flicker. |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
769 ;; 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
|
770 ;; 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
|
771 (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
|
772 (old cua--rectangle-overlays) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
773 (new nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
774 (left (cua--rectangle-left)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
775 (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
|
776 (when (/= left right) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
777 (sit-for 0) ; make window top/bottom reliable |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
778 (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
|
779 '(lambda (s e l r v) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
780 (let ((rface (if v 'cua-rectangle-face 'cua-rectangle-noselect-face)) |
56896
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
781 overlay bs ms as) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
782 (when (cua--rectangle-virtual-edges) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
783 (let ((lb (line-beginning-position)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
784 (le (line-end-position)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
785 cl cl0 pl cr cr0 pr) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
786 (goto-char s) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
787 (setq cl (move-to-column l) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
788 pl (point)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
789 (setq cr (move-to-column r) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
790 pr (point)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
791 (if (= lb pl) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
792 (setq cl0 0) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
793 (goto-char (1- pl)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
794 (setq cl0 (current-column))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
795 (if (= lb le) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
796 (setq cr0 0) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
797 (goto-char (1- pr)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
798 (setq cr0 (current-column))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
799 (unless (and (= cl l) (= cr r)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
800 (when (/= cl l) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
801 (setq bs (propertize |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
802 (make-string |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
803 (- 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
|
804 (if cua--virtual-edges-debug ?. ?\s)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
805 'face 'default)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
806 (if (/= pl le) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
807 (setq s (1- s)))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
808 (cond |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
809 ((= cr r) |
56896
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
810 (if (and (/= pr le) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
811 (/= cr0 (1- cr)) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
812 (or bs (/= cr0 (- cr tab-width))) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
813 (/= (mod cr tab-width) 0)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
814 (setq e (1- e)))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
815 ((= cr cl) |
56896
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
816 (setq ms (propertize |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
817 (make-string |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
818 (- r l) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
819 (if cua--virtual-edges-debug ?, ?\s)) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
820 'face rface)) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
821 (if (cua--rectangle-right-side) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
822 (put-text-property (1- (length ms)) (length ms) 'cursor t ms) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
823 (put-text-property 0 1 'cursor t ms)) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
824 (setq bs (concat bs ms)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
825 (setq rface nil)) |
56896
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
826 (t |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
827 (setq as (propertize |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
828 (make-string |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
829 (- r cr0 (if (= le pr) 1 0)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
830 (if cua--virtual-edges-debug ?~ ?\s)) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
831 'face rface)) |
56896
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
832 (if (cua--rectangle-right-side) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
833 (put-text-property (1- (length as)) (length as) 'cursor t as) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
834 (put-text-property 0 1 'cursor t as)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
835 (if (/= pr le) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
836 (setq e (1- e)))))))) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
837 ;; 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
|
838 (while (and old |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
839 (setq overlay (car old)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
840 (< (overlay-start overlay) s) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
841 (/= (overlay-end overlay) e)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
842 (delete-overlay overlay) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
843 (setq old (cdr old))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
844 ;; 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
|
845 (if (and old |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
846 (setq overlay (car old)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
847 (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
|
848 (= (overlay-end overlay) e))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
849 (progn |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
850 (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
|
851 (setq old (cdr old))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
852 (setq overlay (make-overlay s e))) |
56896
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
853 (overlay-put overlay 'before-string bs) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
854 (overlay-put overlay 'after-string as) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
855 (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
|
856 (overlay-put overlay 'keymap cua--overlay-keymap) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
857 (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
|
858 ;; Trim old trailing overlays. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
859 (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
|
860 (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
|
861 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
862 (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
|
863 ;; Indent current rectangle. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
864 (let ((col (cua--rectangle-insert-col)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
865 (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
|
866 indent) |
56896
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
867 (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
|
868 '(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
|
869 (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
|
870 (if (and (eolp) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
871 (< (current-column) col)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
872 (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
|
873 (cond |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
874 (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
|
875 (ch (insert ch)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
876 (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
|
877 (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
|
878 (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
|
879 (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
|
880 '(lambda (l r) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
881 (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
|
882 (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
|
883 (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
|
884 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
885 ;; |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
886 ;; rectangle functions / actions |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
887 ;; |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
888 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
889 (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
|
890 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
891 (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
|
892 "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
|
893 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
|
894 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
895 (unless cua--rectangle-initialized |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
896 (cua--init-rectangles)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
897 (when (not cua--rectangle) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
898 (if (and reopen |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
899 cua--last-rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
900 (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
|
901 (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
|
902 (if (not mark-active) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
903 (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
|
904 (cua--activate-rectangle) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
905 (cua--rectangle-set-corners) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
906 (setq mark-active t |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
907 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
|
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 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
911 (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
|
912 "Cancel current rectangle." |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
913 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
914 (when cua--rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
915 (setq mark-active nil |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
916 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
|
917 (cua--deactivate-rectangle))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
918 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
919 (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
|
920 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
921 (if cua--rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
922 (cua--deactivate-rectangle) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
923 (unless cua--rectangle-initialized |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
924 (cua--init-rectangles)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
925 (cua--activate-rectangle)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
926 (if cua--rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
927 (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
|
928 (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
|
929 (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
|
930 (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
|
931 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
932 (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
|
933 "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
|
934 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
|
935 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
936 (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
|
937 (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
|
938 (if arg |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
939 (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
|
940 (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
|
941 (cua--rectangle-restriction |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
942 (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
|
943 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
|
944 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
945 (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
|
946 "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
|
947 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
|
948 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
949 (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
|
950 (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
|
951 (if arg |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
952 (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
|
953 (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
|
954 (cua--rectangle-restriction |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46180
diff
changeset
|
955 (format "[%c]" |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
956 (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
|
957 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
958 (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
|
959 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
960 (cua--rectangle-move 'up)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
961 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
962 (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
|
963 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
964 (cua--rectangle-move 'down)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
965 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
966 (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
|
967 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
968 (cua--rectangle-move 'left)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
969 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
970 (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
|
971 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
972 (cua--rectangle-move 'right)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
973 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
974 (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
|
975 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
976 (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
|
977 (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
|
978 (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
|
979 (cua--keep-active) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
980 (cua--deactivate))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
981 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
982 (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
|
983 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
984 (if buffer-read-only |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
985 (cua-copy-rectangle arg) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
986 (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
|
987 (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
|
988 (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
|
989 (cua--delete-rectangle)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
990 (cua--deactivate)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
991 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
992 (defun cua-delete-rectangle () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
993 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
994 (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
|
995 (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
|
996 (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
|
997 (cua--delete-rectangle) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
998 (cua--deactivate)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
999 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1000 (defun cua-rotate-rectangle () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1001 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1002 (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
|
1003 (cua--rectangle-set-corners) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
1004 (if (cua--rectangle-virtual-edges) |
77bbb90bd021
(cua--rectangle-set-corners): Ensure that
Kim F. Storm <storm@cua.dk>
parents:
56838
diff
changeset
|
1005 (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
|
1006 |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1007 (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
|
1008 (interactive) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1009 (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
|
1010 (cua--rectangle-set-corners) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1011 (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
|
1012 (cua--keep-active)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1013 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1014 (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
|
1015 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1016 (if buffer-read-only |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1017 (message "Cannot do padding in read-only buffer.") |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1018 (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
|
1019 (cua--rectangle-set-corners)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1020 (cua--keep-active)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1021 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1022 (defun cua-open-rectangle () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1023 "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
|
1024 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
|
1025 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
|
1026 (interactive) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1027 (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
|
1028 '(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
|
1029 (skip-chars-forward " \t") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1030 (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
|
1031 (p (point))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1032 (skip-chars-backward " \t") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1033 (delete-region (point) p) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1034 (indent-to (+ r ws)))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1035 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1036 (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
|
1037 "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
|
1038 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
|
1039 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
|
1040 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
|
1041 (interactive "P") |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1042 (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
|
1043 '(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
|
1044 (when arg |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1045 (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
|
1046 (setq s (point))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1047 (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
|
1048 (delete-region s (point))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1049 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1050 (defun cua-blank-rectangle () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1051 "Blank out CUA rectangle. |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1052 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
|
1053 (interactive) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1054 (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
|
1055 '(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
|
1056 (goto-char e) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1057 (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
|
1058 (setq e (point)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1059 (let ((column (current-column))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1060 (goto-char s) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1061 (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
|
1062 (delete-region (point) e) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1063 (indent-to column))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1064 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1065 (defun cua-align-rectangle () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1066 "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
|
1067 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1068 (let (x) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1069 (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
|
1070 '(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
|
1071 (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
|
1072 (skip-syntax-backward "^ " b) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1073 (skip-syntax-backward " " b) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1074 (setq s (point))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1075 (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
|
1076 (delete-region s (point)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1077 (indent-to l)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1078 '(lambda (l r) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1079 (move-to-column l) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1080 ;; (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
|
1081 )))) |
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-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
|
1084 "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
|
1085 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1086 (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
|
1087 (if delete |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1088 (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
|
1089 (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
|
1090 (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
|
1091 (text (mapconcat |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1092 (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
|
1093 rect ""))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1094 (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
|
1095 (if cua--register |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1096 (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
|
1097 (kill-new text))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1098 (if delete |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1099 (cua--delete-rectangle)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1100 (cua--deactivate))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1101 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1102 (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
|
1103 "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
|
1104 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1105 (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
|
1106 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1107 (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
|
1108 "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
|
1109 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
|
1110 (interactive "sString rectangle: ") |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1111 (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
|
1112 '(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
|
1113 (delete-region s e) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1114 (skip-chars-forward " \t") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1115 (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
|
1116 (delete-region s (point)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1117 (insert string) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1118 (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
|
1119 (unless (cua--rectangle-restriction) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1120 '(lambda (l r) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1121 (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
|
1122 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1123 (defun cua-fill-char-rectangle (ch) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1124 "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
|
1125 (interactive "cFill rectangle with character: ") |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1126 (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
|
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 (delete-region s e) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1129 (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
|
1130 (insert-char ch (- r l))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1131 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1132 (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
|
1133 "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
|
1134 (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
|
1135 (if buffer-read-only |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1136 (message "Cannot replace in read-only buffer") |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1137 (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
|
1138 '(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
|
1139 (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
|
1140 (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
|
1141 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1142 (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
|
1143 "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
|
1144 (interactive "p") |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1145 (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
|
1146 '(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
|
1147 (cond |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1148 ((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
|
1149 (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
|
1150 (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
|
1151 (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
|
1152 (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
|
1153 ((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
|
1154 (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
|
1155 (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
|
1156 (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
|
1157 (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
|
1158 (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
|
1159 (t nil))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1160 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1161 (defvar cua--rectangle-seq-format "%d" |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1162 "Last format used by cua-sequence-rectangle.") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1163 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1164 (defun cua-sequence-rectangle (first incr fmt) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1165 "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
|
1166 The numbers are formatted according to the FORMAT string." |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46180
diff
changeset
|
1167 (interactive |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1168 (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
|
1169 (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
|
1170 (string-to-number |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1171 (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
|
1172 (string-to-number |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1173 (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
|
1174 (read-string (concat "Format: (" cua--rectangle-seq-format ") ")))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1175 (if (= (length fmt) 0) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1176 (setq fmt cua--rectangle-seq-format) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1177 (setq cua--rectangle-seq-format fmt)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1178 (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
|
1179 '(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
|
1180 (delete-region s e) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1181 (insert (format fmt first)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1182 (setq first (+ first incr))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1183 |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1184 (defmacro cua--convert-rectangle-as (command tabify) |
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1185 `(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
|
1186 '(lambda (s e l r) |
1a506cc5235d
(cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
1187 (,command s e)))) |
1a506cc5235d
(cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
1188 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1189 (defun cua-upcase-rectangle () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1190 "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
|
1191 (interactive) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1192 (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
|
1193 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1194 (defun cua-downcase-rectangle () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1195 "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
|
1196 (interactive) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1197 (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
|
1198 |
1a506cc5235d
(cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
1199 (defun cua-upcase-initials-rectangle () |
1a506cc5235d
(cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
1200 "Convert the rectangle initials to upper case." |
1a506cc5235d
(cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
1201 (interactive) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1202 (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
|
1203 |
1a506cc5235d
(cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
1204 (defun cua-capitalize-rectangle () |
1a506cc5235d
(cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
1205 "Convert the rectangle to proper case." |
1a506cc5235d
(cua--convert-rectangle-as): New defmacro.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
1206 (interactive) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1207 (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
|
1208 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1209 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1210 ;;; 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
|
1211 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1212 (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
|
1213 ;; 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
|
1214 ;; 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
|
1215 ;; 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
|
1216 ;; 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
|
1217 ;; 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
|
1218 (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
|
1219 (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
|
1220 (- (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
|
1221 (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
|
1222 y z (tr 0)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1223 (save-excursion |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1224 (set-buffer auxbuf) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1225 (erase-buffer) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1226 (if setup-fct |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1227 (funcall setup-fct) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1228 (cua--insert-rectangle r)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1229 (if format-fct |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1230 (let ((fill-column w)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1231 (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
|
1232 (when replace |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1233 (goto-char (point-min)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1234 (while (not (eobp)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1235 (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
|
1236 (forward-line 1)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1237 (if (not cua--debug) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1238 (kill-buffer auxbuf)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1239 (when replace |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1240 (setq z (reverse z)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1241 (if cua--debug |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1242 (print z auxbuf)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1243 (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
|
1244 '(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
|
1245 (let (cc) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1246 (goto-char e) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1247 (skip-chars-forward " \t") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1248 (setq cc (current-column)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1249 (if cua--debug |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1250 (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
|
1251 (delete-region s (point)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1252 (if (not z) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1253 (setq y 0) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1254 (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
|
1255 (insert (car z)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1256 (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
|
1257 (setq y (point)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1258 (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
|
1259 (delete-region (point) y) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1260 (setq tr (1+ tr))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1261 (setq z (cdr z))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1262 (if cua--debug |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1263 (print (list (current-column) cc) auxbuf)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1264 (indent-to cc)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1265 (if (> tr 0) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1266 (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
|
1267 (if adjust |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1268 (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
|
1269 (if keep |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1270 (cua--rectangle-resized))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1271 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1272 (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
|
1273 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1274 (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
|
1275 (beginning-of-line) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1276 (while (< (point) (point-max)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1277 (delete-horizontal-space nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1278 (forward-line 1)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1279 (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
|
1280 (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
|
1281 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1282 (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
|
1283 "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
|
1284 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
|
1285 (interactive (list |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1286 (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
|
1287 (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
|
1288 nil nil nil nil))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1289 (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
|
1290 'cua--left-fill-rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1291 '(lambda () (insert text)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1292 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1293 (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
|
1294 "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
|
1295 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
|
1296 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1297 (cua--rectangle-aux-replace |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1298 (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
|
1299 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
|
1300 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1301 (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
|
1302 "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
|
1303 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
|
1304 (interactive (list |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1305 current-prefix-arg |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1306 (read-from-minibuffer "Shell command on rectangle: " |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46180
diff
changeset
|
1307 nil nil nil |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1308 'shell-command-history))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1309 (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
|
1310 '(lambda (s e) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1311 (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
|
1312 replace replace nil)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1313 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1314 (defun cua-reverse-rectangle () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1315 "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
|
1316 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1317 (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
|
1318 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1319 (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
|
1320 "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
|
1321 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1322 (cua--rectangle-aux-replace 0 t t t t |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46180
diff
changeset
|
1323 '(lambda (s e) |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1324 (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
|
1325 (delete-region s (point)))))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1326 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1327 (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
|
1328 "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
|
1329 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
|
1330 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1331 (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
|
1332 '(lambda (s e) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1333 (goto-char s) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1334 (insert "\n")))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1335 |
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 ;;; 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
|
1338 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1339 (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
|
1340 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1341 (if buffer-read-only |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1342 (ding) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1343 (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
|
1344 (cua--keep-active)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1345 t) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1346 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1347 (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
|
1348 "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
|
1349 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
|
1350 (interactive "P") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1351 (if (null column) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1352 (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
|
1353 (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
|
1354 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1355 (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
|
1356 "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
|
1357 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1358 (let ((col (cua--rectangle-insert-col)) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1359 (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
|
1360 indent) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1361 (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
|
1362 '(lambda (s e l r) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46180
diff
changeset
|
1363 (move-to-column |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1364 (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
|
1365 (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
|
1366 pad) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1367 (if (bolp) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1368 nil |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1369 (delete-backward-char 1) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1370 (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
|
1371 (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
|
1372 (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
|
1373 '(lambda (l r) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1374 (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
|
1375 (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
|
1376 (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
|
1377 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1378 (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
|
1379 (interactive) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1380 (let ((M (if cua-use-hyper-key " H-" " M-"))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46180
diff
changeset
|
1381 (message |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1382 (concat (if help "C-?:help" "") |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46180
diff
changeset
|
1383 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
|
1384 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
|
1385 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1386 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1387 ;;; 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
|
1388 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1389 (defun cua--cancel-rectangle () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1390 ;; Cancel rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1391 (if cua--rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1392 (cua--deactivate-rectangle)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1393 (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
|
1394 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1395 (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
|
1396 (if cua--restored-rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1397 (setq cua--rectangle cua--restored-rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1398 cua--restored-rectangle nil |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1399 mark-active t |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1400 deactivate-mark nil) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1401 (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
|
1402 (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
|
1403 (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
|
1404 (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
|
1405 (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
|
1406 (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
|
1407 (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
|
1408 (cua--rectangle-bot t) |
56838
c1345747d0db
(cua--rectangle-padding): Remove.
Kim F. Storm <storm@cua.dk>
parents:
55264
diff
changeset
|
1409 (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
|
1410 (if cua--rectangle |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1411 (if (and mark-active |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1412 (not deactivate-mark)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1413 (cua--highlight-rectangle) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1414 (cua--deactivate-rectangle)))) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1415 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1416 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1417 ;;; Initialization |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1418 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1419 (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
|
1420 (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
|
1421 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1422 (defun cua--rectangle-on-off (on) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1423 (cancel-function-timers 'cua--tidy-undo-lists) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1424 (if on |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1425 (run-with-idle-timer 10 t 'cua--tidy-undo-lists) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1426 (cua--tidy-undo-lists t))) |
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 (defun cua--init-rectangles () |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1429 (unless (face-background 'cua-rectangle-face) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1430 (copy-face 'region 'cua-rectangle-face) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1431 (set-face-background 'cua-rectangle-face "maroon") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1432 (set-face-foreground 'cua-rectangle-face "white")) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1433 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1434 (unless (face-background 'cua-rectangle-noselect-face) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1435 (copy-face 'region 'cua-rectangle-noselect-face) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1436 (set-face-background 'cua-rectangle-noselect-face "dimgray") |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1437 (set-face-foreground 'cua-rectangle-noselect-face "white")) |
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 (unless (eq cua-use-hyper-key 'only) |
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 [(shift return)] 'cua-clear-rectangle-mark) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1441 (define-key cua--region-keymap [(shift return)] 'cua-toggle-rectangle-mark)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1442 (when cua-use-hyper-key |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1443 (cua--rect-M/H-key 'space 'cua-clear-rectangle-mark) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1444 (cua--M/H-key cua--region-keymap 'space 'cua-toggle-rectangle-mark)) |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1445 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1446 (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
|
1447 (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
|
1448 (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
|
1449 (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
|
1450 (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
|
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 [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
|
1453 (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
|
1454 (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
|
1455 (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
|
1456 (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
|
1457 (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
|
1458 (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
|
1459 (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
|
1460 (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
|
1461 (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
|
1462 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1463 (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
|
1464 (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
|
1465 (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
|
1466 (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
|
1467 (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
|
1468 |
45504
3ddab99699f4
(cua--init-rectangles): Install default
Kim F. Storm <storm@cua.dk>
parents:
45318
diff
changeset
|
1469 ;; 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
|
1470 (define-key cua--rectangle-keymap [t] |
3ddab99699f4
(cua--init-rectangles): Install default
Kim F. Storm <storm@cua.dk>
parents:
45318
diff
changeset
|
1471 '(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
|
1472 |
44938
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1473 (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
|
1474 (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
|
1475 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1476 (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
|
1477 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1478 (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
|
1479 (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
|
1480 (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
|
1481 (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
|
1482 (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
|
1483 (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
|
1484 |
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 '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
|
1486 (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
|
1487 (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
|
1488 (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
|
1489 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1490 (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
|
1491 (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
|
1492 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1493 (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
|
1494 (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
|
1495 (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
|
1496 (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
|
1497 (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
|
1498 (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
|
1499 (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
|
1500 (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
|
1501 (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
|
1502 (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
|
1503 (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
|
1504 (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
|
1505 (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
|
1506 (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
|
1507 (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
|
1508 (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
|
1509 (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
|
1510 (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
|
1511 (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
|
1512 (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
|
1513 (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
|
1514 |
358d42530d42
Added cua-mode based files [split from original cua.el]:
Kim F. Storm <storm@cua.dk>
parents:
diff
changeset
|
1515 (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
|
1516 |
52401 | 1517 ;;; 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
|
1518 ;;; cua-rect.el ends here |