equal
deleted
inserted
replaced
1141 |
1141 |
1142 (defun my/company-filter-out-numbers (lst) |
1142 (defun my/company-filter-out-numbers (lst) |
1143 (cl-remove-if (lambda (str) (string-match-p "^[0-9]" str)) lst)) |
1143 (cl-remove-if (lambda (str) (string-match-p "^[0-9]" str)) lst)) |
1144 |
1144 |
1145 (when (featurep 'company) |
1145 (when (featurep 'company) |
1146 (push #'my/company-filter-out-numbers company-transformers)) |
1146 (add-hook 'company-transformers #'my/company-filter-out-numbers)) |
1147 |
1147 |
1148 (defun company-executable (command &optional arg &rest ignored) |
1148 (defun company-executable (command &optional arg &rest ignored) |
1149 "Company completion for executable in PATH." |
1149 "Company completion for executable in PATH." |
1150 (interactive (list 'interactive)) |
1150 (interactive (list 'interactive)) |
1151 (cl-case command |
1151 (cl-case command |