# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1485439657 -7200
# Node ID 25fdf2cd36deb0916482c193163d7c13af91a076
# Parent  d8a8d3b3ac481a24f7bf8dc344d3013aef5b18d2
Filter out completion started with numbers from company-mode.
http://emacs.stackexchange.com/questions/9835/how-can-i-prevent-company-mode-completing-numbers/

diff -r d8a8d3b3ac48 -r 25fdf2cd36de .emacs-my
--- 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")