;; Copyright (C) 1985, 1992, 1994-1995, 1999-2014 Free Software
;; Foundation, Inc.
-;; Maintainer: FSF
+;; Maintainer: emacs-devel@gnu.org
;; Keywords: internal
;; Package: emacs
(looking-at "[0-9]+\0\\([^\0\n]+\\)\0")
(match-string 1))))))
-(defun emacs-bzr-version-bzr (_dir)
+(defun emacs-bzr-version-bzr (dir)
"Ask bzr itself for the version information for directory DIR."
;; Comments on `bzr version-info':
;; i) Unknown files also cause clean != 1.
(call-process "bzr" nil '(t nil) nil "version-info"
"--custom"
"--template={revno} {revision_id} (clean = {clean})"
- "dir"))
+ dir))
(buffer-string))))
(define-obsolete-function-alias 'emacs-bzr-get-version
(message "Waiting for git...")
(with-temp-buffer
(let ((default-directory (file-name-as-directory dir)))
- (and (zerop (call-process "git" nil '(t nil) nil "log"
- "-1" "--pretty=format:%N"))
+ (and (eq 0
+ (condition-case nil
+ (call-process "git" nil '(t nil) nil "log"
+ "-1" "--pretty=format:%N")
+ (error nil)))
(not (zerop (buffer-size)))
(replace-regexp-in-string "\n" "" (buffer-string))))))))