--- a/.emacs-my	Thu Jan 26 15:56:33 2017 +0200
+++ b/.emacs-my	Thu Jan 26 16:07:37 2017 +0200
@@ -1118,7 +1118,11 @@
 
 ;; (setq company-backends (delete 'company-dabbrev company-backends))
 
-;; company-transformers
+(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))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "bookmark")