From dafcda2057593bd38f4519b0e46980ae9b558d28 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 23 Oct 1997 06:42:50 +0000 Subject: [PATCH] (tpu-arrange-rectangle): Use FORCE arg of move-to-column. --- lisp/emulation/tpu-edt.el | 8 ++++---- 1 file 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 -- 2.39.2