Я называю git get toplevel dir (согласноЕсть ли способ получить корневой каталог git одной командой? ).

(let ((tmpbuffer (get-buffer-create (make-temp-name "git"))))
  (call-process "git" nil tmpbuffer nil "rev-parse" "--show-toplevel")
  (with-current-buffer tmpbuffer
    (with-output-to-string
      (princ (buffer-string))
      (kill-buffer))))

Но там's завершающий перевод строки в возвращенной строке. Я'Я не уверен, как от этого избавиться.