--- a/.emacs-my	Thu Sep 21 15:09:27 2017 +0300
+++ b/.emacs-my	Thu Sep 21 19:50:19 2017 +0300
@@ -445,7 +445,7 @@
   (set-fontset-font nil 'cyrillic "Courier New-10:antialias=none")
   (set-fontset-font nil 'greek "Courier New-10:antialias=none")
   (set-fontset-font nil 'phonetic "Courier New-10:antialias=none")
-  (set-fontset-font nil 'symbol "Courier New-10:antialias=none")))
+  (set-fontset-font nil 'symbol "DejaVu Sans Mono-10:antialias=none")))
 
 (fset 'yes-or-no-p 'y-or-n-p)
 
@@ -3259,10 +3259,15 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "cfengine")
 
-(my--eval-after-load cfengine3
-  (defconst cfengine3--prettify-symbols-alist
-    '(("->"  . ?→)
-      ("=>"  . ?⇛))))
+(add-to-list 'auto-mode-alist '("\\.cf\\'" . cfengine3-mode))
+
+;; Problems with hunging on re-display when symbols is used on Windows can be solved by:
+;;   (setq inhibit-compacting-font-caches t)
+;; or choosing "DejaVu Sans Mono" font.
+;; (my--eval-after-load cfengine3
+;;   (defconst cfengine3--prettify-symbols-alist
+;;     '(("->"  . ?→)
+;;       ("=>"  . ?⇛))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "Pascal")