   "Regenerates `compile_commands.json' in the specified
 directory"
   (interactive "DProject root: ")
-  (when (rtags-load-compile-include-file dir)
+  (when (rtags-load-compile-includes-file dir)
     (let ((dbfilename (concat (file-name-as-directory dir)
                               "compile_commands.json"))
           (compile-command (rtags-create-compilation-command))

        (setq result (cons subdir result))))
    result))

(defun rtags-load-compile-include-file (dir)
  "Loads the `compile_includes' file from the specified directory
and sets up the project's source dirs and include dirs. Return
true on success. Normally you should not use this function

      (when (yes-or-no-p
             (format "Wrote compile_commands.json (%d files). Load it?" num-files))
        (rtags-call-rc :path t :output nil "-J" dir)
        (message "Done (check rdm's logs)")))))

;; Mode for compile_includes

