Start tab-stop-list with zero.
Make i local variable.
--- a/.emacs-my Thu Aug 20 17:40:48 2009 +0300
+++ b/.emacs-my Sun Oct 18 11:09:44 2009 +0300
@@ -800,11 +800,12 @@
(setq-default indent-tabs-mode nil) ; t - будут вставляться \t
(setq tab-always-indent t)
(setq c-tab-always-indent t)
-(let ( (line-width 400) )
- (setq i (+ (/ line-width 4) 1))
+(let ( (line-width 400) i )
+ (setq i (* (ceiling line-width 4) 4))
(setq tab-stop-list nil)
- (while (> (setq i (- i 1)) 0)
- (setq tab-stop-list (cons (* i 4) tab-stop-list))))
+ (while (>= i 0)
+ (setq tab-stop-list (cons i tab-stop-list))
+ (setq i (- i 4))))
;; ----------------------------------------------------------------------
;; Diff.