;ELC   
;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:32 2008
;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/xhg-core.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-core.el' was compiled for Emacs 19.29 or later"))

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


(require 'dvc-core)
#@52 The executable used for the hg commandline client.
(defvar xhg-executable "hg" (#$ . 614))
#@129 The filename, used to store the log message before commiting.
Usually that file is placed in the tree-root of the working tree.
(defvar xhg-log-edit-file-name "++xhg-log-edit" (#$ . 712))
#@306 Return the tree root for LOCATION, nil if not in a local tree.
Computation is done from withing Emacs, by looking at an .hg/
directory in a parent buffer of LOCATION.  This is therefore very
fast.

If NO-ERROR is non-nil, don't raise an error if LOCATION is not a
mercurial managed tree (but return nil).
(defalias 'xhg-tree-root #[(&optional location no-error interactive) "\303\304\206 t\305	\n%\207" [interactive location no-error dvc-tree-root-helper ".hg/" "%S is not in a mercurial-managed tree!"] 6 (#$ . 907)])
#@56 Read a revision for the actual mercurial working copy.
(defalias 'xhg-read-revision #[(prompt) "\301\302 \"\207" [prompt read-string xhg-log-revision-at-point] 3 (#$ . 1434)])
(provide 'xhg-core)