;ELC   
;;; Compiled
;;; in Emacs version 29.4
;;; with all optimizations.


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\306\322&\210\312\323\314\315\324DD\325\320\326\306\327&\210\312\330\314\315\331DD\332\320\333\306\334&\210\312\335\314\315\336DD\337\320\340\306\341&\210\312\342\314\315\343DD\344\320\345%\210\312\346\314\315\347DD\350\320\351\306\352&\210\312\353\314\315\354DD\355\320\356\306\357&\210\360\361\362\304#\207" [require cl-lib custom-declare-group vc-hg nil "VC Mercurial (hg) backend." :version "24.1" :group vc custom-declare-variable vc-hg-global-switches funcall function #[0 "\300\207" [nil] 1 #1=""] "Global switches to pass to any Hg command." :type (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) "22.2" vc-hg-diff-switches #[0 "\300\207" [t] 1 #1#] "String or list of strings specifying switches for Hg diff under VC.\nIf nil, use the value of `vc-diff-switches'.  If t, use no switches." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) "23.1" vc-hg-annotate-switches #[0 "\300\207" [("-u" "--follow")] 1 #1#] "String or list of strings specifying switches for hg annotate under VC.\nIf nil, use the value of `vc-annotate-switches'.  If t, use no\nswitches." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) "25.1" vc-hg-revert-switches #[0 "\300\207" [nil] 1 #1#] "String or list of strings specifying switches for hg revert under VC." (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) "27.1" vc-hg-program #[0 "\300\207" ["hg"] 1 #1#] "Name of the Mercurial executable (excluding any arguments)." string vc-hg-root-log-format #[0 "\300\301\302BB\207" ["{rev}:{ifeq(branch, 'default','', '{branch}')}:{bookmarks}:{tags}:{author|person} {date|shortdate} {desc|firstline}\\n" "^\\(?:[+@o x|-]*\\)\\([0-9]+\\):\\([^:]*\\):\\([^:]*\\):\\([^:]*\\):\\(.*?\\)[ 	]+\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\)" (((1 'log-view-message) (2 'change-log-file) (3 'change-log-list) (4 'change-log-conditionals) (5 'change-log-name) (6 'change-log-date)))] 3 #1#] "Mercurial log template for `vc-hg-print-log' short format.\nThis should be a list (TEMPLATE REGEXP KEYWORDS), where TEMPLATE\nis the \"--template\" argument string to pass to Mercurial,\nREGEXP is a regular expression matching the resulting Mercurial\noutput, and KEYWORDS is a list of `font-lock-keywords' for\nhighlighting the Log View buffer." (list string regexp (repeat sexp)) "24.5" vc-hg-create-bookmark #[0 "\300\207" [t] 1 #1#] "This controls whether `vc-create-tag' will create a bookmark or branch.\nIf nil, named branch will be created.\nIf t, bookmark will be created.\nIf `ask', you will be prompted for a branch type." (choice (const :tag "No" nil) (const :tag "Yes" t) (const :tag "Ask" ask)) "28.1" put Hg vc-functions] 8)
(defvar vc-hg-history nil)
(defalias 'vc-hg-revision-granularity #[0 "\300\207" [repository] 1])#@14 

(fn FILES)
(defalias 'vc-hg-checkout-model #[257 "\300\207" [implicit] 2 (#$ . 3206)])
(defalias 'vc-hg-update-on-retrieve-tag #[0 "\300\207" [nil] 1])#@58 Return non-nil if FILE is registered with hg.

(fn FILE)
(defalias 'vc-hg-registered #[257 "\300!\205 \301\302\"\211\303>\203 \304\301\305#\210\305\202 \306\262\207" [vc-hg-root vc-state Hg (ignored unregistered nil) vc-file-setprop nil t] 6 (#$ . 3365)])#@47 Hg-specific version of `vc-state'.

(fn FILE)
(defalias 'vc-hg-state #[257 "\300!\211\301=\203 \302!\207\207" [vc-hg-state-fast unsupported vc-hg-state-slow] 4 (#$ . 3633)])#@52 Determine status of FILE by running hg.

(fn FILE)
(defalias 'vc-hg-state-slow #[257 "\304!\262\305\306!\307\310\311\"\312\216	r	q\210\31318 \314\315\n\"\316\305\311\305\317\320\317\321\317\322\323\324\325!&)0\202: \210\305*\262r	q\210\326 +\327=\205\214 \211G\327V\205\214 \330\331\"\206\\ \330\332\"?\205\214 \211\327H\211\333\267\202\211 \334\202\212 \335\202\212 \336\202\212 \337\202\212 \340\202\212 \341\202\212 \342\202\212 \334\202\212 \334\262)\207" [default-directory standard-output process-environment vc-hg-program expand-file-name nil file-name-directory generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] (error) append ("TERM=dumb" "LANGUAGE=C" "HGPLAIN=1") process-file "--config" "ui.report_untrusted=0" "alias.status=status" "defaults.status=" "status" "-A" file-relative-name buffer-string 0 string-match ".*: No such file or directory$" ".*: The system cannot find the file specified$" #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (61 105 65 109 77 113 73 117 82 121 33 125 63 129 67 133)) up-to-date added edited ignored removed missing unregistered] 17 (#$ . 3815)])#@58 Hg-specific version of `vc-working-revision'.

(fn FILE)
(defalias 'vc-hg-working-revision #[257 "\3011# \302\303\304\"\305\216\306\307\310\311\312\313\314\315&)\210rq\210\316 +0\207\210\310\207" [standard-output (error) generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] vc-hg-command 0 nil "log" "-r" "." "--template" "{rev}" buffer-string] 10 (#$ . 5007)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\207" [custom-declare-variable vc-hg-symbolic-revision-styles funcall function #[0 "\300\207" [(builtin-active-bookmark "{if(bookmarks,sub(' ',',',bookmarks),if(phabdiff,phabdiff,shortest(node,6)))}")] 1 #1=""] "List of ways to present versions symbolically.\nThe version that we use is the first one that successfully\nproduces a non-empty string.\n\nEach entry in the list can be either:\n\n- The symbol `builtin-active-bookmark', which indicates that we\nshould use the active bookmark if one exists.  A template can\nsupply this information as well, but `builtin-active-bookmark' is\nhandled entirely inside Emacs and so is more efficient than using\nthe generic Mercurial mechanism.\n\n- A string giving the Mercurial template to supply to \"hg\nparent\".  \"hg help template\" may be useful reading.\n\n- A function to call; it should accept two arguments (a revision\nand an optional path to which to limit history) and produce a\nstring.  The function is called with `default-directory' set to\nwithin the repository.\n\nIf no list entry produces a useful revision, return nil." :type (repeat (choice (const :tag "Active bookmark" builtin-active-bookmark) (string :tag "Hg template") (function :tag "Custom"))) :version "26.1" vc-hg-use-file-version-for-mode-line-version #[0 "\300\207" [nil] 1 #1#] "When enabled, the modeline contains revision information for the visited file.\nWhen not, the revision in the modeline is for the repository\nworking copy.  nil is the much faster setting for\nlarge repositories." boolean] 8)#@12 

(fn REV)
(defalias 'vc-hg--active-bookmark-internal #[257 "\211\300\232\205, \301\302!\205, \3031* \304\305\306\"r\211q\210\307\310\"\216\311\302!\210\312ed\"*\2620\207\210\313\207" ["." file-exists-p ".hg/bookmarks.current" (error) generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents buffer-substring-no-properties nil] 5 (#$ . 7057)])#@26 

(fn TEMPLATE REV PATH)
(defalias 'vc-hg--run-log #[771 "\3011< \302\303\304\"\305\216\211\203# \306\307\310\311\312\313\314\n	&	\210\2022 \306\307\310\311\315\313\314&	\210)rq\210\316 +0\207\210\310\207" [standard-output (error) generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] vc-hg-command 0 nil "log" "-f" "-l1" "--template" "-r" buffer-string] 13 (#$ . 7484)])#@215 Make a Mercurial revision human-readable.
REV is a Mercurial revision.  `default-directory' is assumed to
be in the repository root of interest.  PATH, if set, is a
specific file to query.

(fn REV &optional PATH)
(defalias 'vc-hg--symbolic-revision #[513 "\301\204? \211\203? \211A\262\242\204  \211\302=\203  \303!\2029 \211;\203/ \304#\2029 \305!\2059 \211\"\262\210\202 \207" [vc-hg-symbolic-revision-styles nil builtin-active-bookmark vc-hg--active-bookmark-internal vc-hg--run-log functionp] 9 (#$ . 7911)])#@58 Hg-specific version of `vc-mode-line-string'.

(fn FILE)
(defalias 'vc-hg-mode-line-string #[257 "\302!\303!\304\211\205 \305\306!!\307\310	\205 \")\211\206  \311\312\313=\204- \314=\2039 \315\262\316\262\317P\202x \320\267\202o \321\262\322\262\323P\202x \324\262\325\262\326P\202x \327\262\330\262\326P\202x \331\262\332\262\333P\202x \334\262\335\262\336P\337\340\341P%\207" [default-directory vc-hg-use-file-version-for-mode-line-version file-truename vc-state nil expand-file-name vc-hg-root vc-hg--symbolic-revision "." "???" propertize up-to-date needs-update "Up to date file" vc-up-to-date-state "Hg-" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (added 63 conflict 75 removed 87 missing 99)) "Locally added file" vc-locally-added-state "Hg@" "File contains conflicts after the last merge" vc-conflict-state "Hg!" "File removed from the VC system" vc-removed-state "File tracked by the VC system, but missing from the file system" vc-missing-state "Hg?" "Locally modified file" vc-edited-state "Hg:" face help-echo " under the Hg version control system"] 14 (#$ . 8447)])
(byte-code "\300\301\302\303\304DD\305\306\307%\210\310\311\312\"\207" [custom-declare-variable vc-hg-log-switches funcall function #[0 "\300\207" [nil] 1 #1=""] "String or list of strings specifying switches for hg log under VC." :type (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) autoload vc-setup-buffer "vc-dispatcher"] 6)#@52 If non-nil, use `--graph' in the short log output.
(defvar vc-hg-log-graph nil (#$ . 10002))#@59 Mercurial log template for `vc-hg-print-log' long format.
(defvar vc-hg-log-format "changeset:   {rev}:{node|short}\n{tags % 'tag:         {tag}\n'}{if(parents, 'parents:     {parents}\n')}user:        {author}\nDate:        {date|date}\nsummary:     {desc|tabindent}\n\n" (#$ . 10100))#@322 Print commit log associated with FILES into specified BUFFER.
If SHORTLOG is non-nil, use a short format based on `vc-hg-root-log-format'.
If START-REVISION is non-nil, it is the newest revision to show.
If LIMIT is non-nil, show no more than this many entries.

(fn FILES BUFFER &optional SHORTLOG START-REVISION LIMIT)
(defalias 'vc-hg-print-log #[1282 "\306!\210\307rq\210\310\311\312\313\205 \314\315	\"C\205( \316\314\317\n\"D\244	\320=\2051 \321C\244	\203E \322\n\205= \323\324@D\"\202H \324\fD\244\244&*\207" [inhibit-read-only vc-log-view-type vc-hg-log-graph vc-hg-root-log-format vc-hg-log-format vc-hg-log-switches vc-setup-buffer t apply vc-hg-command async "log" format "-r%s:0" "-l" "%s" with-diff "-p" append ("--graph") "--template"] 16 (#$ . 10393)])
(defvar vc-hg-log-view-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [vc-hg-log-view-mode-hook variable-documentation put "Hook run after entering Hg-Log-View mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp vc-hg-log-view-mode-map definition-name vc-hg-log-view-mode] 4)
(defvar vc-hg-log-view-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204* \303\307\310\311#\210\312\307\306\307!\203& \313\202( \314 \"\210\307\302N\2048 \303\307\302\304\315!#\210\306\300!\204X \303\300\310\311#\210\312\300\306\300!\203P \313\202V \316\300\313\"\210\"\210\300\302N\204f \303\300\302\304\317!#\210\303\311\320\321#\207" [vc-hg-log-view-mode-abbrev-table vc-hg-log-view-mode-map variable-documentation put purecopy "Keymap for `vc-hg-log-view-mode'." boundp vc-hg-log-view-mode-syntax-table definition-name vc-hg-log-view-mode defvar-1 nil make-syntax-table "Syntax table for `vc-hg-log-view-mode'." define-abbrev-table "Abbrev table for `vc-hg-log-view-mode'." derived-mode-parent log-view-mode] 5)#@529 Major mode derived from `log-view-mode' by `define-derived-mode'.
It inherits all of the parent's attributes, but has its own keymap,
abbrev table and syntax table:

  `vc-hg-log-view-mode-map', `vc-hg-log-view-mode-abbrev-table' and
`vc-hg-log-view-mode-syntax-table'

which more-or-less shadow log-view-mode's corresponding tables.

In addition to any hooks its parent mode might have run, this mode
runs the hook `vc-hg-log-view-mode-hook', as the final or penultimate
step during initialization.

\{vc-hg-log-view-mode-map}
(defalias 'vc-hg-log-view-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315!\204' \316\317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R *=\204R \326\325*C#\210\327!\210\330\f!\210*\331\332!\210\306\333!\210+\306\334!\210\335\306\336!\210,\337=\203\202 -A@\202\203 \340\306\341!\210\342!,\337=\203\235 \307.\306\343!\210\344#\306\345!\210,\337=\203\265 -A@\342-8BC\202\272 \346%\347\"%)\350\351!\207" [delay-mode-hooks major-mode mode-name vc-hg-log-view-mode-map vc-hg-log-view-mode-syntax-table vc-hg-log-view-mode-abbrev-table make-local-variable t log-view-mode vc-hg-log-view-mode "Hg-Log-View" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table require add-log log-view-file-re log-view-per-file-logs nil log-view-message-re short "^changeset:[ 	]*\\([0-9]+\\):\\(.+\\)" tab-width 2 log-view-expanded-log-entry-function vc-hg-expanded-log-entry log-view-font-lock-keywords append (("^user:[ 	]+\\([^<(]+?\\)[ 	]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" (1 'change-log-name) (2 'change-log-email)) ("^user:[ 	]+\\([A-Za-z0-9_.+-]+\\(?:@[A-Za-z0-9_.-]+\\)?\\)" (1 'change-log-email)) ("^date: \\(.+\\)" (1 'change-log-date)) ("^tag: +\\([^ ]+\\)$" (1 'highlight)) ("^summary:[ 	]+\\(.+\\)" (1 'log-view-message))) run-mode-hooks vc-hg-log-view-mode-hook local-abbrev-table regexp-unmatchable vc-log-view-type vc-hg-root-log-format truncate-lines] 5 (#$ . 12377) nil])
(autoload 'vc-switches "vc")#@156 Insert into BUFFER the history of FILE for lines LFROM to LTO.
This requires hg 4.4 or later, for the "-L" option of "hg log".

(fn FILE BUFFER LFROM LTO)
(defalias 'vc-hg-region-history #[1028 "\300\301\302\303\304\305\306\307\310\311!\f\f$&\207" [vc-hg-command async nil "log" "-f" "-p" "-L" format "%s,%d:%d" file-relative-name] 17 (#$ . 14583)])
(require 'diff-mode)
(defvar vc-hg-region-history-mode-map (byte-code "\302\303\302	D!\"\207" [diff-mode-map vc-hg-log-view-mode-map make-composed-keymap nil] 5))
(defvar vc-hg--log-view-long-font-lock-keywords nil)
(defvar vc-hg-region-history-font-lock-keywords '((vc-hg-region-history-font-lock)))#@14 

(fn LIMIT)
(defalias 'vc-hg-region-history-font-lock #[257 "\212\303 \210\304\305!\204 \306\305\307\310#\210\311\224f)\312=\212\313\314\310#\203$ \315\224\202% )\203. \202/ 	\316`\")\210\211b\210`W\307f\312=\262\262\204 \307\207" [diff-font-lock-keywords vc-hg--log-view-long-font-lock-keywords font-lock-keywords beginning-of-line looking-at "^\\(?:diff\\|changeset\\)\\>" re-search-backward nil t 0 100 re-search-forward "\n\\(diff\\|changeset\\)\\>" 1 font-lock-fontify-keywords-region] 6 (#$ . 15246)])
(defvar vc-hg-region-history-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [vc-hg-region-history-mode-hook variable-documentation put "Hook run after entering Hg-Region-History mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp vc-hg-region-history-mode-map definition-name vc-hg-region-history-mode] 4)
(defvar vc-hg-region-history-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204* \303\307\310\311#\210\312\307\306\307!\203& \313\202( \314 \"\210\307\302N\2048 \303\307\302\304\315!#\210\306\300!\204X \303\300\310\311#\210\312\300\306\300!\203P \313\202V \316\300\313\"\210\"\210\300\302N\204f \303\300\302\304\317!#\210\303\311\320\321#\207" [vc-hg-region-history-mode-abbrev-table vc-hg-region-history-mode-map variable-documentation put purecopy "Keymap for `vc-hg-region-history-mode'." boundp vc-hg-region-history-mode-syntax-table definition-name vc-hg-region-history-mode defvar-1 nil make-syntax-table "Syntax table for `vc-hg-region-history-mode'." define-abbrev-table "Abbrev table for `vc-hg-region-history-mode'." derived-mode-parent vc-hg-log-view-mode] 5)#@272 Major mode to browse Hg's "log -p" output.

In addition to any hooks its parent mode `vc-hg-log-view-mode' might
have run, this mode runs the hook `vc-hg-region-history-mode-hook', as
the final or penultimate step during initialization.

\{vc-hg-region-history-mode-map}
(defalias 'vc-hg-region-history-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315!\204' \316\317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R =\204R \326\325C#\210\327!\210\330\f!\210\306\331!\210\306\332!\210\333AB)\334\335!\207" [delay-mode-hooks major-mode mode-name vc-hg-region-history-mode-map vc-hg-region-history-mode-syntax-table vc-hg-region-history-mode-abbrev-table make-local-variable t vc-hg-log-view-mode vc-hg-region-history-mode "Hg-Region-History" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table vc-hg--log-view-long-font-lock-keywords font-lock-defaults vc-hg-region-history-font-lock-keywords run-mode-hooks vc-hg-region-history-mode-hook local-abbrev-table log-view-font-lock-keywords] 5 (#$ . 17049) nil])#@117 Get a difference report using hg between two revisions of FILES.

(fn FILES &optional OLDVERS NEWVERS BUFFER ASYNC)
(defalias 'vc-hg-diff #[1281 "@\211\205	 \300!\232\203 \204 \301\262\204! \203! \211\262\302\303\206( \304\301\n\305\306\307\310\311\"\205I \f\203E \312\312F\202I \312D\"&\207" [vc-working-revision nil apply vc-hg-command "*vc-diff*" "diff" append vc-switches hg diff "-r"] 19 (#$ . 18315)])#@17 

(fn REVISION)
(defalias 'vc-hg-expanded-log-entry #[257 "\301\302\303\"r\211q\210\304\305\"\216\306\303\307\211\310\311\312&\210eb\210m?\205- \313ed\314#\210db\210\315 *\207" [vc-hg-log-format generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] vc-hg-command nil "log" "-r" "--template" indent-region 2 buffer-string] 11 (#$ . 18751)])#@14 

(fn FILES)
(defalias 'vc-hg-revision-table #[257 "\301@!\302\303\304\"r\211q\210\305\306\"\216\307\304\310\211\311\312%\210\307\304\310\211\313\312%\210\307\304\310\211\314\312%\210\315\316ed\"!+\207" [default-directory file-name-directory generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] vc-hg-command nil "branches" "-q" "bookmarks" "tags" split-string buffer-substring-no-properties] 8 (#$ . 19159)])#@14 

(fn FILES)
(defalias 'vc-hg-revision-completion-table #[257 "\300C\211\301\302\303#\304\"\240\210\211\242\207" [nil completion-table-dynamic make-closure #[257 "\302\300\242!\203 \300\303\301!\240\210\300\242\207" [V0 V1 functionp vc-hg-revision-table] 4 "\n\n(fn STRING)"] do-switch-buffer] 8 (#$ . 19636)])#@157 Execute "hg annotate" on FILE, inserting the contents in BUFFER.
Optional arg REVISION is a revision to annotate from.

(fn FILE BUFFER &optional REVISION)
(defalias 'vc-hg-annotate-command #[770 "\300\301\302\303\304\305\306\307\310\311\"\n\205 \312PC\"&\207" [apply vc-hg-command 0 "annotate" "-dq" "-n" append vc-switches hg annotate "-r"] 15 (#$ . 19957)])
(defconst vc-hg-annotate-re "^\\(?: *[^ ]+ +\\)?\\([0-9]+\\) \\([0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]\\)\\(?: +\\([^:]+\\)\\)?:")
(defalias 'vc-hg-annotate-time #[0 "\301!\205+ \302\225b\210\303\304\305!\306\302\211\211\307\310\311O!\307\312\310O!\307\302\312O!&\262!\207" [vc-hg-annotate-re looking-at 0 vc-annotate-convert-time match-string-no-properties 2 encode-time string-to-number 6 8 4] 12])
(defalias 'vc-hg-annotate-extract-revision-at-line #[0 "\212\302 \210\303!\205! \304\224\203 \305\306!\307\305\304!\310	!\"B\202! \305\306!)\207" [vc-hg-annotate-re default-directory beginning-of-line looking-at 3 match-string-no-properties 1 expand-file-name vc-hg-root] 5])#@162 Create tag NAME in repo in DIR.  Create branch if BRANCHP.
Variable `vc-hg-create-bookmark' controls what kind of branch will be created.

(fn DIR NAME BRANCHP)
(defalias 'vc-hg-create-tag #[771 "\302\303\304\303\203\" 	\305=\203 \306\307!\202 	\203 \310\202# \311\202# \312%)\207" [default-directory vc-hg-create-bookmark vc-hg-command nil 0 ask yes-or-no-p "Create bookmark instead of branch? " "bookmark" "branch" "tag"] 9 (#$ . 21023)])#@100 Retrieve the version tagged by NAME of all registered files at or below DIR.

(fn DIR NAME UPDATE)
(defalias 'vc-hg-retrieve-tag #[771 "\301\302\303\302\304\305\232?\205 %)\207" [default-directory vc-hg-command nil 0 "update" ""] 10 (#$ . 21478)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable vc-hg-parse-hg-data-structures funcall function #[0 "\300\207" [t] 1 ""] "If true, try parsing Mercurial data structures directly.\nThis is done instead of always running Mercurial.  We try to be safe\nagainst Mercurial data structure format changes and always fall\nback to running Mercurial directly." :type boolean :version "26.1"] 8)#@80 Read and advance over an unsigned byte.
Return the byte's value as an integer.
(defalias 'vc-hg--read-u8 #[0 "\300f\300u\210\207" [nil] 2 (#$ . 22163)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put vc-hg--read-u8 speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@61 Read and advance over a big-endian unsigned 32-bit integer.
(defalias 'vc-hg--read-u32-be #[0 "\300\301f\301u\210\302_\301f\301u\210\303_\301f\301u\210\304_\301f\301u\210$\207" [+ nil 16777216 65536 256] 6 (#$ . 22461)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put vc-hg--read-u32-be speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@23 

(fn DIRSTATE FNAME)
(defalias 'vc-hg--raw-dirstate-search #[514 "\301\302\303\"r\211q\210\304\305\"\216\306\307!\210\310!\210\307G\307db\210\311e\312\\\303#\206( ee\312\\b\210`W\203\346 \313u\210\314\307f\307u\210\315_\307f\307u\210\316_\307f\307u\210\317_\307f\307u\210$\211=\204g \211V\203\337 `\\f\320=\203\337 \321`\\\303#\203\337 \322\\\206y \323[u\210\307f\307u\210\314\307f\307u\210\315_\307f\307u\210\316_\307f\307u\210\317_\307f\307u\210$\314\307f\307u\210\315_\307f\307u\210\316_\307f\307u\210\317_\307f\307u\210$\314\307f\307u\210\315_\307f\307u\210\316_\307f\307u\210\317_\307f\307u\210$F\262db\266\202- \211u\266\202- )\266\203*\207" [case-fold-search generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil insert-file-contents-literally search-backward 40 13 + 16777216 65536 256 0 search-forward 17 1] 16 (#$ . 22831)])
(define-error 'vc-hg-unsupported-syntax "unsupported hgignore syntax")
(defconst vc-hg--pcre-c-escapes '((97 . 7) (98 . 8) (102 . 12) (110 . 10) (114 . 13) (116 . 9) (110 . 10) (114 . 13) (116 . 9) (118 . 11)))
(defconst vc-hg--pcre-metacharacters '(46 94 36 42 43 63 123 92 91 124 40))
(defconst vc-hg--elisp-metacharacters '(46 42 43 63 91 36 92))#@10 

(fn C)
(defalias 'vc-hg--escape-for-pcre #[257 "\211>\203 \301\302\"\207\207" [vc-hg--pcre-metacharacters string 92] 4 (#$ . 24122)])#@85 Build a string from list PARTS.  Each element is a character or string.

(fn PARTS)
(defalias 'vc-hg--parts-to-string #[257 "\300\203& \211A\262\211@\211;\203 \301\300\"\244\266\203\202 \241\210\266\203\202 \302\303\"\207" [nil append apply string] 7 (#$ . 24266)])#@297 Transform PCRE, a Mercurial file PCRE, into an elisp RE against PREFIX.
PREFIX is the directory name of the directory against which these
patterns are rooted.  We understand only a subset of PCRE syntax;
if we don't understand a construct, we signal
`vc-hg-unsupported-syntax'.

(fn PCRE PREFIX)
(defalias 'vc-hg--pcre-to-elisp-re #[514 "\302!\203\f \303!\204 \304\305!\210\306\307\306\310GW\203H\311\267\202\312\313	#\203: \314\315	C\"\210\202\211\316\267\202\200 \317\262\202\320\262\211B\262\202\307=\203^ \321\262\202\314\315	C\"\210\202\322B\262\202\323B\262\211B\262\202\211B\262\202\211\324>\203\231 \314\315	C\"\210\202\273 \211>\203\256 \323B\262\211B\262\202\273 \211	\236A\206\266 \211B\262\310\262\202\211B\262\211\323=\203\321 \325\202\322 \326\262\202\211\327>\203\344 \314\315	C\"\210\211	\236A\206\354 \211B\262\325\262\202\211B\262\211\330\267\202\326\262\202\310\262\202\202\331\332!\210T\262\210\202 \310=\204+\314\315C\"\210\333\2036\334\2027\335\336!R\207" [vc-hg--elisp-metacharacters vc-hg--pcre-c-escapes file-name-absolute-p directory-name-p cl--assertion-failed (and (file-name-absolute-p prefix) (directory-name-p prefix)) nil 0 normal #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (normal 38 backslash 137 charclass-enter 193 charclass-backslash 215 charclass 247)) string-match "}\\\\\\?\\|(\\?[^:]" signal vc-hg-unsupported-syntax #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (92 64 91 70 94 82 36 104 124 113 40 113 41 113)) backslash charclass-enter t "\\(?:$\\|/\\)" 92 (48 49 50 51 52 53 54 55 56 57 65 98 66 100 68 115 83 119 87 90 120) charclass charclass-backslash (48 120) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (92 259 93 265)) error "Invalid state" "^" "" "\\(?:.*/\\)?" vc-hg--parts-to-string] 12 (#$ . 24550)])#@74 Transform a glob pattern into a Mercurial file pattern regex.

(fn GLOB)
(defalias 'vc-hg--glob-to-pcre #[257 "\300\301G\301\300W\203HH\262T\262\211\302>\204% \303!B\262\202 \211\304\267\202W\2054 H\305=\203_ T\262W\205F H\306=\203W T\262\307B\262\202 \310B\262\202 \311B\262\202 \312B\262\202 \211W\203\203 H\313>\203\203 T\262\211W\203\231 H\314=\204\231 \211T\262\202\203 \211Y\203\251 \315B\262\210\202 O\316\317\320#\262T\262\211\301H\321=\203\311 \211\301\322I\210\202\326 \211\301H\322=\203\326 \317P\262\323B\262\211B\262\314B\262\266\202 T\262\324B\262\202 \325B\262S\262\202 \211\326=\203\301V\203\327B\262\202 \211\330=\203>=\203-\320B\262\202 T\262\330B\262\211B\262\202 \303!B\262\202 \331!\332P\207" [nil 0 (42 63 91 123 125 44 92) vc-hg--escape-for-pcre #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (42 43 63 103 91 111 123 237 125 249)) 42 47 "(?:.*/)?" ".*" "[^/]*" 46 (33 93) 93 "\\[" string-replace "\\" "\\\\" 33 94 91 "(?:" 41 44 124 92 vc-hg--parts-to-string "$"] 12 (#$ . 26541)])#@20 

(fn PCRE PREFIX)
(defalias 'vc-hg--hgignore-add-pcre #[514 "\301\"B\211\207" [vc-hg--hgignore-patterns vc-hg--pcre-to-elisp-re] 5 (#$ . 27704)])#@20 

(fn GLOB PREFIX)
(defalias 'vc-hg--hgignore-add-glob #[514 "\301\302!\"B\211\207" [vc-hg--hgignore-patterns vc-hg--pcre-to-elisp-re vc-hg--glob-to-pcre] 5 (#$ . 27860)])#@20 

(fn PATH PREFIX)
(defalias 'vc-hg--hgignore-add-path #[514 "\300G\301\211W\203 \302H!B\262\211T\262\202 \266\303\304\305!\306Q\"\207" [nil 0 vc-hg--escape-for-pcre vc-hg--hgignore-add-pcre "^" vc-hg--parts-to-string "$"] 8 (#$ . 28041)])#@24 

(fn HGIGNORE PREFIX)
(defalias 'vc-hg--slurp-hgignore-1 #[514 "\301\302\303\304\"r\211q\210\305\306\"\216\307!\211\203 \310!\210\3118\262\3128\262EB\210m?\205\334 \214`\313 }\210\314\315!\204\325 \314\316!\203H \301\262\202\325 \314\317!\203T \320\262\202\325 \314\321!\203d \322\323\324!\"\210\202\325 \314\325!\203t \320\323\324!\"\210\202\325 \314\326!\203\204 \301\323\324!\"\210\202\325 \314\327!\203\267 \323\324!\330\232\323\331!\332\333\"\203\235 \211\202\243 \334!P\335\203\257 \334!\202\261 \"\266\202\325 \314\336!\203\310 \337\340\323\341!C\"\210\202\325 \314\342!\203\325 \323\341!\"\210)\324y\210\202+ *\207" [vc-hg--hgignore-filenames vc-hg--hgignore-add-pcre generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] file-attributes insert-file-contents 5 7 line-end-position looking-at "[ 	]*\\(?:#.*\\)?$" "syntax:[ 	]*re[ 	]*$" "syntax:[ 	]*glob[ 	]*$" vc-hg--hgignore-add-glob "path:\\(.+?\\)[ 	]*$" vc-hg--hgignore-add-path match-string 1 "glob:\\(.+?\\)[ 	]*$" "re:\\(.+?\\)[ 	]*$" "\\(sub\\)?include:\\(.+?\\)[ 	]*$" "sub" 2 string-match "^/" file-name-directory vc-hg--slurp-hgignore-1 "[a-zA-Z0-9_]*:" signal vc-hg-unsupported-syntax 0 ".*$"] 11 (#$ . 28298)])#@81 compiler-macro for inlining `vc-hg--ignore-patterns-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hg--ignore-patterns-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hg--ignore-patterns-p (and (memq (type-of cl-x) cl-struct-vc-hg--ignore-patterns-tags) t)) nil] 9 (#$ . 29575)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop vc-hg--ignore-patterns-p compiler-macro vc-hg--ignore-patterns-p--cmacro] 4)#@13 

(fn CL-X)
(defalias 'vc-hg--ignore-patterns-p #[257 "\301!>\205	 \302\207" [cl-struct-vc-hg--ignore-patterns-tags type-of t] 3 (#$ . 30035)])
(byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\301#\300\207" [function-put vc-hg--ignore-patterns-p side-effect-free error-free pure t define-symbol-prop vc-hg--ignore-patterns cl-deftype-satisfies] 6)#@84 compiler-macro for inlining `vc-hg--ignore-patterns-repo'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hg--ignore-patterns-repo--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hg--ignore-patterns-repo (progn (or (vc-hg--ignore-patterns-p cl-x) (signal 'wrong-type-argument (list 'vc-hg--ignore-patterns cl-x))) (aref cl-x 1))) nil] 9 (#$ . 30400)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop vc-hg--ignore-patterns-repo compiler-macro vc-hg--ignore-patterns-repo--cmacro] 4)#@72 Access slot "repo" of `vc-hg--ignore-patterns' struct CL-X.

(fn CL-X)
(defalias 'vc-hg--ignore-patterns-repo #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-vc-hg--ignore-patterns-tags type-of signal wrong-type-argument vc-hg--ignore-patterns 1] 5 (#$ . 30932)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-hg--ignore-patterns-repo side-effect-free t] 4)#@95 compiler-macro for inlining `vc-hg--ignore-patterns-ignore-patterns'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hg--ignore-patterns-ignore-patterns--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hg--ignore-patterns-ignore-patterns (progn (or (vc-hg--ignore-patterns-p cl-x) (signal 'wrong-type-argument (list 'vc-hg--ignore-patterns cl-x))) (aref cl-x 2))) nil] 9 (#$ . 31324)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop vc-hg--ignore-patterns-ignore-patterns compiler-macro vc-hg--ignore-patterns-ignore-patterns--cmacro] 4)#@83 Access slot "ignore-patterns" of `vc-hg--ignore-patterns' struct
CL-X.

(fn CL-X)
(defalias 'vc-hg--ignore-patterns-ignore-patterns #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-vc-hg--ignore-patterns-tags type-of signal wrong-type-argument vc-hg--ignore-patterns 2] 5 (#$ . 31911)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-hg--ignore-patterns-ignore-patterns side-effect-free t] 4)#@92 compiler-macro for inlining `vc-hg--ignore-patterns-file-sources'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hg--ignore-patterns-file-sources--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hg--ignore-patterns-file-sources (progn (or (vc-hg--ignore-patterns-p cl-x) (signal 'wrong-type-argument (list 'vc-hg--ignore-patterns cl-x))) (aref cl-x 3))) nil] 9 (#$ . 32336)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop vc-hg--ignore-patterns-file-sources compiler-macro vc-hg--ignore-patterns-file-sources--cmacro] 4)#@80 Access slot "file-sources" of `vc-hg--ignore-patterns' struct CL-X.

(fn CL-X)
(defalias 'vc-hg--ignore-patterns-file-sources #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-vc-hg--ignore-patterns-tags type-of signal wrong-type-argument vc-hg--ignore-patterns 3] 5 (#$ . 32908)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-hg--ignore-patterns-file-sources side-effect-free t] 4)#@124 compiler-macro for inlining `vc-hg--ignore-patterns-make'.

(fn CL-WHOLE &cl-quote &key REPO IGNORE-PATTERNS FILE-SOURCES)
(defalias 'vc-hg--ignore-patterns-make--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203H \211@\304>\2031 \211A\204) \305\306@\"\210\211AA\262\202 \307>A@\203? \310\262\202 \305\311@\"\210\202 \210\312\313\314\310\310&\207" [plist-member :repo :ignore-patterns :file-sources (:repo :ignore-patterns :file-sources :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:repo :ignore-patterns :file-sources)" cl--defsubst-expand (repo ignore-patterns file-sources) (cl-block vc-hg--ignore-patterns-make (record 'vc-hg--ignore-patterns repo ignore-patterns file-sources))] 14 (#$ . 33325)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop vc-hg--ignore-patterns-make compiler-macro vc-hg--ignore-patterns-make--cmacro] 4)#@104 Constructor for objects of type `vc-hg--ignore-patterns'.

(fn &key REPO IGNORE-PATTERNS FILE-SOURCES)
(defalias 'vc-hg--ignore-patterns-make #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203H \211@\304>\2031 \211A\204) \305\306@\"\210\211AA\262\202 \307>A@\203? \310\262\202 \305\311@\"\210\202 \210\312\313$\207" [plist-member :repo :ignore-patterns :file-sources (:repo :ignore-patterns :file-sources :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:repo :ignore-patterns :file-sources)" record vc-hg--ignore-patterns] 9 (#$ . 34266)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put vc-hg--ignore-patterns-make side-effect-free t cl-struct-define vc-hg--ignore-patterns nil cl-structure-object record ((cl-tag-slot) (repo) (ignore-patterns) (file-sources)) cl-struct-vc-hg--ignore-patterns-tags] 11)#@100 Read hg ignore patterns from REPO.
REPO must be the directory name of an hg repository.

(fn REPO)
(defalias 'vc-hg--slurp-hgignore #[257 "\302!\203\f \303!\204 \304\305!\210\211\306P\307\211\310\"\210\311\312\313\237\314	\237&*\207" [vc-hg--hgignore-patterns vc-hg--hgignore-filenames file-name-absolute-p directory-name-p cl--assertion-failed (and (file-name-absolute-p repo) (directory-name-p repo)) ".hgignore" nil vc-hg--slurp-hgignore-1 vc-hg--ignore-patterns-make :repo :ignore-patterns :file-sources] 10 (#$ . 35194)])#@79 Return whether the cached ignore patterns in HGIP are still valid.

(fn HGIP)
(defalias 'vc-hg--ignore-patterns-valid-p #[257 "\301\302!>\204 \303\304\305D\"\210\306H\211\203L \203L \211A\262\242\211A@\3078\310@!\211\3118\262\3128\262\313\"\203D \232\204G \314\262\266\202 \207" [cl-struct-vc-hg--ignore-patterns-tags t type-of signal wrong-type-argument vc-hg--ignore-patterns 3 2 file-attributes 5 7 time-equal-p nil] 12 (#$ . 35736)])#@135 Test whether the ignore pattern set HGIP says to ignore FILENAME.
FILENAME must be the file's true absolute name.

(fn HGIP FILENAME)
(defalias 'vc-hg--ignore-patterns-ignored-p #[514 "\301!>\204 \302\303\304D\"\210\305H\306\2030 \211\2040 \211A\262\242\306\307\310$\266\203\262\202 \207" [cl-struct-vc-hg--ignore-patterns-tags type-of signal wrong-type-argument vc-hg--ignore-patterns 2 nil string-match t] 12 (#$ . 36203)])#@39 Cached pre-parsed hg ignore patterns.
(defvar vc-hg--cached-ignore-patterns nil (#$ . 36648))#@36 

(fn REPO REPO-RELATIVE-FILENAME)
(defalias 'vc-hg--file-ignored-p #[514 "\211\203\" \302!	>\204 \303\304\305D\"\210\306H\232\203\" \307!\204+ \310\311!\262\211\312P\"\207" [vc-hg--cached-ignore-patterns cl-struct-vc-hg--ignore-patterns-tags type-of signal wrong-type-argument vc-hg--ignore-patterns 1 vc-hg--ignore-patterns-valid-p nil vc-hg--slurp-hgignore vc-hg--ignore-patterns-ignored-p] 8 (#$ . 36747)])#@13 

(fn REPO)
(defalias 'vc-hg--read-repo-requirements #[257 "\300!\203\f \301!\204 \302\303!\210\211\304P\305!\2057 \306\307\310\"r\211q\210\311\312\"\216\313\314!\210\315!\210\316\317ed\"!*\262\207" [file-name-absolute-p directory-name-p cl--assertion-failed (and (file-name-absolute-p repo) (directory-name-p repo)) ".hg/requires" file-exists-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil insert-file-contents-literally split-string buffer-substring-no-properties] 7 (#$ . 37177)])#@174 List of Mercurial repository requirements we understand.
If a repository requires features not present in this list, we
avoid attempting to parse Mercurial data structures.
(defconst vc-hg-supported-requirements '("dotencode" "fncache" "generaldelta" "lz4revlog" "remotefilelog" "revlogv1" "store") (#$ . 37766))#@127 Check that we understand the format of the given repository.
REPO is the directory name of a Mercurial repository.

(fn REPO)
(defalias 'vc-hg--requirements-understood-p #[257 "\301\302!\303\304$?\207" [vc-hg-supported-requirements cl-set-difference vc-hg--read-repo-requirements :test equal] 6 (#$ . 38085)])#@178 Cache of the last result of `vc-hg--raw-dirstate-search'.
Avoids the need to repeatedly scan dirstate on repeated calls to
`vc-hg-state', as we see during registration queries.
(defvar vc-hg--dirstate-scan-cache nil (#$ . 38403))#@43 

(fn DIRSTATE DIRSTATE-ATTR ASCII-FNAME)
(defalias 'vc-hg--cached-dirstate-search #[771 "\3018\262\3028\262\211\203E \211A\262\242\232\203E \303\211A\262\242\"\203E \211A\262\242\232\203E \211A\262\242\232\203E \211A\262\242\207\304 \305\306\"\216\307\")\262\257\207" [vc-hg--dirstate-scan-cache 5 7 time-equal-p match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] vc-hg--raw-dirstate-search] 12 (#$ . 38638)])#@209 Like `vc-hg-state', but parse internal data structures directly.
Returns one of the usual `vc-state' enumeration values or
`unsupported' if we need to take the slow path and run the
hg binary.

(fn FILENAME)
(defalias 'vc-hg-state-fast #[257 "\301\211\211\211\211\203m \302!\204m \303!\262\302!\204m \304!\211\262\203m \305!\262\306!\2036 \307!\204: \310\311!\210\312P\262\313!\211\262\203m \314!\203m \3158\262\316W\204m \317\"\262\320\301\321\322$\266\203\203o \323\207\324#\211@\313P!\325=\203\206 \266\326\207\204\245 \211\203\245 \3271\241 \330\"\203\236 \331\202\237 \3320\207\266\323\207\203\261 \211\204\261 \266\333\207\334\267\202\346 \3358\3368\3158\262\337\3408\262\341\"\342\"\203\336 \342\"\203\336 \266\343\207\266\344\207\266\345\207\205\353 \323\207" [vc-hg-parse-hg-data-structures nil file-remote-p file-truename vc-hg-root expand-file-name file-name-absolute-p directory-name-p cl--assertion-failed (and (file-name-absolute-p repo) (directory-name-p repo)) ".hg/dirstate" file-attributes vc-hg--requirements-understood-p 7 40 file-relative-name "[^[:ascii:]]" string-match t unsupported vc-hg--cached-dirstate-search 114 removed (vc-hg-unsupported-syntax) vc-hg--file-ignored-p ignored unregistered missing #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (110 183 97 226)) 2 3 time-convert 5 integer eql up-to-date edited added] 16 (#$ . 39114)])#@17 

(fn FILE REV)
(defalias 'vc-hg-previous-revision #[514 "\300\301\302\"r\211q\210\303\304\"\216\305\302\306\211\307\310\311\312P&\313=\205# edS{*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] vc-hg-command nil "id" "-n" "-r" "^" 0] 12 (#$ . 40583)])#@17 

(fn FILE REV)
(defalias 'vc-hg-next-revision #[514 "\300!T\301\302\303\"r\211q\210\304\305\"\216\306\303\307\310\311\312%\210eb\210\313\314!\210\300\315\316!!*\262X\2051 \317!\207" [string-to-number generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] vc-hg-command 0 nil "tip" "--style=default" re-search-forward "^changeset:[ 	]*\\([0-9]+\\):" match-string-no-properties 1 number-to-string] 10 (#$ . 40915)])#@60 Delete FILE and delete it in the hg repository.

(fn FILE)
(defalias 'vc-hg-delete-file #[257 "\3001\f \301!0\210\202 \210\302\303\304\305\306\307&\207" [(file-error) delete-file vc-hg-command nil 0 "remove" "--after" "--force"] 8 (#$ . 41398)])#@58 Rename file from OLD to NEW using `hg mv'.

(fn OLD NEW)
(defalias 'vc-hg-rename-file #[514 "\300\301\302\303!\304\303!%\207" [vc-hg-command nil 0 expand-file-name "mv"] 9 (#$ . 41653)])#@77 Register FILES under hg.  COMMENT is ignored.

(fn FILES &optional COMMENT)
(defalias 'vc-hg-register #[513 "\300\301\302\303$\207" [vc-hg-command nil 0 "add"] 7 (#$ . 41848)])#@36 Create a new Mercurial repository.
(defalias 'vc-hg-create-repo #[0 "\300\301\302\301\303$\207" [vc-hg-command nil 0 "init"] 5 (#$ . 42031)])
(defalias 'vc-hg-responsible-p 'vc-hg-root)#@37 Unregister FILE from hg.

(fn FILE)
(defalias 'vc-hg-unregister #[257 "\300\301\302\303$\207" [vc-hg-command nil 0 "forget"] 6 (#$ . 42222)])#@110 Toggle whether this will amend the previous commit.
If toggling on, also insert its message into the buffer.
(defalias 'vc-hg-log-edit-toggle-amend #[0 "\300\301!\207" [log-edit--toggle-amend #[0 "\301\302\303\"\304\216\305\306\307\310\311\312\313&)\210rq\210\314 +\207" [standard-output generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] vc-hg-command 1 nil "log" "--limit=1" "--template" "{desc}" buffer-string] 8]] 2 (#$ . 42371) nil])
(defvar vc-hg-log-edit-mode-map (define-keymap :name "Hg-Log-Edit" "C-c C-e" 'vc-hg-log-edit-toggle-amend))
(defvar vc-hg-log-edit-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [vc-hg-log-edit-mode-hook variable-documentation put "Hook run after entering Log-Edit/hg mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp vc-hg-log-edit-mode-map definition-name vc-hg-log-edit-mode] 4)
(defvar vc-hg-log-edit-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204* \303\307\310\311#\210\312\307\306\307!\203& \313\202( \314 \"\210\307\302N\2048 \303\307\302\304\315!#\210\306\300!\204X \303\300\310\311#\210\312\300\306\300!\203P \313\202V \316\300\313\"\210\"\210\300\302N\204f \303\300\302\304\317!#\210\303\311\320\321#\207" [vc-hg-log-edit-mode-abbrev-table vc-hg-log-edit-mode-map variable-documentation put purecopy "Keymap for `vc-hg-log-edit-mode'." boundp vc-hg-log-edit-mode-syntax-table definition-name vc-hg-log-edit-mode defvar-1 nil make-syntax-table "Syntax table for `vc-hg-log-edit-mode'." define-abbrev-table "Abbrev table for `vc-hg-log-edit-mode'." derived-mode-parent log-edit-mode] 5)#@299 Major mode for editing Hg log messages.
It is based on `log-edit-mode', and has Hg-specific extensions.

In addition to any hooks its parent mode might have run, this mode
runs the hook `vc-hg-log-edit-mode-hook', as the final or penultimate
step during initialization.

\{vc-hg-log-edit-mode-map}
(defalias 'vc-hg-log-edit-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315!\204' \316\317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R =\204R \326\325C#\210\327!\210\330\f!\210)\331\332!\207" [delay-mode-hooks major-mode mode-name vc-hg-log-edit-mode-map vc-hg-log-edit-mode-syntax-table vc-hg-log-edit-mode-abbrev-table make-local-variable t log-edit-mode vc-hg-log-edit-mode "Log-Edit/hg" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks vc-hg-log-edit-mode-hook local-abbrev-table] 5 (#$ . 44163) nil])#@96 Hg-specific version of `vc-backend-checkin'.
REV is ignored.

(fn FILES COMMENT &optional REV)
(defalias 'vc-hg-checkin #[770 "\300\301\302\303\304\305D\306!\244%\207" [apply vc-hg-command nil 0 "commit" "-m" vc-hg--extract-headers] 11 (#$ . 45240)])#@29 

(fn PATCH-STRING COMMENT)
(defalias 'vc-hg-checkin-patch #[514 "\300\301!\302\303#\210\304\305\"\216\306\307\303\310\303\311\312\313F\314!\244%\210\307\303\310\303\315\316\317\320\321&)\207" [make-temp-file "hg-patch" write-region nil make-closure #[0 "\301\300!\207" [V0 delete-file] 2] apply vc-hg-command 0 "import" "--bypass" "-m" vc-hg--extract-headers "update" "--merge" "--tool" "internal:local" "tip"] 12 (#$ . 45500)])#@16 

(fn COMMENT)
(defalias 'vc-hg--extract-headers #[257 "\300\301\"\207" [log-edit-extract-headers (("Author" . "--user") ("Date" . "--date") ("Amend" lambda (value) (when (equal value "yes") (list "--amend"))))] 4 (#$ . 45943)])#@24 

(fn FILE REV BUFFER)
(defalias 'vc-hg-find-revision #[771 "\302\211\203 \303\304\305\306&\202 \303\304\305$*\207" [coding-system-for-write coding-system-for-read binary vc-hg-command 0 "cat" "-r"] 10 (#$ . 46178)])#@65 Return the root directory of the repository of FILE.

(fn FILE)
(defalias 'vc-hg-find-ignore-file #[257 "\300\301\302!\"\207" [expand-file-name ".hgignore" vc-hg-root] 5 (#$ . 46412)])#@124 Retrieve a revision of FILE.
EDITABLE is ignored.
REV is the revision to check out into WORKFILE.

(fn FILE &optional REV)
(defalias 'vc-hg-checkout #[513 "\302\211r\303!\206\f pq\210\211\203 \304\305\306\307\310&\202% \304\305\306\307$+\207" [coding-system-for-write coding-system-for-read binary get-file-buffer vc-hg-command t 0 "cat" "-r"] 9 (#$ . 46604)])#@65 Call "hg resolve -m" if the conflict markers have been removed.
(defalias 'vc-hg-resolve-when-done #[0 "\212eb\210\301\302\303\304#?\205 \305\303\306\307\310%\210\311\312\313\304#)\207" [buffer-file-name re-search-forward "^<<<<<<< " nil t vc-hg-command 0 "resolve" "-m" remove-hook after-save-hook vc-hg-resolve-when-done] 6 (#$ . 46979)])
(defalias 'vc-hg-find-file-hook #[0 "\205, \301!\302>\205, \212eb\210\303\304\305\306#)\205, \307\301\310#\210\311 \210\312\313\314\305\306$\210\315!\207" [buffer-file-name vc-state (edited conflict) re-search-forward "^<<<<<<< " nil t vc-file-setprop conflict smerge-start-session add-hook after-save-hook vc-hg-resolve-when-done vc-message-unresolved-conflicts] 5])#@29 

(fn REMOTE DIRECTORY REV)
(defalias 'vc-hg-clone #[771 "\211\203 \300\301\302\301\303\304		&\210\202\" \300\301\302\301\303&\210\207" [vc-hg-command nil 0 "clone" "--rev"] 12 (#$ . 47699)])#@37 

(fn FILE &optional CONTENTS-DONE)
(defalias 'vc-hg-revert #[513 "\211?\205\" \300\301\302\"r\211q\210\303\304\"\216\305\306\302\307\310\311\312\313\"&*\262\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] apply vc-hg-command 0 "revert" vc-switches hg revert] 12 (#$ . 47908)])
(defvar vc-hg-extra-menu-map (define-keymap))
(defalias 'vc-hg-extra-menu #[0 "\207" [vc-hg-extra-menu-map] 1])
(defalias 'vc-hg-extra-status-menu #[0 "\207" [vc-hg-extra-menu-map] 1])#@79 compiler-macro for inlining `vc-hg-extra-fileinfo-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hg-extra-fileinfo-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hg-extra-fileinfo-p (and (memq (type-of cl-x) cl-struct-vc-hg-extra-fileinfo-tags) t)) nil] 9 (#$ . 48453)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop vc-hg-extra-fileinfo-p compiler-macro vc-hg-extra-fileinfo-p--cmacro] 4)#@13 

(fn CL-X)
(defalias 'vc-hg-extra-fileinfo-p #[257 "\301!>\205	 \302\207" [cl-struct-vc-hg-extra-fileinfo-tags type-of t] 3 (#$ . 48901)])
(byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\301#\300\207" [function-put vc-hg-extra-fileinfo-p side-effect-free error-free pure t define-symbol-prop vc-hg-extra-fileinfo cl-deftype-satisfies] 6)#@91 compiler-macro for inlining `vc-hg-extra-fileinfo->rename-state'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hg-extra-fileinfo->rename-state--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hg-extra-fileinfo->rename-state (progn (or (vc-hg-extra-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'vc-hg-extra-fileinfo cl-x))) (aref cl-x 1))) nil] 9 (#$ . 49258)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop vc-hg-extra-fileinfo->rename-state compiler-macro vc-hg-extra-fileinfo->rename-state--cmacro] 4)#@78 Access slot "rename-state" of `vc-hg-extra-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'vc-hg-extra-fileinfo->rename-state #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-vc-hg-extra-fileinfo-tags type-of signal wrong-type-argument vc-hg-extra-fileinfo 1] 5 (#$ . 49821)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-hg-extra-fileinfo->rename-state side-effect-free t] 4)#@89 compiler-macro for inlining `vc-hg-extra-fileinfo->extra-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hg-extra-fileinfo->extra-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hg-extra-fileinfo->extra-name (progn (or (vc-hg-extra-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'vc-hg-extra-fileinfo cl-x))) (aref cl-x 2))) nil] 9 (#$ . 50229)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop vc-hg-extra-fileinfo->extra-name compiler-macro vc-hg-extra-fileinfo->extra-name--cmacro] 4)#@76 Access slot "extra-name" of `vc-hg-extra-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'vc-hg-extra-fileinfo->extra-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-vc-hg-extra-fileinfo-tags type-of signal wrong-type-argument vc-hg-extra-fileinfo 2] 5 (#$ . 50782)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-hg-extra-fileinfo->extra-name side-effect-free t] 4)#@112 compiler-macro for inlining `make-vc-hg-extra-fileinfo'.

(fn CL-WHOLE &cl-quote &key RENAME-STATE EXTRA-NAME)
(defalias 'make-vc-hg-extra-fileinfo--cmacro #[385 "\300\301\"A@\300\302\"A@\211\203B \211@\303>\203+ \211A\204# \304\305@\"\210\211AA\262\202 \306>A@\2039 \307\262\202 \304\310@\"\210\202 \210\311\312\313\307\307&\207" [plist-member :rename-state :extra-name (:rename-state :extra-name :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:rename-state :extra-name)" cl--defsubst-expand (rename-state extra-name) (cl-block make-vc-hg-extra-fileinfo (record 'vc-hg-extra-fileinfo rename-state extra-name))] 12 (#$ . 51185)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop make-vc-hg-extra-fileinfo compiler-macro make-vc-hg-extra-fileinfo--cmacro] 4)#@92 Constructor for objects of type `vc-hg-extra-fileinfo'.

(fn &key RENAME-STATE EXTRA-NAME)
(defalias 'make-vc-hg-extra-fileinfo #[128 "\300\301\"A@\300\302\"A@\211\203B \211@\303>\203+ \211A\204# \304\305@\"\210\211AA\262\202 \306>A@\2039 \307\262\202 \304\310@\"\210\202 \210\311\312#\207" [plist-member :rename-state :extra-name (:rename-state :extra-name :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:rename-state :extra-name)" record vc-hg-extra-fileinfo] 7 (#$ . 52035)])
(byte-code "\300\301\302\303#\300\207" [function-put make-vc-hg-extra-fileinfo side-effect-free t] 4)#@103 compiler-macro for inlining `vc-hg-create-extra-fileinfo'.

(fn CL-WHOLE-ARG RENAME-STATE EXTRA-NAME)
(defalias 'vc-hg-create-extra-fileinfo--cmacro #[771 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (rename-state extra-name) (cl-block vc-hg-create-extra-fileinfo (record 'vc-hg-extra-fileinfo rename-state extra-name)) nil] 11 (#$ . 52694)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop vc-hg-create-extra-fileinfo compiler-macro vc-hg-create-extra-fileinfo--cmacro] 4)#@87 Constructor for objects of type `vc-hg-extra-fileinfo'.

(fn RENAME-STATE EXTRA-NAME)
(defalias 'vc-hg-create-extra-fileinfo #[514 "\300\301#\207" [record vc-hg-extra-fileinfo] 6 (#$ . 53197)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put vc-hg-create-extra-fileinfo side-effect-free t cl-struct-define vc-hg-extra-fileinfo nil cl-structure-object record ((cl-tag-slot) (rename-state) (extra-name)) cl-struct-vc-hg-extra-fileinfo-tags] 11)#@62 Pretty-printer for the vc-dir-fileinfo structure.

(fn INFO)
(defalias 'vc-hg-dir-printer #[257 "\3018\302\303\"\210\211\205O \304\305\306\307!>\204 \310\311\312D\"\210\313H\211\314\267\2024 \315\2025 \316\2025 \317\2025 \320\262\307!>\204G \310\311\312D\"\210\301H#\321\322#c\207" [cl-struct-vc-hg-extra-fileinfo-tags 2 vc-default-dir-printer Hg propertize format "   (%s %s)" type-of signal wrong-type-argument vc-hg-extra-fileinfo 1 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (copied 40 renamed-from 44 renamed-to 48)) "copied from" "renamed from" "renamed to" nil face font-lock-comment-face] 10 (#$ . 53690)])#@24 

(fn UPDATE-FUNCTION)
(defalias 'vc-hg-after-dir-status #[257 "\301\302\301\211\211\211eb\210m\204\222 \303\301f\"A\262\304`\305\\\306 \"\262\307\267\202D \301\262\202\214 \301\262\202\214 AA\211\310\311\312\n#\240\266\313\262\202\214 \211\203~ \314=\203~ \315\3058!>\204a \316\317\311\3058D\"\210\3058\211\320\321I\266\310\311\322@#EB\262\301\262\202\214 \301E\262B\262\301\262\301y\210\202	 !\207" [cl-struct-vc-hg-extra-fileinfo-tags nil ((61 . up-to-date) (67 . up-to-date) (65 . added) (82 . removed) (77 . edited) (73 . ignored) (33 . missing) (32 . copy-rename-line) (63 . unregistered)) assoc buffer-substring-no-properties 2 line-end-position #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 37 up-to-date 43 copy-rename-line 49)) record vc-hg-extra-fileinfo copied t removed type-of signal wrong-type-argument 1 renamed-from renamed-to] 13 (#$ . 54366)])#@34 

(fn DIR FILES UPDATE-FUNCTION)
(defalias 'vc-hg-dir-status-files #[771 "\301p\302\303\304\305\306\307\n\205 \310P\311&	)\210\312\313\314\"!\207" [default-directory vc-hg-command async "status" "re:" "-I" "." "-mardu" "i" "-C" vc-exec-after make-closure #[0 "\301\300!\207" [V0 vc-hg-after-dir-status] 2]] 13 (#$ . 55312)])#@102 Generate extra status headers for a repository in DIR.
This runs the command "hg summary".

(fn DIR)
(defalias 'vc-hg-dir-extra-headers #[257 "\211\301\302\303\"r\211q\210\304\305\"\216\306\303\307\310\311$\210eb\210\312\313\310m\204T \314\315!\2032 \316\317\320!!\317\321!B\2028 \322`\323 {B\324\325\326@\"\327\330#\324A\327\331#P\262B\262\310y\210\202 \211\237\262\332#+\207" [default-directory generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] vc-hg-command 0 nil "summary" mapconcat identity looking-at "\\([^ ].*\\): \\(.*\\)" capitalize match-string 1 2 "" line-end-position propertize format "%-11s: " face vc-dir-header vc-dir-header-value "\n"] 11 (#$ . 55649)])#@31 

(fn BUFFER REMOTE-LOCATION)
(defalias 'vc-hg-log-incoming #[514 "\300!\210\301\302\303\304\305\306\230?\205 &\207" [vc-setup-buffer vc-hg-command 1 nil "incoming" "-n" ""] 10 (#$ . 56397)])#@31 

(fn BUFFER REMOTE-LOCATION)
(defalias 'vc-hg-log-outgoing #[514 "\300!\210\301\302\303\304\305\306\230?\205 &\207" [vc-setup-buffer vc-hg-command 1 nil "outgoing" "-n" ""] 10 (#$ . 56602)])#@63 Value of `compilation-error-regexp-alist' in *vc-hg* buffers.
(defvar vc-hg-error-regexp-alist '(("^M \\(.+\\)" 1 nil nil 0)) (#$ . 56807))
(byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload vc-do-async-command "vc-dispatcher" log-view-get-marked "log-view"] 3)#@371 Run COMMAND (a string; either push or pull) on the current Hg branch.
If PROMPT is non-nil, prompt for the Hg command to run.
POST-PROCESSING is a list of commands to execute after the command.
If OBSOLETE is non-nil, behave like the old versions of the Hg push/pull
commands, which only operated on marked files.

(fn COMMAND PROMPT POST-PROCESSING &optional OBSOLETE)
(defalias 'vc-hg--pushpull #[1027 "C\303\203\" \304 \211\262\203\" \305\306\303\307\303\242\305\310\311\312\n\"\"&\207\313!\314\315\316!\"\317	B\nC\303C\203e \211\320\321\314\322\n\242\"\314\323\242\f\242#\324#\325\326#\240\210\242@\240\210\242A@\240\210\211\242AA\240\210\305\327\242\n\242\242&\210rq\210\330\331\332	&!)\210\333!)\207" [default-directory process-environment vc-hg-program nil log-view-get-marked apply vc-hg-command 0 nconc mapcar #[257 "\300D\207" ["-r"] 3 "\n\n(fn ARG)"] vc-hg-root format "*vc-hg : %s*" expand-file-name "HGPLAIN=1" split-string read-shell-command "Hg %s command: " "%s %s" vc-hg-history " " t vc-do-async-command vc-exec-after make-closure #[0 "\304\211\203 \211@\306\307\302\310\301\242\310&\210A\266\202\202 \210\311\312!\210\313\314!\210\301\242\315\305\242\315\316\317\300\242\315#\316\320\321\301\"\304\322#\260\f\313\323!\210\303\313\324!\210\f\310\320\325\302\"\310F\211\207" [V0 V1 V2 V3 V4 V5 apply vc-do-command nil vc-compilation-mode hg make-local-variable compile-command " " mapconcat identity make-closure #[257 "\301\300\242\302\303\304\302#R\207" [V0 " && " " " mapconcat identity] 8 "\n\n(fn ARGS)"] "" compilation-directory compilation-arguments #[257 "\300\207" [V0] 2 "\n\n(fn NAME-OF-MODE)"]] 9] vc-set-async-update] 19 (#$ . 57084)])#@409 Issue a Mercurial pull command.
If called interactively with a set of marked Log View buffers,
call "hg pull -r REVS" to pull in the specified revisions REVS.

With a prefix argument or if PROMPT is non-nil, prompt for a
specific Mercurial pull command.  The default is "hg pull -u",
which fetches changesets from the default remote repository and
then attempts to update the working directory.

(fn PROMPT)
(defalias 'vc-hg-pull #[257 "\300\301\302\303\304!$\207" [vc-hg--pushpull "pull" (("--pager" "no" "status" "--rev" "." "--rev" "tip") ("update")) called-interactively-p interactive] 7 (#$ . 58812) "P"])#@275 Push changes from the current Mercurial branch.
Normally, this runs "hg push".  If PROMPT is non-nil, prompt
for the Hg command to run.

If called interactively with a set of marked Log View buffers,
call "hg push -r REVS" to push the specified revisions REVS.

(fn PROMPT)
(defalias 'vc-hg-push #[257 "\300\301\302\303\304!$\207" [vc-hg--pushpull "push" nil called-interactively-p interactive] 7 (#$ . 59430) "P"])#@92 Prompt for revision and merge it into working directory.
This runs the command "hg merge".
(defalias 'vc-hg-merge-branch #[0 "\303!\304\305\306!\"\307	B\310\311!\312\313\n\314\315\316\230?\205\" C\"%\210rq\210\317\320!)\210\321!)\207" [default-directory process-environment vc-hg-program vc-hg-root format "*vc-hg : %s*" expand-file-name "HGPLAIN=1" vc-read-revision "Revision to merge: " apply vc-do-async-command append ("--config" "ui.report_untrusted=0" "merge") "" vc-exec-after #[0 "\300\301!\207" [vc-compilation-mode hg] 2] vc-set-async-update] 12 (#$ . 59852)])#@12 

(fn REV)
(defalias 'vc-hg-prepare-patch #[257 "r\300\301!q\210\302\303\304\305\306\307&\210\305eb\210\310\311!\210\312\304!\262\313\314p)F\207" [generate-new-buffer " *vc-hg-prepare-patch*" vc-hg-command t 0 nil "export" "--rev" search-forward-regexp "^[^#].*" match-string :subject :buffer] 8 (#$ . 60439)])#@234 A wrapper around `vc-do-command' for use in vc-hg.el.
This function differs from vc-do-command in that it invokes
`vc-hg-program', and passes `vc-hg-global-switches' to it before FLAGS.

(fn BUFFER OKSTATUS FILE-OR-LIST &rest FLAGS)
(defalias 'vc-hg-command #[899 "\303B\304\305\"\306\307\206 \310	\n;\203\" \nB\202' \304\n\"&)\207" [process-environment vc-hg-program vc-hg-global-switches "HGPLAIN=1" append ("--config" "ui.report_untrusted=0") apply vc-do-command "*vc*"] 15 (#$ . 60761)])#@13 

(fn FILE)
(defalias 'vc-hg-root #[257 "\300\301\"\207" [vc-find-root ".hg"] 4 (#$ . 61274)])#@42 

(fn FILE-OR-DIR &optional REMOTE-NAME)
(defalias 'vc-hg-repository-url #[513 "\301!\302\303\304\"r\211q\210\305\306\"\216\307p\310\311\312\313\206 \314P%\210\315edS\"+\207" [default-directory vc-hg-root generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] vc-hg-command 0 nil "config" "paths." "default" buffer-substring-no-properties] 10 (#$ . 61375)])
(provide 'vc-hg)