   (let ((file-name (buffer-file-name)))
     (find-file
      (with-temp-buffer
-       (eshell-command
+       (shell-command
         (format "global -P '%s/%s.%s'"
                 (file-name-nondirectory (directory-file-name (file-name-directory file-name)))
                 (file-name-sans-extension (file-name-nondirectory file-name))

  (let (
        (project-settings (aixigo-get-current-project-module-and-branch))
        )
    
    (setq aixigo-project-name (nth 0 project-settings))
    (setq aixigo-project-branch (nth 1 project-settings))
    

;;
(defun aixigo-get-system-includes ()
  "Returns the default C++ system search paths, as returned by the system C pre-processor."
  (let (
        (fname (buffer-file-name))
        )
    (with-temp-buffer
      (setq default-directory (aixigo-get-current-project-path-base fname))
      (shell-command
       "echo | gcc -x c++ -v -E /dev/null | egrep '^ .*include' | sed 's/^ //g'"
       (current-buffer) 
       )
      (split-string (buffer-string) "\n" t)
      )
    )
  )

