Mercurial > emacs
comparison lisp/emulation/tpu-edt.el @ 20128:a5d0f051dd57
(tpu-arrange-rectangle): Use FORCE arg of move-to-column.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 23 Oct 1997 06:42:50 +0000 |
| parents | e558b6879b0c |
| children | 4a3e3887c0dc |
comparison
equal
deleted
inserted
replaced
| 20127:75c24766a23a | 20128:a5d0f051dd57 |
|---|---|
| 1295 (cond ((> (point) (tpu-mark)) ; point on lower line | 1295 (cond ((> (point) (tpu-mark)) ; point on lower line |
| 1296 (cond ((> pc mc) ; point @ lower-right | 1296 (cond ((> pc mc) ; point @ lower-right |
| 1297 (exchange-point-and-mark)) ; point -> upper-left | 1297 (exchange-point-and-mark)) ; point -> upper-left |
| 1298 | 1298 |
| 1299 (t ; point @ lower-left | 1299 (t ; point @ lower-left |
| 1300 (move-to-column-force mc) ; point -> lower-right | 1300 (move-to-column mc t) ; point -> lower-right |
| 1301 (exchange-point-and-mark) ; point -> upper-right | 1301 (exchange-point-and-mark) ; point -> upper-right |
| 1302 (move-to-column-force pc)))) ; point -> upper-left | 1302 (move-to-column pc t)))) ; point -> upper-left |
| 1303 | 1303 |
| 1304 (t ; point on upper line | 1304 (t ; point on upper line |
| 1305 (cond ((> pc mc) ; point @ upper-right | 1305 (cond ((> pc mc) ; point @ upper-right |
| 1306 (move-to-column-force mc) ; point -> upper-left | 1306 (move-to-column mc t) ; point -> upper-left |
| 1307 (exchange-point-and-mark) ; point -> lower-left | 1307 (exchange-point-and-mark) ; point -> lower-left |
| 1308 (move-to-column-force pc) ; point -> lower-right | 1308 (move-to-column pc t) ; point -> lower-right |
| 1309 (exchange-point-and-mark))))))) ; point -> upper-left | 1309 (exchange-point-and-mark))))))) ; point -> upper-left |
| 1310 | 1310 |
| 1311 (defun tpu-cut-text nil | 1311 (defun tpu-cut-text nil |
| 1312 "Delete the selected region. | 1312 "Delete the selected region. |
| 1313 The text is saved for the tpu-paste command." | 1313 The text is saved for the tpu-paste command." |