XEmacs 21.2.38 (Peisino)

[chise/xemacs-chise.git.1] / lisp / rect.el

diff --git a/lisp/rect.el b/lisp/rect.el
index 75ba30c..6f42ee4 100644 (file)
--- 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)