Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
199 (if (< endextra 0) 199 (if (< endextra 0)
200 (setq endextra 0)) 200 (setq endextra 0))
201 (goto-char start) 201 (goto-char start)
202 (while (search-forward "\t" end t) 202 (while (search-forward "\t" end t)
203 (let ((width (- (current-column) 203 (let ((width (- (current-column)
204 (save-excursion (forward-char -1) 204 (save-excursion (backward-char 1)
205 (current-column))))) 205 (current-column)))))
206 (setq line (concat (substring line 0 (- (point) end 1)) 206 (setq line (concat (substring line 0 (- (point) end 1))
207 (spaces-string width) 207 (spaces-string width)
208 (substring line (+ (length line) 208 (substring line (+ (length line)
209 (- (point) end))))))) 209 (- (point) end)))))))