--- a/.emacs-my	Sat Feb 28 22:45:14 2015 +0200
+++ b/.emacs-my	Sun Mar 01 13:09:44 2015 +0200
@@ -2149,7 +2149,8 @@
 (mapc (lambda (hook) (add-hook hook (lambda () (setq fill-column my-fill-column)) ))
       (append my-devel-mode-hook-list my-text-mode-hook-list))
 
-(mapc #'hs-minor-mode '(c-mode c++-mode java-mode js-mode lisp-mode emacs-lisp-mode))
+(mapc (lambda (mode) (add-hook (my-mode2hook mode) #'hs-minor-mode))
+      '(c-mode c++-mode java-mode js-mode lisp-mode emacs-lisp-mode))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "diff, patch, ediff, emerge")