diff options
| author | Karl Heuer | 1997-10-23 06:42:50 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-10-23 06:42:50 +0000 |
| commit | dafcda2057593bd38f4519b0e46980ae9b558d28 (patch) | |
| tree | 4047d7b5c983f467f04b2e5eb36a540bf303afa5 | |
| parent | b4d73c7126c0f43b5f132fa7777cc1a1e337c746 (diff) | |
| download | emacs-dafcda2057593bd38f4519b0e46980ae9b558d28.tar.gz emacs-dafcda2057593bd38f4519b0e46980ae9b558d28.zip | |
(tpu-arrange-rectangle): Use FORCE arg of move-to-column.
| -rw-r--r-- | lisp/emulation/tpu-edt.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el index 77727f5e649..98e9f3b9eee 100644 --- a/lisp/emulation/tpu-edt.el +++ b/lisp/emulation/tpu-edt.el | |||
| @@ -1297,15 +1297,15 @@ corners of a rectangle." | |||
| 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 |