--- a/.emacs-my	Mon Sep 14 12:27:49 2009 +0300
+++ b/.emacs-my	Mon Oct 05 22:57:15 2009 +0300
@@ -820,11 +820,11 @@
 (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 (i (line-width 200))
+  (setq i (* (/ line-width tab-width) tab-width))
   (setq tab-stop-list nil)
-  (while (> (setq i (- i 1)) 0)
-    (setq tab-stop-list (cons (* i 4) tab-stop-list))))
+  (while (>= (setq i (- i tab-width)) 0)
+    (setq tab-stop-list (cons i tab-stop-list))))
 
 ;; ----------------------------------------------------------------------
 ;; Diff.