--- a/.emacs-my	Tue Jan 26 11:08:33 2010 +0200
+++ b/.emacs-my	Thu Jan 28 22:27:45 2010 +0200
@@ -1,6 +1,6 @@
 ;; -*- mode: lisp; coding: cp1251 -*-
 ;;
-;; Copyright (C) 2008 by Oleksandr Gavenko <gavenkoa@gmail.com>
+;; Written by Oleksandr Gavenko <gavenkoa@gmail.com>, 2008-2010.
 ;;
 ;; This file formed from parts and ideas from many sites/docs and
 ;; placed in public domain.
@@ -855,6 +855,16 @@
 ;; (add-hook 'asm-mode-hook '(lambda () (local-set-key ":" ":")))
 
 ;; ----------------------------------------------------------------------
+;; linker
+
+(when (fboundp 'iar-linker-config-mode)
+  (add-to-list 'auto-mode-alist '("\\.icf\\'" . iar-linker-config-mode))
+  )
+(when (fboundp 'iar4-linker-config-mode)
+  (add-to-list 'auto-mode-alist '("\\.xcl\\'" . iar4-linker-config-mode))
+  )
+
+;; ----------------------------------------------------------------------
 ;; lisp
 (setq list-command-history-max 256)
 
@@ -919,11 +929,17 @@
 ;; ----------------------------------------------------------------------
 ;; bat file, batch
 
-(when (featurep 'bat-mode)
-  (progn
-    (add-to-list 'auto-mode-alist '("\\.[bB][aA][tT]\\'" . bat-mode))
-    (add-to-list 'auto-mode-alist '("\\.[cC][mM][dD]\\'" . bat-mode))
-    ))
+(when (fboundp 'bat-file-mode)
+  (add-to-list 'auto-mode-alist '("\\.[bB][aA][tT]\\'" . bat-file-mode))
+  (add-to-list 'auto-mode-alist '("\\.[cC][mM][dD]\\'" . bat-file-mode))
+  )
+
+;; ----------------------------------------------------------------------
+;; nsis-mode
+
+(when (fboundp 'nsis-mode)
+  (add-to-list 'auto-mode-alist '("\\.\\(nsi\\|nsh\\)\\'" . nsis-mode))
+  )
 
 ;; ----------------------------------------------------------------------
 ;; *csharp*, c-sharp
@@ -1070,4 +1086,12 @@
                                "Nice day for Emacsing!")) )
               (message (nth (random (length mgs-list)) mgs-list)))))
 
+;; Size of emacs area and its position.
+(when window-system
+  ;; This size for 1280x1024 resolusion and 13pt font to occupy almost all screen.
+  (run-at-time (format "%d sec" 1) nil '(lambda () (set-frame-position (selected-frame) 1 1)))
+  (run-at-time (format "%d sec" 2) nil '(lambda () (set-frame-width (selected-frame) 150 t)))
+  (run-at-time (format "%d sec" 3) nil '(lambda () (set-frame-height (selected-frame) 60 t)))
+  )
+
 ;; End loading...