Llamo a git obtener el directorio de nivel superior (de acuerdo con¿Hay una manera de obtener el directorio raíz git en un comando? ).

(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))))

Pero hay una nueva línea final en la cadena devuelta. No estoy seguro de cómo deshacerme de él.