Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
add-log.elc	37.32 KB	-rw-r--r--
compare-w.elc	11.43 KB	-rw-r--r--
cvs-status.elc	20.93 KB	-rw-r--r--
diff-mode.elc	79.3 KB	-rw-r--r--
diff.elc	8.12 KB	-rw-r--r--
ediff-diff.elc	35.59 KB	-rw-r--r--
ediff-help.elc	11.75 KB	-rw-r--r--
ediff-hook.elc	6.46 KB	-rw-r--r--
ediff-init.elc	61.37 KB	-rw-r--r--
ediff-merg.elc	9.59 KB	-rw-r--r--
ediff-mult.elc	62.71 KB	-rw-r--r--
ediff-ptch.elc	20.25 KB	-rw-r--r--
ediff-util.elc	119.86 KB	-rw-r--r--
ediff-vers.elc	5.25 KB	-rw-r--r--
ediff-wind.elc	28.56 KB	-rw-r--r--
ediff.elc	41.19 KB	-rw-r--r--
emerge.elc	78.92 KB	-rw-r--r--
log-edit.elc	36.48 KB	-rw-r--r--
log-view.elc	18.74 KB	-rw-r--r--
pcvs-defs.elc	15.37 KB	-rw-r--r--
pcvs-info.elc	22.11 KB	-rw-r--r--
pcvs-parse.elc	14.9 KB	-rw-r--r--
pcvs-util.elc	21.53 KB	-rw-r--r--
pcvs.elc	85.67 KB	-rw-r--r--
smerge-mode.elc	39.76 KB	-rw-r--r--
vc-annotate.elc	26.25 KB	-rw-r--r--
vc-bzr.elc	41.48 KB	-rw-r--r--
vc-cvs.elc	36.24 KB	-rw-r--r--
vc-dav.elc	4.49 KB	-rw-r--r--
vc-dir.elc	43.58 KB	-rw-r--r--
vc-dispatcher.elc	17.4 KB	-rw-r--r--
vc-filewise.elc	1.91 KB	-rw-r--r--
vc-git.elc	74.65 KB	-rw-r--r--
vc-hg.elc	58.67 KB	-rw-r--r--
vc-hooks.elc	30.18 KB	-rw-r--r--
vc-mtn.elc	14.04 KB	-rw-r--r--
vc-rcs.elc	34.65 KB	-rw-r--r--
vc-sccs.elc	14.63 KB	-rw-r--r--
vc-src.elc	7.25 KB	-rw-r--r--
vc-svn.elc	23.45 KB	-rw-r--r--
vc.elc	75.95 KB	-rw-r--r--

Code Editor : vc-hg.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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

