# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1256647799 -7200
# Node ID f511a2b4694b95df639c057e6964a7216204e574
# Parent  c3ec8e16a00717c8d933501c5a05ff0135b64ce5# Parent  3a0f6acd7e2bec4721ad47ab3b1acd9f92edface
merged

diff -r 3a0f6acd7e2b -r f511a2b4694b .emacs-my
--- a/.emacs-my	Fri Oct 16 15:13:08 2009 +0300
+++ b/.emacs-my	Tue Oct 27 14:49:59 2009 +0200
@@ -831,11 +831,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.