--- a/.emacs-my	Mon Oct 22 20:08:21 2012 +0300
+++ b/.emacs-my	Tue Oct 30 17:12:39 2012 +0200
@@ -774,6 +774,20 @@
 ;; Completion controled by 'completion-styles' variable.
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "yasnippet")
+
+(setq my-yas-root-directory "~/.emacs.d/my-yas")
+(setq yas/ignore-filenames-as-triggers t)
+
+(eval-after-load 'yasnippet
+  '(progn
+     (cond
+      ((listp yas/root-directory) (add-to-list 'yas/root-directory my-yas-root-directory))
+      ((stringp yas/root-directory) (setq yas/root-directory (list my-yas-root-directory yas/root-directory)))
+      (t (error "I expect that yas/root-directory is a list of string")) )
+     (mapc 'yas/load-directory yas/root-directory)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "open file, ffap, dired")
 
 (setq-default save-place t)