X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Frect.el;h=6f42ee493796caf711696b62099e92cfcbc1c325;hp=75ba30c4a98e5f7649491d9f505f0349a09f8cff;hb=82f6d62ee211b1d36e8f45fed3ee3edde82b6916;hpb=a40368ea9486a5da02004feb1254b9cceb857228

diff --git a/lisp/rect.el b/lisp/rect.el
index 75ba30c..6f42ee4 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -201,7 +201,7 @@ deleted."
     (goto-char start)
     (while (search-forward "\t" end t)
       (let ((width (- (current-column)
-		      (save-excursion (forward-char -1)
+		      (save-excursion (backward-char 1)
 				      (current-column)))))
 	(setq line (concat (substring line 0 (- (point) end 1))
 			   (spaces-string width)