HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/vc/vc-hg.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\310\303&\210\312\341\314\315\342DD\343\320\344\310\303\306\345&	\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-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"] 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 (#$ . 2852)])
#@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 (#$ . 2947)])
#@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 (#$ . 3158)])
#@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\3131:\314\315\316\317E\n\"\320\305\321\305\322\323\322\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 get-buffer-create generate-new-buffer-name " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) append "TERM=dumb" "LANGUAGE=C" "HGPLAIN=1" process-file t "--config" "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] 15 (#$ . 3347)])
#@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&\210)rq\210\313 +0\202(\210\202+\206,\314\207" [standard-output (error) get-buffer-create generate-new-buffer-name " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] vc-hg-command 0 "parent" "--template" "{rev}" buffer-string "0"] 8 (#$ . 4471)])
(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 (#$ . 6564)])
#@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\2023\306\307\310\311\315\313\314&	\210)rq\210\316 +0\207\210\310\207" [standard-output (error) get-buffer-create generate-new-buffer-name " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] vc-hg-command 0 nil "log" "-f" "-l1" "--template" "-r" buffer-string] 13 (#$ . 7023)])
#@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 (#$ . 7472)])
#@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\227\321=\203P\322\262\323\262\324Q\202\227\325=\203d\326\262\327\262\330Q\202\227\331=\203x\332\262\333\262\330Q\202\227\334=\203\214\335\262\336\262\337Q\202\227\340\262\341\262\342Q\343\344\345
\346R%\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 "-" added "Locally added file" vc-locally-added-state "@" conflict "File contains conflicts after the last merge" vc-conflict-state "!" removed "File removed from the VC system" vc-removed-state missing "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 (#$ . 8009)])
(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 (#$ . 9549))
#@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" (#$ . 9647))
#@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 "\305!\210\306rq\210\307\310\311\312\205\313\314	\"C\205(\315\313\316\n\"D\244	\203<\317	\2054\320\321\n@D\"\202?\321D\244\f\244&*\207" [inhibit-read-only 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" append ("--graph") "--template"] 16 (#$ . 9940)])
(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\334\306\335!\210\336\306\337!\210,\340=\203\201-A@\202\202\341\306\342!\210\343\",\340=\203\234\307.\306\344!\210\345$\306\346!\210,\340=\203\264-A@\343-8BC\202\271\347&\350\"&)\351\352!\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 "\\`a\\`" 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 vc-log-view-type vc-hg-root-log-format truncate-lines] 5 (#$ . 11937) nil])
(autoload 'vc-switches "vc")
#@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 (#$ . 14138)])
#@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 (#$ . 14575)])
#@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\316\317\320&\210\321\322ed\"!*\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 "log" "--template" "{rev} " split-string buffer-substring-no-properties] 9 (#$ . 15010)])
#@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 (#$ . 15459)])
#@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 (#$ . 15899)])
(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])
#@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 (#$ . 16965)])
#@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%)\207" [default-directory vc-hg-command nil 0 "update"] 9 (#$ . 17243)])
(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)
#@58 Read and advance over an unsigned byte.
Return a fixnum.
(defalias 'vc-hg--read-u8 #[0 "\300f\300u\210\207" [nil] 2 (#$ . 17922)])
(put 'vc-hg--read-u8 'byte-optimizer 'byte-compile-inline-expand)
#@112 Read and advance over a big-endian unsigned 32-bit integer.
Return a fixnum; on overflow, result is undefined.
(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 (#$ . 18126)])
(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#\2060ee\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 (#$ . 18474)])
(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 (#$ . 19833)])
#@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 (#$ . 19978)])
#@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\2036H\311\267\202*\312\313	#\203:\314\315	C\"\210\202.\211\316=\203F\317\262\202.\211\320=\203X\321\262\211B\262\202.\211\322=\203t\307=\203j\323\262\202.\314\315	C\"\210\202.\211\324=\203\203\325B\262\202.\211\326>\203\230\316B\262\211B\262\202.\211B\262\202.\211\327>\203\261\314\315	C\"\210\202\323\211>\203\306\316B\262\211B\262\202\323\211	\236A\206\316\211B\262\310\262\202.\211B\262\211\316=\203\351\330\202\352\331\262\202.\211\332>\203\374\314\315	C\"\210\211	\236A\206\211B\262\330\262\202.\211B\262\211\333\267\202.\331\262\202.\310\262\202.\202.\334\335!\210T\262\210\202\310=\204C\314\315C\"\210\336\203N\337\202O\340\341!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 161 charclass-enter 217 charclass-backslash 239 charclass 271)) string-match "}\\\\\\?\\|(\\?[^:]" signal vc-hg-unsupported-syntax 92 backslash 91 charclass-enter 94 t 36 "\\(?:$\\|/\\)" (124 40 41) (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 283 93 289)) error "invalid state" "^" "" "\\(?:.*/\\)?" vc-hg--parts-to-string] 12 (#$ . 20262)])
#@74 Transform a glob pattern into a Mercurial file pattern regex.

(fn GLOB)
(defalias 'vc-hg--glob-to-pcre #[257 "\300\301G\301\300W\203cH\262T\262\211\302>\204%\303!B\262\202\211\304=\203gW\2054H\304=\203_T\262W\205FH\305=\203WT\262\306B\262\202\307B\262\202\310B\262\202\211\311=\203u\312B\262\202\211\313=\203\374\211W\203\217H\314>\203\217\211T\262\211W\203\245H\315=\204\245\211T\262\202\217\211Y\203\264\316B\262\202\370O\317\320\211\321\211%\262T\262\211\301H\322=\203\330\211\211\301\323I\266\202\345\211\301H\323=\203\345\324P\262\313B\262\211B\262\315B\262\210\210\202\211\325=\203T\262\326B\262\202\211\327=\203 \330B\262S\262\202\211\331=\2034\301V\2034\332B\262\202\211\333=\203Y=\203H\320B\262\202T\262\333B\262\211B\262\202\303!B\262\202\334!\335P\207" [nil 0 (42 63 91 123 125 44 92) vc-hg--escape-for-pcre 42 47 "(?:.*/)?" ".*" "[^/]*" 63 46 91 (33 93) 93 "\\[" replace-regexp-in-string "\\\\" t 33 94 "\\" 123 "(?:" 125 41 44 124 92 vc-hg--parts-to-string "$"] 14 (#$ . 22197)])
#@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 (#$ . 23338)])
#@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 (#$ . 23495)])
#@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 (#$ . 23677)])
#@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\3168EB\210m?\205\334\214`\317 }\210\320\321!\204\325\320\322!\203H\301\262\202\325\320\323!\203T\324\262\202\325\320\325!\203d\326\327\330!\"\210\202\325\320\331!\203t\324\327\330!\"\210\202\325\320\332!\203\204\301\327\330!\"\210\202\325\320\333!\203\267\327\330!\334\232\327\312!\335\336\"\203\235\211\202\243\337!P\340\203\257\337!\202\261\"\266\202\325\320\341!\203\310\342\343\327\305!C\"\210\202\325\320\344!\203\325\327\305!\"\210)\330y\210\202+*\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 (#$ . 23944)])
#@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 (#$ . 25232)])
(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 (#$ . 25639)])
(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 (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 (#$ . 25962)])
(put 'vc-hg--ignore-patterns-repo 'compiler-macro 'vc-hg--ignore-patterns-repo--cmacro)
#@131 Access slot "repo" of `(vc-hg--ignore-patterns (:copier nil) (:constructor vc-hg--ignore-patterns-make))' 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 (#$ . 26434)])
(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 (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 (#$ . 26886)])
(put 'vc-hg--ignore-patterns-ignore-patterns 'compiler-macro 'vc-hg--ignore-patterns-ignore-patterns--cmacro)
#@142 Access slot "ignore-patterns" of `(vc-hg--ignore-patterns (:copier nil) (:constructor vc-hg--ignore-patterns-make))' 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 (#$ . 27413)])
(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 (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 (#$ . 27898)])
(put 'vc-hg--ignore-patterns-file-sources 'compiler-macro 'vc-hg--ignore-patterns-file-sources--cmacro)
#@139 Access slot "file-sources" of `(vc-hg--ignore-patterns (:copier nil) (:constructor vc-hg--ignore-patterns-make))' 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 (#$ . 28410)])
(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 (#$ . 28887)])
(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 (#$ . 29722)])
(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 (#$ . 30598)])
#@78 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\203E\203E\211A\262\242\211A@\3078\310@!\3118\3128\232\203=\232\204@\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 (#$ . 31141)])
#@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 (#$ . 31578)])
#@11 

(fn TS)
(defalias 'vc-hg--time-to-fixnum #[257 "\211@\300_A@\\\207" [65536] 3 (#$ . 32040)])
#@39 Cached pre-parsed hg ignore patterns.
(defvar vc-hg--cached-ignore-patterns nil (#$ . 32142))
#@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 (#$ . 32242)])
#@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 (#$ . 32673)])
#@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") (#$ . 33289))
#@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 (#$ . 33609)])
#@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 (#$ . 33928))
#@43 

(fn DIRSTATE DIRSTATE-ATTR ASCII-FNAME)
(defalias 'vc-hg--cached-dirstate-search #[771 "\3018\3028\211\203@\211A\262\242\232\203@\211A\262\242\232\203@\211A\262\242\232\203@\211A\262\242\232\203@\211A\262\242\202R\303\"\257\211\262\207" [vc-hg--dirstate-scan-cache 5 7 vc-hg--raw-dirstate-search] 12 (#$ . 34164)])
#@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 "\303\211\211\211\211\203r\304!\204r\305!\262\304!\204r\306!\211\262\203r\307!\262\310!\2036\311!\204:\312\313!\210\314P\262\315!\211\262\203r\316!\203r\3178\320W\204r	\321W\204r\322\"\262\323\303\324\325#)\266\203\203v\326\202\370\327#\211@\315P!\330=\203\215\331\202\366\204\257\211\203\257\3321\252\333\"\203\245\334\202\246\3350\202\366\210\326\202\366\203\273\211\204\273\336\202\366\337=\203\347\3408\3418\3178\342\3438!\344\"\203\341\344\"\203\341\345\202\342\346\266\204\202\366\347=\203\361\350\202\366\205\366\326\266\203\207" [vc-hg-parse-hg-data-structures most-positive-fixnum 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 4294967295 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 110 2 3 vc-hg--time-to-fixnum 5 eql up-to-date edited 97 added] 16 (#$ . 34524)])
#@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 (#$ . 35992)])
#@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 (#$ . 36351)])
#@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 (#$ . 36861)])
#@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 (#$ . 37122)])
#@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 (#$ . 37291)])
#@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 (#$ . 37474)])
(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 (#$ . 37666)])
#@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\307	\"\244%\207" [apply vc-hg-command nil 0 "commit" "-m" log-edit-extract-headers (("Author" . "--user") ("Date" . "--date"))] 12 (#$ . 37815)])
#@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 (#$ . 38127)])
#@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 (#$ . 38362)])
#@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\fpq\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 (#$ . 38555)])
#@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 (#$ . 38931)])
(defalias 'vc-hg-find-file-hook #[0 "\2055\301\302P!\2055\303\304\"\305>\2055\212eb\210\306\307\310\311#)\2055\312\304\313#\210\314 \210\315\316\317\310\311$\210\320!\207" [buffer-file-name file-exists-p ".orig" vc-file-getprop 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\303\313$*\262\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 "revert"] 9 (#$ . 39712)])
(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 (#$ . 40269)])
(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 (#$ . 40664)])
(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 (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 (#$ . 40979)])
(put 'vc-hg-extra-fileinfo->rename-state 'compiler-macro 'vc-hg-extra-fileinfo->rename-state--cmacro)
#@199 Access slot "rename-state" of `(vc-hg-extra-fileinfo (:copier nil) (:constructor vc-hg-create-extra-fileinfo (rename-state extra-name)) (:conc-name 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 (#$ . 41482)])
(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 (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 (#$ . 42012)])
(put 'vc-hg-extra-fileinfo->extra-name 'compiler-macro 'vc-hg-extra-fileinfo->extra-name--cmacro)
#@197 Access slot "extra-name" of `(vc-hg-extra-fileinfo (:copier nil) (:constructor vc-hg-create-extra-fileinfo (rename-state extra-name)) (:conc-name 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 (#$ . 42505)])
(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 (#$ . 43030)])
(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 (#$ . 43774)])
(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 (#$ . 44381)])
(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 (#$ . 44831)])
(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 (#$ . 45325)])
#@24 

(fn UPDATE-FUNCTION)
(defalias 'vc-hg-after-dir-status #[257 "\301\302\301\211\211\211eb\210m\204\234\303\301f\"A\262\304`\305\\\306 \"\262\204)\301\262\202\226\307=\2035\301\262\202\226\310=\203NAA\211\311\312\313\n#\240\266\314\262\202\226\211\203\210\315=\203\210\316\3058!>\204k\317\320\312\3058D\"\210\3058\211\321\322I\266\311\312\323@#EB\262\301\262\202\226\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 up-to-date copy-rename-line record vc-hg-extra-fileinfo copied t removed type-of signal wrong-type-argument 1 renamed-from renamed-to] 13 (#$ . 46002)])
#@34 

(fn DIR FILES UPDATE-FUNCTION)
(defalias 'vc-hg-dir-status-files #[771 "\300p\301\302\303\205\f\304P\305&\210\306\307\310\311\312\313!\314\"\315$!\207" [vc-hg-command async "status" "-mardu" "i" "-C" vc-exec-after make-byte-code 0 "\301\300!\207" vconcat vector [vc-hg-after-dir-status] 2] 10 (#$ . 46870)])
#@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 (#$ . 47193)])
#@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 (#$ . 47657)])
#@31 

(fn BUFFER REMOTE-LOCATION)
(defalias 'vc-hg-log-incoming #[514 "\300\301\302\303\304\305\230?\205&\207" [vc-hg-command 1 nil "incoming" "-n" ""] 10 (#$ . 47975)])
#@31 

(fn BUFFER REMOTE-LOCATION)
(defalias 'vc-hg-log-outgoing #[514 "\300\301\302\303\304\305\230?\205&\207" [vc-hg-command 1 nil "outgoing" "-n" ""] 10 (#$ . 48155)])
#@63 Value of `compilation-error-regexp-alist' in *vc-hg* buffers.
(defvar vc-hg-error-regexp-alist nil (#$ . 48335))
(byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload vc-do-async-command "vc-dispatcher" log-view-get-marked "log-view"] 3)
#@287 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.
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 &optional OBSOLETE)
(defalias 'vc-hg--pushpull #[770 "C\302\203$\303 \211\262\203$\304\305\302\306\302\242\304\307\310\311\n\"\"&\202\256\312!\313\314\315!\"	C\242\316\232\2057\317C\203}\211\320\321\313\322\n\242\"\313\323\242\f\242\242\204X\324\202a\325\326\327\242\325#P$\330#\325\331#\240\210\242@\240\210\242A@\240\210\211\242AA\240\210\304\332\242\n\242\242&\210rq\210\333\334\306\335\336\337\n\n\n\n%\340\"\341$!\210)\342!\266\204\262\207" [default-directory 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 "pull" ("-u") split-string read-shell-command "Hg %s command: " "%s %s%s" #1="" " " mapconcat identity vc-hg-history t vc-do-async-command vc-exec-after make-byte-code "\306\307!\210\310\305!\210\303\242\311\300\242\311\304\242\203\312\313\304\242\311#\202\314\260\310\315!\210\301
\310\316!\210
\317\320\321\322\323\324\302!\325\"\326\327%\317F\211\207" vconcat vector [compile-command vc-compilation-mode hg make-local-variable " " mapconcat identity #1# compilation-directory compilation-arguments nil make-byte-code 257 "\300\207" vconcat vector [] 2 "\n\n(fn NAME-OF-MODE)"] 8 vc-set-async-update] 22 (#$ . 48586)])
#@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!#\207" [vc-hg--pushpull "pull" called-interactively-p interactive] 6 (#$ . 50170) "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!#\207" [vc-hg--pushpull "push" called-interactively-p interactive] 6 (#$ . 50720) "P"])
#@94 Merge incoming changes into the current working directory.
This runs the command "hg merge".
(defalias 'vc-hg-merge-branch #[0 "\302!\303\304\305!\"\306	\307$\210r\211q\210\310\311!\210)\312!\207" [default-directory vc-hg-program vc-hg-root format "*vc-hg : %s*" expand-file-name vc-do-async-command "merge" vc-exec-after #[0 "\300\301!\207" [vc-compilation-mode hg] 2] vc-set-async-update] 7 (#$ . 51135)])
#@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 "\302\303\206\304	;\203	B\202\305	\"&\207" [vc-hg-program vc-hg-global-switches apply vc-do-command "*vc*" append] 13 (#$ . 51555)])
#@13 

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