(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\306\322\310\303&	\210\312\323\314\315\324DD\325\320\326\306\327\310\303&	\210\312\330\314\315\331DD\332\320\333\306\334\310\303&	\210\312\335\314\315\336DD\337\320\340\306\341\310\303&	\210\312\342\314\315\343DD\344\320\345\310\303&\210\312\346\314\315\347DD\350\320\351\310\303\306\352&	\210\353\354\355\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] "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] "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] "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] "String or list of strings specifying switches for hg revert\nunder 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" [#2="hg"] 1 #2#] "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] "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 string (repeat sexp)) "24.5" put Hg vc-functions] 10)
(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 (#$ . 3190)])
(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!\211\205�\211\302>?\262\207" [vc-hg-root vc-hg-state (ignored unregistered)] 4 (#$ . 3350)])
#@47 Hg-specific version of `vc-state'.

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

(fn FILE)
(defalias 'vc-hg-state-slow #[257 "\304!\262\305\306!\307\310!\311\216	r	q\210\3121:�\313\314\315\316E\n\"\317\305\320\305\321\322\321\323\321\324\325\326\327!&
)0\202<�\210\305\262*r	q\210\330 +\331=\205\207�\211G\331V\205\207�\332\333\"?\205\207�\211\331H\211\334\267\202\204�\335\202\205�\336\202\205�\337\202\205�\340\202\205�\341\202\205�\342\202\205�\343\202\205�\335\202\205�\335\262)\207" [default-directory standard-output process-environment vc-hg-program expand-file-name nil file-name-directory generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) append "TERM=dumb" "LANGUAGE=C" "HGPLAIN=1" process-file t "--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$" #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (61 100 65 104 77 108 73 112 82 116 33 120 63 124 67 128)) up-to-date added edited ignored removed missing unregistered] 17 (#$ . 3750)])
#@58 Hg-specific version of `vc-working-revision'.

(fn FILE)
(defalias 'vc-hg-working-revision #[257 "\3011\"�\302\303!\304\216\305\306\307\310\311&\210)rq\210\312 +0\202&�\210\202)�\206*�\313\207" [standard-output (error) generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] vc-hg-command 0 "parent" "--template" "{rev}" buffer-string "0"] 8 (#$ . 4878)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\306\317\310\311\312\313&	\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] "List of ways to present versions symbolically.  The version\nthat we use is the first one that successfully produces a\nnon-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" :group vc-hg vc-hg-use-file-version-for-mode-line-version #[0 "\300\207" [nil] 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] 10)
#@12

(fn REV)
(defalias 'vc-hg--active-bookmark-internal #[257 "\211\300\232\2057�\301\302!\2055�\30313�\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315!\210\316ed\"*\2620\2025�\210\317\262\207" ["." ".hg/bookmarks.current" file-exists-p (error) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents buffer-substring-no-properties nil] 9 (#$ . 6944)])
#@26

(fn TEMPLATE REV PATH)
(defalias 'vc-hg--run-log #[771 "\3011;�\302\303!\304\216\211\203\"�\305\306\307\310\311\312\313\n	&	\210\2021�\305\306\307\310\314\312\313&	\210)rq\210\315 +0\207\210\307\207" [standard-output (error) generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] vc-hg-command 0 nil "log" "-f" "-l1" "--template" "-r" buffer-string] 13 (#$ . 7403)])
#@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 (#$ . 7825)])
#@58 Hg-specific version of `vc-mode-line-string'.

(fn FILE)
(defalias 'vc-hg-mode-line-string #[257 "\302\303!\304!\305\211\205�\306\307!!\310\311	\205�\")\211\206!�\312\313\314=\204.�\315=\203<�\316\262\317\262\320Q\202\205�\321\267\202z�\322\262\323\262\324Q\202\205�\325\262\326\262\327Q\202\205�\330\262\331\262\327Q\202\205�\332\262\333\262\334Q\202\205�\335\262\336\262\337Q\340\341\342
\343R%\207" [default-directory vc-hg-use-file-version-for-mode-line-version "Hg" 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 "-" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (added 66 conflict 80 removed 94 missing 108)) "Locally added file" vc-locally-added-state "@" "File contains conflicts after the last merge" vc-conflict-state "!" "File removed from the VC system" vc-removed-state "File tracked by the VC system, but missing from the file system" vc-missing-state "?" "Locally modified file" vc-edited-state ":" face help-echo " under the " " version control system"] 17 (#$ . 8362)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\"\207" [custom-declare-variable vc-hg-log-switches funcall function #[0 "\300\207" [nil] 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 ("") string)) :group vc-hg autoload vc-setup-buffer "vc-dispatcher"] 8)
#@52 If non-nil, use `--graph' in the short log output.
(defvar vc-hg-log-graph nil (#$ . 9967))
#@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" (#$ . 10065))
#@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\307rq\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 (#$ . 10359)])
(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\313 !\210\307\302N\204-�\303\307\302\304\314!#\210\306\300!\204B�\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P�\303\300\302\304\320!#\210\303\311\321\322#\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 (lambda (#1=#:def-tmp-var) (defvar vc-hg-log-view-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-hg-log-view-mode'." (lambda (#1#) (defvar vc-hg-log-view-mode-abbrev-table #1#)) define-abbrev-table nil "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 (#$ . 12410) 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 (#$ . 14617)])
(require 'diff-mode)
(defvar vc-hg-region-history-mode-map (byte-code "\302\303\302	D!\"\211\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 (#$ . 15285)])
(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\313 !\210\307\302N\204-�\303\307\302\304\314!#\210\306\300!\204B�\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P�\303\300\302\304\320!#\210\303\311\321\322#\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 (lambda (#1=#:def-tmp-var) (defvar vc-hg-region-history-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-hg-region-history-mode'." (lambda (#1#) (defvar vc-hg-region-history-mode-abbrev-table #1#)) define-abbrev-table nil "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
\325C#\210\327!\210\330\f!\210
\306\331!\210\306\332!\210\333AB)\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 (#$ . 17167) 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\312F\202I�\312D\"&\207" [vc-working-revision nil apply vc-hg-command "*vc-diff*" "diff" append vc-switches hg diff "-r"] 19 (#$ . 18434)])
#@17

(fn REVISION)
(defalias 'vc-hg-expanded-log-entry #[257 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\314\211\315\316\317&\210eb\210m?\2053�\320ed\311#\210db\210\321 *\207" [vc-hg-log-format generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-hg-command t nil "log" "-r" "--template" indent-region buffer-string] 11 (#$ . 18871)])
#@14

(fn FILES)
(defalias 'vc-hg-revision-table #[257 "\301@!\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314\315\211\316\317%\210\313\314\315\211\320\317%\210\313\314\315\211\321\317%\210\322\323ed\"!*\262)\207" [default-directory file-name-directory generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-hg-command t nil "branches" "-q" "bookmarks" "tags" split-string buffer-substring-no-properties] 8 (#$ . 19306)])
#@14

(fn FILES)
(defalias 'vc-hg-revision-completion-table #[257 "\300C\211\301\302\303\304\305\306\"\307\"\310\311%\312\"\240\210\211\242\207" [nil completion-table-dynamic make-byte-code 257 "\302\301\242!\203�\301\303\304\305\306\307\300!\310\"\311$ \240\210\301\242\207" vconcat vector [functionp make-byte-code 0 "\301\300!\207" vconcat vector [vc-hg-revision-table] 2] 8 "\n\n(fn STRING)" do-switch-buffer] 11 (#$ . 19818)])
#@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�\312PC\"&\207" [apply vc-hg-command 0 "annotate" "-dq" "-n" append vc-switches hg annotate "-r"] 15 (#$ . 20258)])
(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\311\312#!\307\310\313\311#!\307\310\302\313#!&\262!\207" [vc-hg-annotate-re looking-at 0 vc-annotate-convert-time match-string-no-properties 2 encode-time string-to-number substring 6 8 4] 13])
(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])
#@78 Attach the tag NAME to the state of the working copy.

(fn DIR NAME BRANCHP)
(defalias 'vc-hg-create-tag #[771 "\301\302\303\302\304$\205�\301\302\303\302\203�\305\202�\306%)\207" [default-directory vc-hg-command nil 0 "status" "bookmark" "tag"] 9 (#$ . 21347)])
#@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 (#$ . 21625)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable vc-hg-parse-hg-data-structures funcall function #[0 "\300\207" [t] 1] "If true, try directly parsing Mercurial data structures\ndirectly 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" :group vc-hg] 10)
#@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 (#$ . 22325)])
(put 'vc-hg--read-u8 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 22550)])
(put 'vc-hg--read-u32-be 'byte-optimizer 'byte-compile-inline-expand)
#@23

(fn DIRSTATE FNAME)
(defalias 'vc-hg--raw-dirstate-search #[514 "\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314!\210\315!\210\314G\314\316db\210\317e\320\\\316#\2060�ee\320\\b\210`W\203\355�\321u\210\322\314f\314u\210\323_\314f\314u\210\324_\314f\314u\210\325_\314f\314u\210$\211=\204o�\211V\203\346�`\\f\305=\203\346�\326`\\\316#\203\346�\327\\\206\201�\330[u\210\314f\314u\210\322\314f\314u\210\323_\314f\314u\210\324_\314f\314u\210\325_\314f\314u\210$\322\314f\314u\210\323_\314f\314u\210\324_\314f\314u\210\325_\314f\314u\210$\322\314f\314u\210\323_\314f\314u\210\324_\314f\314u\210\325_\314f\314u\210$F\262db\210\202\351�\211u\210\210\2025�*\266\203*\207" [case-fold-search inhibit-changing-match-data generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte nil insert-file-contents-literally t search-backward 40 13 + 16777216 65536 256 search-forward 17 1] 16 (#$ . 22847)])
(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 (#$ . 24206)])
#@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\262\202#�\241\210\262\266\202�\302\303\"\207" [nil append apply string] 7 (#$ . 24351)])
#@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\310GW\203H\311\267\202\312\313	#\203:�\314\315	C\"\210\202\211\316\267\202\200�\317\262\202\320\262\211B\262\202\307=\203^�\321\262\202\314\315	C\"\210\202\322B\262\202\323B\262\211B\262\202\211B\262\202\211\324>\203\231�\314\315	C\"\210\202\273�\211>\203\256�\323B\262\211B\262\202\273�\211	\236A\206\266�\211B\262\310\262\202\211B\262\211\323=\203\321�\325\202\322�\326\262\202\211\327>\203\344�\314\315	C\"\210\211	\236A\206\354�\211B\262\325\262\202\211B\262\211\330\267\202\326\262\202\310\262\202\202\331\332!\210T\262\210\202�\310=\204+\314\315C\"\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 (#$ . 24635)])
#@74 Transform a glob pattern into a Mercurial file pattern regex.

(fn GLOB)
(defalias 'vc-hg--glob-to-pcre #[257 "\300\301G\301\300W\203MH\262T\262\211\302>\204%�\303!B\262\202�\211\304\267\202\nW\2054�H\305=\203_�T\262W\205F�H\306=\203W�T\262\307B\262\202�\310B\262\202�\311B\262\202�\312B\262\202�\211W\203\203�H\313>\203\203�\211T\262\211W\203\231�H\314=\204\231�\211T\262\202\203�\211Y\203\250�\315B\262\202\356�\316#\317\320\211\321\211%\262T\262\211\301H\322=\203\316�\211\211\301\323I\266\202\333�\211\301H\323=\203\333�\324P\262\325B\262\211B\262\314B\262\210\210\202�T\262\326B\262\202�\327B\262S\262\202�\211\330=\203\301V\203\331B\262\202�\211\332=\203C=\2032\320B\262\202�T\262\332B\262\211B\262\202�\303!B\262\202�\333!\334P\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 242 125 254)) 42 47 "(?:.*/)?" ".*" "[^/]*" 46 (33 93) 93 "\\[" substring replace-regexp-in-string "\\\\" t 33 94 "\\" 91 "(?:" 41 44 124 92 vc-hg--parts-to-string "$"] 14 (#$ . 26627)])
#@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 (#$ . 27837)])
#@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 (#$ . 27994)])
#@20

(fn PATH PREFIX)
(defalias 'vc-hg--hgignore-add-path #[514 "\300G\301\211W\203�\211\302H!B\262\210\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 "$"] 9 (#$ . 28176)])
#@24

(fn HGIGNORE PREFIX)
(defalias 'vc-hg--slurp-hgignore-1 #[514 "\301\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\211\203�\314!\210\3158\262\3168\262EB\210m?\205\342�\214`\317 }\210\320\321!\204\333�\320\322!\203N�\301\262\202\333�\320\323!\203Z�\324\262\202\333�\320\325!\203j�\326\327\330!\"\210\202\333�\320\331!\203z�\324\327\330!\"\210\202\333�\320\332!\203\212�\301\327\330!\"\210\202\333�\320\333!\203\275�\327\330!\334\232\327\312!\335\336\"\203\243�\211\202\251�\337!P\340\203\265�\337!\202\267�\"\266\202\333�\320\341!\203\316�\342\343\327\305!C\"\210\202\333�\320\344!\203\333�\327\305!\"\210)\330y\210\2021�*\262\207" [vc-hg--hgignore-filenames vc-hg--hgignore-add-pcre generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 file-attributes insert-file-contents 5 7 point-at-eol 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" string-match "^/" file-name-directory vc-hg--slurp-hgignore-1 "[a-zA-Z0-9_]*:" signal vc-hg-unsupported-syntax ".*$"] 11 (#$ . 28443)])
#@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 (#$ . 29743)])
(put 'vc-hg--ignore-patterns-p 'compiler-macro 'vc-hg--ignore-patterns-p--cmacro)
#@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 (#$ . 30150)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put vc-hg--ignore-patterns-p side-effect-free error-free put vc-hg--ignore-patterns cl-deftype-satisfies] 5)
#@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 (#$ . 30473)])
(put 'vc-hg--ignore-patterns-repo 'compiler-macro 'vc-hg--ignore-patterns-repo--cmacro)
#@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 (#$ . 30952)])
(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 (#$ . 31345)])
(put 'vc-hg--ignore-patterns-ignore-patterns 'compiler-macro 'vc-hg--ignore-patterns-ignore-patterns--cmacro)
#@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 (#$ . 31879)])
(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 (#$ . 32305)])
(put 'vc-hg--ignore-patterns-file-sources 'compiler-macro 'vc-hg--ignore-patterns-file-sources--cmacro)
#@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 (#$ . 32824)])
(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\203=�\211@\304>\203&�\211AA\262\202�\305>A@\2034�\306\262\202�\307\310@\"\210\202�\210\311\312\313\306\306&\207" [plist-member :repo :ignore-patterns :file-sources (:repo :ignore-patterns :file-sources :allow-other-keys) :allow-other-keys nil error "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 (#$ . 33242)])
(put 'vc-hg--ignore-patterns-make 'compiler-macro 'vc-hg--ignore-patterns-make--cmacro)
#@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\203=�\211@\304>\203&�\211AA\262\202�\305>A@\2034�\306\262\202�\307\310@\"\210\202�\210\311\312$\207" [plist-member :repo :ignore-patterns :file-sources (:repo :ignore-patterns :file-sources :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:repo :ignore-patterns :file-sources)" record vc-hg--ignore-patterns] 9 (#$ . 34077)])
(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 (#$ . 34953)])
#@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\203K�\203K�\211A\262\242\211A@\3078\310@!\211\3118\262\3128\262\232\203C�\232\204F�\313\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 nil] 11 (#$ . 35496)])
#@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 "\302!>\204�\303\304\305D\"\210\306H\307\310\203,�\211\204,�\311\211A\262\242\"\262\202�)\207" [cl-struct-vc-hg--ignore-patterns-tags inhibit-changing-match-data type-of signal wrong-type-argument vc-hg--ignore-patterns 2 t nil string-match] 8 (#$ . 35949)])
#@39 Cached pre-parsed hg ignore patterns.
(defvar vc-hg--cached-ignore-patterns nil (#$ . 36411))
#@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 (#$ . 36511)])
#@13

(fn REPO)
(defalias 'vc-hg--read-repo-requirements #[257 "\300!\203\f�\301!\204�\302\303!\210\211\304P\305!\205=�\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\317\320!\210\321!\210\322\323ed\"!*\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*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte nil insert-file-contents-literally split-string buffer-substring-no-properties] 9 (#$ . 36942)])
#@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") (#$ . 37558))
#@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 (#$ . 37878)])
#@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 (#$ . 38197))
#@43

(fn DIRSTATE DIRSTATE-ATTR ASCII-FNAME)
(defalias 'vc-hg--cached-dirstate-search #[771 "\3018\262\3028\262\211\203F�\211A\262\242\232\203F�\211A\262\242\232\203F�\211A\262\242\232\203F�\211A\262\242\232\203F�\211A\262\242\202X�\303\"\257\211\262\207" [vc-hg--dirstate-scan-cache 5 7 vc-hg--raw-dirstate-search] 12 (#$ . 38433)])
#@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 "\302\211\211\211\211\203o�\303!\204o�\304!\262\303!\204o�\305!\211\262\203o�\306!\262\307!\2036�\310!\204:�\311\312!\210\313P\262\314!\211\262\203o�\315!\203o�\3168\262\317W\204o�\320\"\262\321\302\322\323#)\266\203\203s�\324\202\366�\325#\211@\314P!\326=\203\212�\327\202\364�\204\254�\211\203\254�\3301\247�\331\"\203\242�\332\202\243�\3330\202\364�\210\324\202\364�\203\270�\211\204\270�\334\202\364�\335\267\202\357�\3368\3378\3168\262\340\3418\262\342\"\343\"\203\345�\343\"\203\345�\344\202\346�\345\266\204\202\364�\346\202\364�\205\364�\324\266\203\207" [vc-hg-parse-hg-data-structures inhibit-changing-match-data 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:]]" t string-match 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 190 97 235)) 2 3 time-convert 5 integer eql up-to-date edited added] 16 (#$ . 38805)])
#@17

(fn FILE REV)
(defalias 'vc-hg-previous-revision #[514 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\211\314\315\316\317P&\303=\205)�edS{*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-hg-command t nil "id" "-n" "-r" "^"] 12 (#$ . 40335)])
#@17

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

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

(fn OLD NEW)
(defalias 'vc-hg-rename-file #[514 "\300\301\302\303%\207" [vc-hg-command nil 0 "mv"] 8 (#$ . 41465)])
#@76 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 (#$ . 41634)])
#@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 (#$ . 41817)])
(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 (#$ . 42009)])
#@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\216\304\305\306\307\310\311\312&\210)rq\210\313 +\207" [standard-output generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] vc-hg-command 1 nil "log" "--limit=1" "--template" "{desc}" buffer-string] 8]] 2 (#$ . 42159) nil])
(defvar vc-hg-log-edit-mode-map (byte-code "\300\301!\302\303\304#\210\211\207" [make-sparse-keymap "Hg-Log-Edit" define-key "" vc-hg-log-edit-toggle-amend] 5))
(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\313 !\210\307\302N\204-�\303\307\302\304\314!#\210\306\300!\204B�\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P�\303\300\302\304\320!#\210\303\311\321\322#\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 (lambda (#1=#:def-tmp-var) (defvar vc-hg-log-edit-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-hg-log-edit-mode'." (lambda (#1#) (defvar vc-hg-log-edit-mode-abbrev-table #1#)) define-abbrev-table nil "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
\325C#\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 (#$ . 44067) 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\305\306D\307\310\311\312\nBE\n\"\244%\207" [#[257 "\211\300\232\205�\301C\207" ["yes" "--amend"] 3 "\n\n(fn VALUE)"] apply vc-hg-command nil 0 "commit" "-m" log-edit-extract-headers ("Author" . "--user") ("Date" . "--date") "Amend"] 15 (#$ . 45145)])
#@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 (#$ . 45555)])
#@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 (#$ . 45790)])
#@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\211r\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 (#$ . 45983)])
#@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 (#$ . 46359)])
(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])
#@37

(fn FILE &optional CONTENTS-DONE)
(defalias 'vc-hg-revert #[513 "\211?\205*�\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\303\314\315\316\317\320\"!&*\262\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply vc-hg-command t "revert" append vc-switches hg revert] 13 (#$ . 47080)])
(defvar vc-hg-extra-menu-map (byte-code "\300 \211\207" [make-sparse-keymap] 2))
(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 (#$ . 47698)])
(put 'vc-hg-extra-fileinfo-p 'compiler-macro 'vc-hg-extra-fileinfo-p--cmacro)
#@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 (#$ . 48093)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put vc-hg-extra-fileinfo-p side-effect-free error-free put vc-hg-extra-fileinfo cl-deftype-satisfies] 5)
#@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 (#$ . 48408)])
(put 'vc-hg-extra-fileinfo->rename-state 'compiler-macro 'vc-hg-extra-fileinfo->rename-state--cmacro)
#@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 (#$ . 48918)])
(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 (#$ . 49327)])
(put 'vc-hg-extra-fileinfo->extra-name 'compiler-macro 'vc-hg-extra-fileinfo->extra-name--cmacro)
#@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 (#$ . 49827)])
(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\2037�\211@\303>\203 �\211AA\262\202
�\304>A@\203.�\305\262\202
�\306\307@\"\210\202
�\210\310\311\312\305\305&\207" [plist-member :rename-state :extra-name (:rename-state :extra-name :allow-other-keys) :allow-other-keys nil error "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 (#$ . 50231)])
(put 'make-vc-hg-extra-fileinfo 'compiler-macro 'make-vc-hg-extra-fileinfo--cmacro)
#@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\2037�\211@\303>\203 �\211AA\262\202
�\304>A@\203.�\305\262\202
�\306\307@\"\210\202
�\210\310\311#\207" [plist-member :rename-state :extra-name (:rename-state :extra-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:rename-state :extra-name)" record vc-hg-extra-fileinfo] 7 (#$ . 50975)])
(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 (#$ . 51582)])
(put 'vc-hg-create-extra-fileinfo 'compiler-macro 'vc-hg-create-extra-fileinfo--cmacro)
#@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 (#$ . 52032)])
(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\312D\"\210\313H\211\314\267\2024�\315\2025�\316\2025�\317\2025�\320\262\307!>\204G�\310\311\312D\"\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 (#$ . 52526)])
#@24

(fn UPDATE-FUNCTION)
(defalias 'vc-hg-after-dir-status #[257 "\301\302\301\211\211\211eb\210m\204\226�\303\301f\"A\262\304`\305\\\306 \"\262\204)�\301\262\202\220�\307\267\202H�\301\262\202\220�AA\211\310\311\312\n#\240\266\313\262\202\220�\211\203\202�\314=\203\202�\315\3058!>\204e�\316\317\311\3058D\"\210\3058\211\320\321I\266\310\311\322@#EB\262\301\262\202\220�\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 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (up-to-date 47 copy-rename-line 53)) record vc-hg-extra-fileinfo copied t removed type-of signal wrong-type-argument 1 renamed-from renamed-to] 13 (#$ . 53203)])
#@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\315\316\317!\320\"\321$!\207" [default-directory vc-hg-command async "status" "re:" "-I" "." "-mardu" "i" "-C" vc-exec-after make-byte-code 0 "\301\300!\207" vconcat vector [vc-hg-after-dir-status] 2] 13 (#$ . 54156)])
#@28

(fn NAME &rest COMMANDS)
(defalias 'vc-hg-dir-extra-header #[385 "\300\301\302#\300\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\315p\306\316%\210\317edS\"*\262\301\320#P\207" [propertize face font-lock-type-face generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply vc-hg-command nil buffer-substring-no-properties font-lock-variable-name-face] 11 (#$ . 54527)])
#@63 Generate extra status headers for a Mercurial tree.

(fn DIR)
(defalias 'vc-hg-dir-extra-headers #[257 "\211\301\302\303\"\304\301\305\306\307#\304\301\310\306\311#\260)\207" [default-directory vc-hg-dir-extra-header "Root       : " "root" "\n" "Branch     : " "id" "-b" "Tags       : " "-t"] 9 (#$ . 54991)])
#@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 (#$ . 55309)])
#@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 (#$ . 55515)])
#@63 Value of `compilation-error-regexp-alist' in *vc-hg* buffers.
(defvar vc-hg-error-regexp-alist '(("^M \$.+\$" 1 nil nil 0)) (#$ . 55721))
(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\"\"&\202\234�\313!\314\315\316!\"\317	B\nC\303C\203g�\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\307\332\333\334&\335\"\336$!\210)\337!)\266\204\262\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-byte-code "\301\211\203�\211@\306\307\303\310\304\242\310&\210A\266\202\202�\210\311\312!\210\313\314!\210\304\242\315\300\242\315\316\317\305\242\315#\316\320\321\322\323\324\304!\325\"\326\327%\301\330#\260\f\313\331!\210\302\313\332!\210\f\310\320\321\333\323\324\303!\334\"\335\336%\310F\211\207" vconcat vector [apply vc-do-command nil vc-compilation-mode hg make-local-variable compile-command " " mapconcat identity make-byte-code 257 "\301\300\242\302\303\304\302#R\207" vconcat vector [" && " " " mapconcat identity] 8 "\n\n(fn ARGS)" "" compilation-directory compilation-arguments "\300\207" [] 2 "\n\n(fn NAME-OF-MODE)"] 12 vc-set-async-update] 22 (#$ . 55999)])
#@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 (#$ . 57818) "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 (#$ . 58437) "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 (#$ . 58860)])
#@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 "\303B\304\305\"\306\307\206�\310	\n;\203\"�\nB\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 (#$ . 59449)])
#@13

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

${this.title}

Code Editor : vc-hg.elc