# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1224098698 -10800
# Node ID 35e8c02c513f6c09913a5c476b6bb26c94be22b4
# Parent  2db4bb6186a85c79800ebf1d5ff349461f160dba
Avoid loop, which cause bug (void function).

diff -r 2db4bb6186a8 -r 35e8c02c513f .emacs-my
--- a/.emacs-my	Wed Oct 15 22:24:16 2008 +0300
+++ b/.emacs-my	Wed Oct 15 22:24:58 2008 +0300
@@ -685,8 +685,10 @@
 (setq-default indent-tabs-mode nil)     ; t - будут вставляться \t
 (setq tab-always-indent t)
 (setq c-tab-always-indent t)
-(loop for x downfrom 40 to 1 do
-      (setq tab-stop-list (cons (* x 4) tab-stop-list)))
+(let ( (line-width 400) )
+  (setq i (+ (/ line-width 4) 1))
+  (while (> (setq i (- i 1)) 0)
+    (setq tab-stop-list (cons (* i 4) tab-stop-list))))
 
 ;; ----------------------------------------------------------------------
 ;; Diff.