# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 877588970 0
# Node ID a5d0f051dd57db300278c379d9d3367dfd974901
# Parent  75c24766a23a1f5db4ba6683a0a77fb1471ae053
(tpu-arrange-rectangle): Use FORCE arg of move-to-column.

diff -r 75c24766a23a -r a5d0f051dd57 lisp/emulation/tpu-edt.el
--- a/lisp/emulation/tpu-edt.el	Thu Oct 23 06:40:32 1997 +0000
+++ b/lisp/emulation/tpu-edt.el	Thu Oct 23 06:42:50 1997 +0000
@@ -1297,15 +1297,15 @@
 		  (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