         nil
       (eval result))))
 
-(defun apm-local-get-project-dir (path)
-  (let ((project (apm-local-find-project path)))
+(defun apm--get-project-dir (path)
+  (let ((project (apm--find-project path)))
         (if project
             (apm-project-path project)
           path)))

;; Copyright (C) 2014 Alexander Prusov

;; Author: Alexander Prusov <alexprusov@gmail.com>
;; Version: 2.2.0
;; Created: 7.11.2014
;; Keywords: project
;; Homepage: https://github.com/Plambir/emacs-bootstrap

      (setq projects (cdr projects)))
    (nreverse path)))

(defun apm--irony-support ()
  (if (fboundp 'irony-mode)
      (progn
        (require 'irony-cdb)
