Commit 0abf4134 authored by Eric S. Raymond's avatar Eric S. Raymond
Browse files

Make the function emacs-repository-get-version polyvalent.

* version.el (emacs-repository-get-version): Enhance so the
function works correctly in either a Bazaar or Git repo. The
Bazaar case can be discarded  after the repo transition.
parent 3da493d5
2014-01-11 Eric S. Raymond <esr@thyrsus.com>
* version.el (emacs-repository-get-version): Enhancee so the
function works correctly in either a Bazaar or Git repo. The
Bazaar case can be discarded after the repo transition.
* play/meese.el: It's 2014 and Ed Meese is justly forgotten. Goes
with removal of the joke manpages from /etc.
......
......@@ -145,6 +145,8 @@ maybe ask the VCS itself, if the sources appear to be under
version control. If `force', always ask. the VCS. Otherwise
only ask the VCS if we cannot find any information ourselves."
(or dir (setq dir source-directory))
(or
;; Bazaar case -- to be removed after transition
(when (file-directory-p (expand-file-name ".bzr/branch" dir))
(if (eq external 'force)
(emacs-bzr-version-bzr dir)
......@@ -178,7 +180,17 @@ only ask the VCS if we cannot find any information ourselves."
;; calling external commands is to use the dirstate rev.
rev))
(external
(emacs-bzr-version-bzr dir)))))))
(emacs-bzr-version-bzr dir))))))
;; Git case
(when (file-directory-p (expand-file-name ".git" dir))
(message "Waiting for git...")
(with-temp-buffer
(if (zerop
(call-process "git" nil '(t nil) nil "log"
"-1"
"--pretty=format:%N"))
(replace-regexp-in-string "\n" "" (buffer-string)))))
))
;; We put version info into the executable in the form that `ident' uses.
(purecopy (concat "\n$Id: " (subst-char-in-string ?\n ?\s (emacs-version))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment