;; has setup a clone of Emacs under the "emacs" subdirectory.
(let ((emacs-repo-root (expand-file-name "emacs")))
(if (not (file-directory-p emacs-repo-root))
;; has setup a clone of Emacs under the "emacs" subdirectory.
(let ((emacs-repo-root (expand-file-name "emacs")))
(if (not (file-directory-p emacs-repo-root))
(let ((default-directory emacs-repo-root))
(message "Running git pull in %S" default-directory)
(call-process "git" nil t nil "pull")
(let ((default-directory emacs-repo-root))
(message "Running git pull in %S" default-directory)
(call-process "git" nil t nil "pull")