# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 911879528 0
# Node ID 717a33da04a1f56145aa41c7e9f2e2aa2e130cf4
# Parent  7a9b0b88448eef7e40e92611fce8337fad867292
(move-to-column-force): New function.
(operate-on-rectangle): If coerce-tabs is non-nil, call
move-to-column-force instead of move-to-column.
(insert-rectangle): Call move-to-column-force instead of
move-to-column.
(open-rectangle-line): If begextra is not zero, call
move-to-column-force.

diff -r 7a9b0b88448e -r 717a33da04a1 lisp/rect.el
--- a/lisp/rect.el	Tue Nov 24 03:52:08 1998 +0000
+++ b/lisp/rect.el	Tue Nov 24 03:52:08 1998 +0000
@@ -29,6 +29,21 @@
 
 ;;; Code:
 
+;;;###autoload
+(defun move-to-column-force (column)
+  "Move point to column COLUMN rigidly in the current line.
+If COLUMN is within a multi-column character, replace it by
+spaces and tab."
+  (let ((col (move-to-column column t)))
+    (if (> col column)
+	(let (pos)
+	  (delete-char -1)
+	  (insert-char ?  (- column (current-column)))
+	  (setq pos (point))
+	  (indent-to col)
+	  (goto-char pos)))
+    column))
+
 ;; extract-rectangle-line stores lines into this list
 ;; to accumulate them for extract-rectangle and delete-extract-rectangle.
 (defvar operate-on-rectangle-lines)
@@ -60,10 +75,14 @@
      (goto-char startlinepos)
      (while (< (point) endlinepos)
        (let (startpos begextra endextra)
-	 (move-to-column startcol coerce-tabs)
+	 (if coerce-tabs
+	     (move-to-column-force startcol)
+	   (move-to-column startcol))
 	 (setq begextra (- (current-column) startcol))
 	 (setq startpos (point))
-	 (move-to-column endcol coerce-tabs)
+	 (if coerce-tabs
+	     (move-to-column-force endcol)
+	   (move-to-column endcol))
 	 ;; If we overshot, move back one character
 	 ;; so that endextra will be positive.
 	 (if (and (not coerce-tabs) (> (current-column) endcol))
@@ -176,7 +195,7 @@
 	  (progn
 	   (forward-line 1)
 	   (or (bolp) (insert ?\n))
-	   (move-to-column insertcolumn t)))
+	   (move-to-column-force insertcolumn)))
       (setq first nil)
       (insert (car lines))
       (setq lines (cdr lines)))))
@@ -197,6 +216,8 @@
     (goto-char startpos)
     ;; Column where rectangle begins.
     (let ((begcol (- (current-column) begextra)))
+      (if (> begextra 0)
+	  (move-to-column-force begcol))
       (skip-chars-forward " \t")
       ;; Width of whitespace to be deleted and recreated.
       (setq whitewidth (- (current-column) begcol)))