65 |
;; List of overlays used to display current rectangle. |
;; List of overlays used to display current rectangle. |
66 |
(defvar cua--rectangle-overlays nil) |
(defvar cua--rectangle-overlays nil) |
67 |
(make-variable-buffer-local 'cua--rectangle-overlays) |
(make-variable-buffer-local 'cua--rectangle-overlays) |
68 |
|
(put 'cua--rectangle-overlays 'permanent-local t) |
69 |
|
|
70 |
(defvar cua--overlay-keymap |
(defvar cua--overlay-keymap |
71 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
1394 |
(if (and mark-active |
(if (and mark-active |
1395 |
(not deactivate-mark)) |
(not deactivate-mark)) |
1396 |
(cua--highlight-rectangle) |
(cua--highlight-rectangle) |
1397 |
(cua--deactivate-rectangle))) |
(cua--deactivate-rectangle)) |
1398 |
|
(when cua--rectangle-overlays |
1399 |
|
;; clean-up after revert-buffer |
1400 |
|
(mapcar (function delete-overlay) cua--rectangle-overlays) |
1401 |
|
(setq cua--rectangle-overlays nil) |
1402 |
|
(setq deactivate-mark t))) |
1403 |
(when cua--rect-undo-set-point |
(when cua--rect-undo-set-point |
1404 |
(goto-char cua--rect-undo-set-point) |
(goto-char cua--rect-undo-set-point) |
1405 |
(setq cua--rect-undo-set-point nil))) |
(setq cua--rect-undo-set-point nil))) |