 (defun profile-set-include-files ()
   "Set useful include file settings for use in programming modes,
 according to the current profile."
-    (profile-current-put 'include-files
-                         (profile-collect-include-files
-                          (profile-current-get 'ctags-alist)))
-    (profile-current-put 'include-ff-files
-                         ;; ff-search-directories doesn't need a trailing
-                         ;; slash
-                         (mapcar 'directory-file-name
-                                 (profile-collect-include-files
-                                  (profile-current-get 'ctags-alist) t)))
-    )
+  (profile-current-put 'include-files
+                       (profile-collect-include-files
+                        (profile-current-get 'ctags-alist)))
+  (profile-current-put 'include-ff-files
+                       ;; ff-search-directories doesn't need a trailing
+                       ;; slash
+                       (mapcar 'directory-file-name
+                               (profile-collect-include-files
+                                (profile-current-get 'ctags-alist) t)))
+  )
 
 ;;;###autoload
 (defun profile-collect-grep-dirs ()

            (mapcar (lambda(x) (concat "-I" (expand-file-name x)))
                    (profile-current-get 'include-files))
            (list `,(concat "-I"
                     (profile-current-get 'remote-prefix)
                     (directory-file-name
                      (expand-file-name
                       (profile-current-get 'project-root-dir)))))
            (profile-current-get 'compiler-include-dirs)
            )))
    ;; set flycheck for c++

basename, such as `mybase'."
  (let ((base (file-name-base name)))
    (when
        (string-match "\\.?\\(.*\\)" base)
      (match-string 1 base))))

;;;###autoload
(defun profile-collect-include-files (alist &optional prepend-remote)
