--- a/.emacs-my	Thu Jan 26 16:25:43 2017 +0200
+++ b/.emacs-my	Thu Jan 26 17:09:36 2017 +0200
@@ -309,9 +309,13 @@
 
 (setq package-archives
       '(("gnu" . "http://elpa.gnu.org/packages/")
-        ("melpa" . "http://melpa.milkbox.net/packages/")
         ;; ("marmalade" . "http://marmalade-repo.org/packages/")
-        ))
+        ("melpa-stbl" . "https://stable.melpa.org/packages/")
+        ("melpa" . "http://melpa.milkbox.net/packages/"))
+      package-archive-priorities
+      '(("gnu" . 10)
+        ("melpa-stbl" . 5)
+        ("melpa" . 0)) )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "appearance")
@@ -1116,11 +1120,11 @@
 
 ;; (setq company-backends (delete 'company-dabbrev company-backends))
 
-(defun my-company-filter-out-numbers (lst)
+(defun my/company-filter-out-numbers (lst)
   (cl-remove-if (lambda (str) (string-match-p "^[0-9]" str)) lst))
 
 (when (featurep 'company)
-  (push #'my-company-filter-out-numbers company-transformers))
+  (push #'my/company-filter-out-numbers company-transformers))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "bookmark")