Mercurial > hg > xemacs-beta

diff lisp/rect.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents abe6d1db359e
children c82f9db998d7
line wrap: on
line diff
--- a/lisp/rect.el	Mon Aug 13 11:36:20 2007 +0200
+++ b/lisp/rect.el	Mon Aug 13 11:37:21 2007 +0200
@@ -201,7 +201,7 @@
     (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)