diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-10-23 06:42:50 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-10-23 06:42:50 +0000 |
| commit | dafcda2057593bd38f4519b0e46980ae9b558d28 (patch) | |
| tree | 4047d7b5c983f467f04b2e5eb36a540bf303afa5 /lisp/emulation/tpu-edt.el | |
| parent | b4d73c7126c0f43b5f132fa7777cc1a1e337c746 (diff) | |
| download | emacs-dafcda2057593bd38f4519b0e46980ae9b558d28.tar.gz | |
(tpu-arrange-rectangle): Use FORCE arg of move-to-column.
Diffstat (limited to 'lisp/emulation/tpu-edt.el')
| -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." (exchange-point-and-mark)) ; point -> upper-left (t ; point @ lower-left - (move-to-column-force mc) ; point -> lower-right + (move-to-column mc t) ; point -> lower-right (exchange-point-and-mark) ; point -> upper-right - (move-to-column-force pc)))) ; point -> upper-left + (move-to-column pc t)))) ; point -> upper-left (t ; point on upper line (cond ((> pc mc) ; point @ upper-right - (move-to-column-force mc) ; point -> upper-left + (move-to-column mc t) ; point -> upper-left (exchange-point-and-mark) ; point -> lower-left - (move-to-column-force pc) ; point -> lower-right + (move-to-column pc t) ; point -> lower-right (exchange-point-and-mark))))))) ; point -> upper-left (defun tpu-cut-text nil |