Observe case in clang completions.

[gnu-emacs-elpa] / company-clang.el

diff --git a/company-clang.el b/company-clang.el
index b0545993dfbf761d049cfb38d1b07fe30e606cdf..f4725c70e73e5a44095841741804760cfb1d1603 100644 (file)
--- a/company-clang.el
+++ b/company-clang.el
@@ -101,6 +101,7 @@ Prefix files (-include ...) can be selected with
   (goto-char (point-min))
   (let ((pattern (format company-clang--completion-pattern
                          (regexp-quote prefix)))
+        (case-fold-search nil)
         lines match)
     (while (re-search-forward pattern nil t)
       (setq match (match-string-no-properties 1))
@@ -145,7 +146,7 @@ Prefix files (-include ...) can be selected with
             (1+ (current-column)))))
 
 (defsubst company-clang--build-complete-args (pos)
-  (append '("-cc1" "-fsyntax-only")
+  (append '("-cc1" "-fsyntax-only" "-code-completion-macros")
           company-clang-arguments
           (when (stringp company-clang--prefix)
             (list "-include" (expand-file-name company-clang--prefix)))