;; Copyright (C) 1985, 1992, 1994-1995, 1999-2014 Free Software
;; Foundation, Inc.
;; Copyright (C) 1985, 1992, 1994-1995, 1999-2014 Free Software
;; Foundation, Inc.
"Ask bzr itself for the version information for directory DIR."
;; Comments on `bzr version-info':
;; i) Unknown files also cause clean != 1.
"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})"
(call-process "bzr" nil '(t nil) nil "version-info"
"--custom"
"--template={revno} {revision_id} (clean = {clean})"