       (setq projects (cdr projects)))
     (nreverse path)))
 
-(defun apm-local-irony-support ()
+(defun apm--irony-support ()
   (if (fboundp 'irony-mode)
       (progn
         (require 'irony-cdb)

        nil
      (eval result))))

(defun apm-local-get-project-dir (path)
  (let ((project (apm-local-find-project path)))
        (if project
            (apm-project-path project)
          path)))

;; Copyright (C) 2014 Alexander Prusov

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