;ELC   
;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:32 2008
;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/xhg-be.el
;;; in Emacs version 23.0.50.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`xhg-be.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'dvc-be)
#@15 Run hg binit.
(defalias 'xhg-binit #[(&optional dir) "\302\303\304C\305\306\307\310\311\312\313\314\315\316\317D\257E$)\207" [dir default-directory dvc-run-dvc-sync xhg "binit" :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "hg binit finished"] 2] output error status arguments quote nil] 14 (#$ . 608) (list (expand-file-name (dvc-read-directory-name "Directory for hg binit: " (or default-directory (getenv "HOME")))))])
(provide 'xhg-be)