;ELC   
;;; Compiled
;;; in Emacs version 26.3
;;; 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\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\310\311\312\313\314\306\315\316&\210\317\320\321\322\323DD\324\325\326%\210\317\327\321\322\330DD\331\325\332%\210\317\333\321\322\334DD\335\325\336%\210\317\337\321\322\340DD\341\325\342%\210\317\343\321\322\344DD\345\325\346%\210\317\347\321\322\350DD\351\325\352%\210\317\353\321\322\354DD\355\325\356%\210\317\357\321\322\360DD\361\325\362%\210\317\363\321\322\364DD\365\325\366%\210\317\367\321\322\370DD\371\325\372%\210\317\373\321\322\374DD\375\325\376%\210\317\377\321\322\201@ DD\201A \325\201B %\210\317\201C \321\322\201D DD\201E \325\201F %\210\317\201G \321\322\201H DD\201I \325\201J %\207" [require bindat cl-lib diff-mode seq subr-x vc vc-dir custom-declare-group vc-hgcmd nil "Settings for VC mercurial commandserver backend." :group :prefix "vc-hgcmd-" custom-declare-variable vc-hgcmd-hg-executable funcall function #[0 "\300\207" [#1="hg"] 1 #1#] "Hg executable." :type (string) vc-hgcmd-cmdserver-config-options #[0 "\300\207" [("ui.interactive=True" "ui.editor=emacsclient -a emacs" "extensions.shelve=")] 1] "Config options for command server.\nSpecify options in form <option>=<value>.  It will be passed to hg with --config argument." (repeat string) vc-hgcmd-cmdserver-process-environment #[0 "\300\207" [nil] 1] "Environment variables for hg command server process." (repeat string) vc-hgcmd-pull-args #[0 "\300\207" [#2="--update"] 1 #2#] "Arguments for pull command.\nThis arguments will be used for each pull command.\nYou can edit this arguments for specific pull command by invoke `vc-pull' with prefix argument." (string) vc-hgcmd-push-alternate-args #[0 "\300\207" [#3="--new-branch"] 1 #3#] "Initial value for hg push arguments when asked." (string) vc-hgcmd-log-edit-message-function #[0 "\300\207" [nil] 1] "Function to return string that will be used as initial value for log edit.\nFirst param will be commit message computed by backend: 'merged <branch>' if\nnamed branch was merged to current branch or 'merged <node>' if two heads on\nsame branch was merged." (choice (function) (const :tag "Default commit message" nil)) vc-hgcmd-dir-show-shelve #[0 "\300\207" [t] 1] "Show current shelves in `vc-dir' buffer." (boolean) vc-hgcmd-short-log-graph #[0 "\300\207" [t] 1] "Use graph in short log." (boolean) vc-hgcmd-short-log-format #[0 "\300\207" [("{rev}:{branch}: {author|person} {date|shortdate} {desc|firstline}\\n" "^\\(?:[-o@_x*+|: /\\]*\\)\\(%s\\):\\([^:]+\\): \\(.*?\\) \\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\)" ((1 'log-view-message) (2 'change-log-file) (3 'change-log-name) (4 'change-log-date)))] 1] "Log template when viewing short log.\nThis should be a list (TEMPLATE REGEXP KEYWORDS), where TEMPLATE\nis the \"--template\" argument string to pass to \"hg log\",\nREGEXP is a regular expression matching the resulting\noutput, and KEYWORDS is a list of `font-lock-keywords' for\nhighlighting the Log View buffer.\n\nREGEXP will be used to find revision with specific\nnumber in log view, so write \"%s\" instead of \"[0-9]+\"\nas revision number.\n\nNote that revision number must be group 1." (list string regexp (repeat sexp)) vc-hgcmd-checkin-switches #[0 "\300\207" [t] 1] "A string or list of strings specifying extra switches for checkin.\nThese are passed to the \"hg commit\" command." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#4="") string)) vc-hgcmd-checkout-switches #[0 "\300\207" [t] 1] "A string or list of strings specifying extra switches for checkout.\nThese are passed to the \"hg cat\" command." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#4#) string)) vc-hgcmd-register-switches #[0 "\300\207" [t] 1] "A string or list of strings; extra switches for registering a file.\nThese are passed to the \"hg add\" command." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#4#) string)) vc-hgcmd-diff-switches #[0 "\300\207" [t] 1] "A string or list of strings specifying switches for diff.\nThese are passed to the \"hg diff\" command." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#4#) string)) vc-hgcmd-annotate-switches #[0 "\300\207" [t] 1] "A string or list of strings specifying switches for annotate.\nThese are passed to the \"hg annotate\" command." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#4#) string))] 8)
(defvar vc-hgcmd-process-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-hgcmd-process-mode-hook variable-documentation put "Hook run after entering Hgcmd process 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-hgcmd-process-mode-map definition-name vc-hgcmd-process-mode] 4)
(defvar vc-hgcmd-process-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\317#\207" [vc-hgcmd-process-mode-abbrev-table vc-hgcmd-process-mode-map variable-documentation put purecopy "Keymap for `vc-hgcmd-process-mode'." boundp vc-hgcmd-process-mode-syntax-table definition-name vc-hgcmd-process-mode (lambda (#1=#:def-tmp-var) (defvar vc-hgcmd-process-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-hgcmd-process-mode'." (lambda (#1#) (defvar vc-hgcmd-process-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-hgcmd-process-mode'." derived-mode-parent] 5)
#@178 Major mode for hg cmdserver process

This mode runs the hook `vc-hgcmd-process-mode-hook', as the final or penultimate step
during initialization.

\{vc-hgcmd-process-mode-map}
(defalias 'vc-hgcmd-process-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210\315 \210\316\317!\210\307\320!\307)\321\322!\207" [delay-mode-hooks major-mode mode-name vc-hgcmd-process-mode-map vc-hgcmd-process-mode-syntax-table vc-hgcmd-process-mode-abbrev-table make-local-variable t kill-all-local-variables vc-hgcmd-process-mode "Hgcmd process" use-local-map set-syntax-table hack-dir-local-variables-non-file-buffer set-buffer-multibyte nil abbreviate-file-name run-mode-hooks vc-hgcmd-process-mode-hook local-abbrev-table buffer-undo-list default-directory list-buffers-directory buffer-read-only] 2 (#$ . 6412) nil])
(defvar vc-hgcmd-output-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\211\207" [special-mode-map make-sparse-keymap set-keymap-parent define-key "g" nil] 5))
(defvar vc-hgcmd-output-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-hgcmd-output-mode-hook variable-documentation put "Hook run after entering Hgcmd output 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-hgcmd-output-mode-map definition-name vc-hgcmd-output-mode] 4)
(defvar vc-hgcmd-output-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-hgcmd-output-mode-abbrev-table vc-hgcmd-output-mode-map variable-documentation put purecopy "Keymap for `vc-hgcmd-output-mode'." boundp vc-hgcmd-output-mode-syntax-table definition-name vc-hgcmd-output-mode (lambda (#1=#:def-tmp-var) (defvar vc-hgcmd-output-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-hgcmd-output-mode'." (lambda (#1#) (defvar vc-hgcmd-output-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-hgcmd-output-mode'." derived-mode-parent special-mode] 5)
#@237 Major mode for hg output

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

\{vc-hgcmd-output-mode-map}
(defalias 'vc-hgcmd-output-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 \210\306\332!\210\307\211\333 !!)\334\335!\207" [delay-mode-hooks major-mode mode-name vc-hgcmd-output-mode-map vc-hgcmd-output-mode-syntax-table vc-hgcmd-output-mode-abbrev-table make-local-variable t special-mode vc-hgcmd-output-mode "Hgcmd output" 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 hack-dir-local-variables-non-file-buffer window-point-insertion-type abbreviate-file-name run-mode-hooks vc-hgcmd-output-mode-hook local-abbrev-table buffer-undo-list default-directory list-buffers-directory] 6 (#$ . 8691) nil])
(defvar vc-hgcmd--process-buffers-by-dir (make-hash-table :test 'equal))
#@76 compiler-macro for inlining `vc-hgcmd--command-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hgcmd--command-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hgcmd--command-p (and (memq (type-of cl-x) cl-struct-vc-hgcmd--command-tags) t)) nil] 9 (#$ . 9976)])
(put 'vc-hgcmd--command-p 'compiler-macro 'vc-hgcmd--command-p--cmacro)
#@13 

(fn CL-X)
(defalias 'vc-hgcmd--command-p #[257 "\301!>\205	 \302\207" [cl-struct-vc-hgcmd--command-tags type-of t] 3 (#$ . 10352)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put vc-hgcmd--command-p side-effect-free error-free put vc-hgcmd--command cl-deftype-satisfies] 5)
#@82 compiler-macro for inlining `vc-hgcmd--command-command'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hgcmd--command-command--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hgcmd--command-command (or (vc-hgcmd--command-p cl-x) (signal 'wrong-type-argument (list 'vc-hgcmd--command cl-x))) (aref cl-x 1)) nil] 9 (#$ . 10655)])
(put 'vc-hgcmd--command-command 'compiler-macro 'vc-hgcmd--command-command--cmacro)
#@86 Access slot "command" of `(vc-hgcmd--command (:copier nil))' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hgcmd--command-output-buffer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hgcmd--command-output-buffer (or (vc-hgcmd--command-p cl-x) (signal 'wrong-type-argument (list 'vc-hgcmd--command cl-x))) (aref cl-x 2)) nil] 9 (#$ . 11499)])
(put 'vc-hgcmd--command-output-buffer 'compiler-macro 'vc-hgcmd--command-output-buffer--cmacro)
#@92 Access slot "output-buffer" of `(vc-hgcmd--command (:copier nil))' struct CL-X.

(fn CL-X)
(defalias 'vc-hgcmd--command-output-buffer #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-vc-hgcmd--command-tags type-of signal wrong-type-argument vc-hgcmd--command 2] 5 (#$ . 11980)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-hgcmd--command-output-buffer side-effect-free t] 4)
#@85 compiler-macro for inlining `vc-hgcmd--command-skip-error'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hgcmd--command-skip-error--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hgcmd--command-skip-error (or (vc-hgcmd--command-p cl-x) (signal 'wrong-type-argument (list 'vc-hgcmd--command cl-x))) (aref cl-x 3)) nil] 9 (#$ . 12391)])
(put 'vc-hgcmd--command-skip-error 'compiler-macro 'vc-hgcmd--command-skip-error--cmacro)
#@89 Access slot "skip-error" of `(vc-hgcmd--command (:copier nil))' struct CL-X.

(fn CL-X)
(defalias 'vc-hgcmd--command-skip-error #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-vc-hgcmd--command-tags type-of signal wrong-type-argument vc-hgcmd--command 3] 5 (#$ . 12857)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-hgcmd--command-skip-error side-effect-free t] 4)
#@86 compiler-macro for inlining `vc-hgcmd--command-result-code'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hgcmd--command-result-code--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hgcmd--command-result-code (or (vc-hgcmd--command-p cl-x) (signal 'wrong-type-argument (list 'vc-hgcmd--command cl-x))) (aref cl-x 4)) nil] 9 (#$ . 13259)])
(put 'vc-hgcmd--command-result-code 'compiler-macro 'vc-hgcmd--command-result-code--cmacro)
#@90 Access slot "result-code" of `(vc-hgcmd--command (:copier nil))' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hgcmd--command-wait--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hgcmd--command-wait (or (vc-hgcmd--command-p cl-x) (signal 'wrong-type-argument (list 'vc-hgcmd--command cl-x))) (aref cl-x 5)) nil] 9 (#$ . 14135)])
(put 'vc-hgcmd--command-wait 'compiler-macro 'vc-hgcmd--command-wait--cmacro)
#@83 Access slot "wait" of `(vc-hgcmd--command (:copier nil))' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hgcmd--command-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hgcmd--command-callback (or (vc-hgcmd--command-p cl-x) (signal 'wrong-type-argument (list 'vc-hgcmd--command cl-x))) (aref cl-x 6)) nil] 9 (#$ . 14955)])
(put 'vc-hgcmd--command-callback 'compiler-macro 'vc-hgcmd--command-callback--cmacro)
#@87 Access slot "callback" of `(vc-hgcmd--command (:copier nil))' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hgcmd--command-callback-args--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hgcmd--command-callback-args (or (vc-hgcmd--command-p cl-x) (signal 'wrong-type-argument (list 'vc-hgcmd--command cl-x))) (aref cl-x 7)) nil] 9 (#$ . 15807)])
(put 'vc-hgcmd--command-callback-args 'compiler-macro 'vc-hgcmd--command-callback-args--cmacro)
#@92 Access slot "callback-args" of `(vc-hgcmd--command (:copier nil))' struct CL-X.

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

(fn CL-WHOLE &cl-quote &key COMMAND OUTPUT-BUFFER SKIP-ERROR RESULT-CODE WAIT CALLBACK CALLBACK-ARGS)
(defalias 'make-vc-hgcmd--command--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\211\203Y \211@\310>\203A \211AA\262\202. \311	>A@\203P \312\262\202. \313\314@\"\210\202. \210\315\316\317\312\f\312\f\f\f\f\f\f\f&\f\207" [plist-member :command :output-buffer :skip-error :result-code :wait :callback :callback-args (:command :output-buffer :skip-error :result-code :wait :callback :callback-args :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:command :output-buffer :skip-error :result-code :wait :callback :callback-args)" cl--defsubst-expand (command output-buffer skip-error result-code wait callback callback-args) (cl-block make-vc-hgcmd--command (record 'vc-hgcmd--command command output-buffer skip-error result-code wait callback callback-args))] 22 (#$ . 16700)])
(put 'make-vc-hgcmd--command 'compiler-macro 'make-vc-hgcmd--command--cmacro)
#@138 Constructor for objects of type `vc-hgcmd--command'.

(fn &key COMMAND OUTPUT-BUFFER SKIP-ERROR RESULT-CODE WAIT CALLBACK CALLBACK-ARGS)
(defalias 'make-vc-hgcmd--command #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\211\203Y \211@\310>\203A \211AA\262\202. \311	>A@\203P \312\262\202. \313\314@\"\210\202. \210\315\316&\207" [plist-member :command :output-buffer :skip-error :result-code :wait :callback :callback-args (:command :output-buffer :skip-error :result-code :wait :callback :callback-args :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:command :output-buffer :skip-error :result-code :wait :callback :callback-args)" record vc-hgcmd--command] 17 (#$ . 17824)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put make-vc-hgcmd--command side-effect-free t cl-struct-define vc-hgcmd--command nil cl-structure-object record ((cl-tag-slot) (command) (output-buffer) (skip-error) (result-code) (wait) (callback) (callback-args)) cl-struct-vc-hgcmd--command-tags] 11)
#@32 Current running hgcmd command.
(defvar vc-hgcmd--current-command nil (#$ . 18953))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local vc-hgcmd--current-command put permanent-local t] 4)
#@49 Encoding that used for cmdserver communication.
(defvar vc-hgcmd--encoding 'utf-8 (#$ . 19170))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local vc-hgcmd--encoding put permanent-local t] 4)
#@42 Get project name based on DIR.

(fn DIR)
(defalias 'vc-hgcmd--project-name #[257 "\300\301!!\207" [file-name-nondirectory directory-file-name] 4 (#$ . 19393)])
#@41 Parse process output in current buffer.
(defalias 'vc-hgcmd--read-output #[0 "\302b\210\303\304\305\306#\205\200 `\307V\203' \310\311\302`\312Z\"\"\306\302`\312Z|\210\313)B\207\314\315\311\302\307\"\"\316\317\"\316\320\"\321>\203n d\312\\V\205~ \311\307\211\\\"\306\302\307\\|\210\211\322=\203c \316\314\323\"\324\"\202g \310\")B\262\202~ \325>\205~ \306\302\307|\210)B\266\203\207" [vc-hgcmd--encoding inhibit-read-only 1 search-forward-regexp "[oedrLI] \\(.\\|\n\\)\\{3\\}" nil t 6 decode-coding-string buffer-substring-no-properties 5 111 bindat-unpack ((c byte) (d u32)) bindat-get-field c d (111 101 100 114) 114 ((f u32)) f (73 76)] 9 (#$ . 19560)])
#@59 Prepare binary DATA to be sent to tty process.

(fn DATA)
(defalias 'vc-hgcmd--data-for-tty #[257 "\300\301\302\303\"\304#\207" [mapconcat identity mapcar #[257 "\300\301!P\207" ["" char-to-string] 4 "\n\n(fn C)"] ""] 6 (#$ . 20241)])
#@163 Filter OUTPUT for hg cmdserver PROCESS.
Insert output to process buffer and check if amount of data is enought to parse it to output buffer.

(fn PROCESS OUTPUT)
(defalias 'vc-hgcmd--cmdserver-process-filter #[514 "\306!\307!\205\243r\211q\210db\210\310c\210)	\206 \311\312\"\313 \211\205\230\211@A\314>\203y \315=\203J \316!\n>\204D \317\320\321D\"\210\322H\204\225\316!\n>\204Z \317\320\321D\"\210\323H\211;\204h \307!\203u r\211q\210\310db\210c\210*\210\202\225\324=\203\373 \316!\n>\204\217 \317\320\321D\"\210\211\325I\266\326\316!\n>\204\250 \317\320\321D\"\210\323H\316!\n>\204\273 \317\320\321D\"\210\327H\316!\n>\204\317 \317\320\321D\"\210\330H;\204\335 \307!\203\366 rq\210\326\203\365 \211\203\362 !\210\202\365  \210)\266\202\225\331=\203\216\316!\n>\204\317\320\321D\"\210\323H\211;\204\307!\203\212\332!\210\333!\310\33417\326\335\336!)0\202=\210\310\337\340!\326)\211\203Srq\210\310db\210\211\341\261\210*\342\n!\203\210\343\n\205f\344!\341P\345\346\347GBC\"P\203z\350!\202{\211\266\202\"\210\203\210\351\n!\210\266\210\202\225\311\352\353\"!\210\266\310\262\205\240\202 \262)\207" [inhibit-read-only vc-hgcmd--current-command cl-struct-vc-hgcmd--command-tags mode-line-process inhibit-quit quit-flag process-buffer buffer-live-p t error "Hgcmd process output without command: %s" vc-hgcmd--read-output (111 101 100) 101 type-of signal wrong-type-argument vc-hgcmd--command 3 2 114 4 nil 6 7 76 display-buffer process-tty-name (quit) read-string "Hgcmd interactive input: " eval (ignore nil) "\n" process-live-p process-send-string vc-hgcmd--encode-command-arg bindat-pack ((l u32)) l vc-hgcmd--data-for-tty process-send-eof format "Hgcmd unhandled channel %c"] 17 (#$ . 20486)])
#@95 Will listen for PROCESS events and kill process buffer if process killed.

(fn PROCESS EVENT)
(defalias 'vc-hgcmd--cmdserver-process-sentinel #[514 "\301!?\205& \302!\303!\205$ r\211q\210\203  \304\305\306\307\"\"\210)\310!\262\207" [vc-hgcmd--current-command process-live-p process-buffer buffer-live-p vc-hgcmd--cmdserver-process-filter bindat-pack ((c byte) (l u32) (v u32)) ((c . 114) (l . 4) (v . 255)) kill-buffer] 8 (#$ . 22291)])
#@15 Get repo dir.
(defalias 'vc-hgcmd--repo-dir #[0 "\301\302!\206 !\207" [default-directory abbreviate-file-name vc-hgcmd-root] 3 (#$ . 22742)])
#@66 Get hg cmdserver process buffer for repo in `default-directory'.
(defalias 'vc-hgcmd--process-buffer #[0 "\306 \307\"\310!\205 \211\262\206\274 \311r\312\313\314!\315Q!q\210\316 \210\317\320\n#\321\3221H \323\324\325\314	!Pp\326\3271\"\330\331\332E\244%0\202J \210\321\333!\203\266 \334\335\"\210\336\321\"\210\337\340\211#\210\341 \333!\203\202 \211\203t \342\343A\"\204\202 \344\345\321\346$\210\341 \262\202b \333!\203\265 \211A\347\350\"\205\230 \351\352\353\"\227!\211\203\251 \211\354=\203\246 \355\202\247 \2112\266\356\357\"\210\334\360\"\210\210*\210p)#\207" [vc-hgcmd--process-buffers-by-dir default-directory vc-hgcmd-cmdserver-process-environment process-environment process-connection-type vc-hgcmd-hg-executable vc-hgcmd--repo-dir gethash buffer-live-p puthash generate-new-buffer " *hgcmd process: " vc-hgcmd--project-name "*" vc-hgcmd-process-mode append ("LANGUAGE=C") nil (error) apply start-file-process "vc-hgcmd process: " mapcan #[257 "\300D\207" ["--config"] 3 "\n\n(fn OPTION)"] "serve" "--cmdserver" "pipe" process-live-p set-process-sentinel ignore set-process-query-on-exit-flag set-process-coding-system no-conversion vc-hgcmd--read-output string-prefix-p "capabilities: " accept-process-output 0.1 t string-match "\\bencoding: \\(.+\\)" intern match-string 1 ascii us-ascii set-process-filter vc-hgcmd--cmdserver-process-filter vc-hgcmd--cmdserver-process-sentinel vc-hgcmd-cmdserver-config-options vc-hgcmd--encoding] 12 (#$ . 22893)])
#@61 Get and display hg output buffer for COMMAND.

(fn COMMAND)
(defalias 'vc-hgcmd--output-buffer #[257 "\302 \303\304\305\306\307\310!\311\"\312\313%\314 \"\206+ \315\316\317!\320Q!r\211q\210\321 \210)\211\262\322!rq\210\323db\210`e=\204@ \324c\210\325`\"\210\326\327\330\331#\332Qc\210*\210\207" [default-directory inhibit-read-only vc-hgcmd--repo-dir seq-find make-byte-code 257 "r\211q\210	\303=\205 \304\n!\300\232)\207" vconcat vector [major-mode default-directory vc-hgcmd-output-mode abbreviate-file-name] 3 "\n\n(fn BUFFER)" buffer-list generate-new-buffer "*hgcmd output: " vc-hgcmd--project-name "*" vc-hgcmd-output-mode display-buffer t "\f\n" set-window-start "Running \"" mapconcat identity " " "\"...\n"] 9 (#$ . 24396)])
#@31 Encode command ARG.

(fn ARG)
(defalias 'vc-hgcmd--encode-command-arg #[257 "\301\"\207" [vc-hgcmd--encoding encode-coding-string] 4 (#$ . 25149)])
#@23 Run hg CMD.

(fn CMD)
(defalias 'vc-hgcmd--run-command #[257 "\303 \304!rq\210\203$ \305\306\307!	>\204 \310\311\312D\"\210\313H@\"\210\314!\205\342 \315!\307!	>\204= \310\311\312D\"\210\313H\307!	>\204P \310\311\312D\"\210\316H\206o \307!	>\204f \310\311\312D\"\210\211\316\317!I\262\211;\204| \320!\203\215 r\211q\210\321\322\323@\"\324\325\326\327%)\330\331\332\333\334\335\"\336#\337\340\341GBC\"\203\254 \342!\202\255 \211P\266\202P\"\210\203\274 \343!\210\266\307!	>\204\315 \310\311\312D\"\210\344H\203\341 \203\341 \345\346\347\350$\210\202\323 \350)\207" [vc-hgcmd--current-command cl-struct-vc-hgcmd--command-tags mode-line-process vc-hgcmd--process-buffer get-buffer-process user-error "Hg command \"%s\" is active" type-of signal wrong-type-argument vc-hgcmd--command 1 process-live-p process-tty-name 2 vc-hgcmd--output-buffer buffer-live-p propertize format " [running %s...]" face mode-line-emphasis help-echo "A command is in progress in this buffer" process-send-string "runcommand\n" mapconcat vc-hgcmd--encode-command-arg append ("--config" "ui.report_untrusted=0") " " bindat-pack ((l u32)) l vc-hgcmd--data-for-tty process-send-eof 5 accept-process-output 0.1 nil t] 14 (#$ . 25305)])
#@135 Run hg COMMAND and return it's output.  If SKIP-ERROR is non nil data on error channel will be omited.

(fn SKIP-ERROR &rest COMMAND)
(defalias 'vc-hgcmd--command #[385 "\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314p\315\316\315\211&\317!\205z \320 \315\321\322\206/ \323\324Q\"\203A \325\326\316\211$\266\202\202D \266\202\327!>\204S \330\331\314D\"\210\332H\333U\203p r\334!q\210db\210\316\211\335Pc\210*\315\202x \211G\305V\205x \211\262\262*\207" [cl-struct-vc-hgcmd--command-tags inhibit-read-only generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 record vc-hgcmd--command nil t vc-hgcmd--run-command buffer-string string-match "\\(?:" "[ 	\n]+" "\\)\\'" replace-match "" type-of signal wrong-type-argument 4 255 vc-hgcmd--output-buffer "\n"] 12 (#$ . 26562)])
#@60 Run hg COMMAND and return it's output.

(fn &rest COMMAND)
(defalias 'vc-hgcmd-command #[128 "\300\301\302C\244\"\207" [apply vc-hgcmd--command nil] 5 (#$ . 27442)])
#@89 Send output of COMMAND to BUFFER and wait COMMAND to finish.

(fn BUFFER &rest COMMAND)
(defalias 'vc-hgcmd-command-to-buffer #[385 "\300!\210\301\302\303\304\211\305\304\211&!\207" [vc-setup-buffer vc-hgcmd--run-command record vc-hgcmd--command nil t] 12 (#$ . 27615)])
#@82 Update BUFFER where was command called from after command finished.

(fn BUFFER)
(defalias 'vc-hgcmd--update-callback #[257 "\300!\205 r\211q\210\301\302!\203 \303 \202 \301\304!\205 \305 )\207" [buffer-live-p derived-mode-p vc-dir-mode vc-dir-refresh dired-mode revert-buffer] 3 (#$ . 27896)])
#@77 Run COMMAND and update current buffer after command finished.

(fn COMMAND)
(defalias 'vc-hgcmd-command-update-callback #[257 "\300\301\302\303\211\211\211\304p&!\207" [vc-hgcmd--run-command record vc-hgcmd--command nil vc-hgcmd--update-callback] 11 (#$ . 28202)])
#@40 Translation for status command output.
(defconst vc-hgcmd--translation-status '((67 . up-to-date) (61 . up-to-date) (65 . added) (73 . ignored) (82 . removed) (33 . missing) (63 . unregistered) (77 . edited) (32 . origin)) (#$ . 28475))
#@41 Translation for resolve command output.
(defconst vc-hgcmd--translation-resolve '((85 . conflict) (82 . edited)) (#$ . 28718))
#@23 Return branches list.
(defalias 'vc-hgcmd--branches #[0 "\300\301\302\303\"\304\"\207" [split-string vc-hgcmd-command "branches" "-q" "\n"] 4 (#$ . 28851)])
#@19 Return tags list.
(defalias 'vc-hgcmd--tags #[0 "\300\301\302\303\"\304\"\207" [split-string vc-hgcmd-command "tags" "-q" "\n"] 4 (#$ . 29014)])
#@92 Return parents of REVISION formatted by TEMPLATE string.

(fn TEMPLATE &optional REVISION)
(defalias 'vc-hgcmd--parents #[513 "\211\206 \300\301\302\303\304\305\211#\306\307P%\211\205 \310\311\"\207" ["" vc-hgcmd-command "log" "-r" format "p1(%s)+p2(%s)" "--template" "\\n" split-string "\n"] 10 (#$ . 29165)])
#@55 Return FILE file name relative to vc root.

(fn FILE)
(defalias 'vc-hgcmd--file-relative-name #[257 "\300\301!\"\207" [file-relative-name vc-hgcmd-root] 5 (#$ . 29488)])
(autoload 'vc-switches "vc")
#@51 Return switch list for OPERATION.

(fn OPERATION)
(defalias 'vc-hgcmd--switches #[257 "\300\301\"\211\205\f \302\303\"\207" [vc-switches hgcmd mapcan split-string-and-unquote] 5 (#$ . 29695)])
#@33 Per-repository revision number.
(defalias 'vc-hgcmd-revision-granularity #[0 "\300\207" [repository] 1 (#$ . 29896)])
#@36 No buffers update on retrieve tag.
(defalias 'vc-hgcmd-update-on-retrieve-tag #[0 "\300\207" [nil] 1 (#$ . 30020)])
#@40 Is file FILE is registered.

(fn FILE)
(defalias 'vc-hgcmd-registered #[257 "\301!\205  \302!\206  \303\304!!\305!)\211\205 \211\306>?\262\207" [default-directory vc-hgcmd-root file-directory-p file-name-directory expand-file-name vc-hgcmd-state (ignored unregistered)] 4 (#$ . 30142)])
#@28 State for FILE.

(fn FILE)
(defalias 'vc-hgcmd-state #[257 "\301\302\303\304\305!$\211\205& \306\307H\"A\211\310=\203# \311!\203# \312\202$ \211\262\207" [vc-hgcmd--translation-status vc-hgcmd--command t "status" "-A" vc-hgcmd--file-relative-name assoc 0 edited vc-hgcmd--file-unresolved-p conflict] 7 (#$ . 30442)])
#@82 compiler-macro for inlining `vc-hgcmd-extra-fileinfo-p'.

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

(fn CL-X)
(defalias 'vc-hgcmd-extra-fileinfo-p #[257 "\301!>\205	 \302\207" [cl-struct-vc-hgcmd-extra-fileinfo-tags type-of t] 3 (#$ . 31183)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put vc-hgcmd-extra-fileinfo-p side-effect-free error-free put vc-hgcmd-extra-fileinfo cl-deftype-satisfies] 5)
#@88 compiler-macro for inlining `vc-hgcmd-extra-fileinfo->status'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hgcmd-extra-fileinfo->status--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hgcmd-extra-fileinfo->status (or (vc-hgcmd-extra-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'vc-hgcmd-extra-fileinfo cl-x))) (aref cl-x 1)) nil] 9 (#$ . 31510)])
(put 'vc-hgcmd-extra-fileinfo->status 'compiler-macro 'vc-hgcmd-extra-fileinfo->status--cmacro)
#@202 Access slot "status" of `(vc-hgcmd-extra-fileinfo (:copier nil) (:constructor vc-hgcmd-create-extra-fileinfo (status &optional origin)) (:conc-name vc-hgcmd-extra-fileinfo->))' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-hgcmd-extra-fileinfo->origin--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-hgcmd-extra-fileinfo->origin (or (vc-hgcmd-extra-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'vc-hgcmd-extra-fileinfo cl-x))) (aref cl-x 2)) nil] 9 (#$ . 32537)])
(put 'vc-hgcmd-extra-fileinfo->origin 'compiler-macro 'vc-hgcmd-extra-fileinfo->origin--cmacro)
#@202 Access slot "origin" of `(vc-hgcmd-extra-fileinfo (:copier nil) (:constructor vc-hgcmd-create-extra-fileinfo (status &optional origin)) (:conc-name vc-hgcmd-extra-fileinfo->))' struct CL-X.

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

(fn CL-WHOLE &cl-quote &key STATUS ORIGIN)
(defalias 'make-vc-hgcmd-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 :status :origin (:status :origin :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:status :origin)" cl--defsubst-expand (status origin) (cl-block make-vc-hgcmd-extra-fileinfo (record 'vc-hgcmd-extra-fileinfo status origin))] 12 (#$ . 33565)])
(put 'make-vc-hgcmd-extra-fileinfo 'compiler-macro 'make-vc-hgcmd-extra-fileinfo--cmacro)
#@85 Constructor for objects of type `vc-hgcmd-extra-fileinfo'.

(fn &key STATUS ORIGIN)
(defalias 'make-vc-hgcmd-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 :status :origin (:status :origin :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:status :origin)" record vc-hgcmd-extra-fileinfo] 7 (#$ . 34267)])
(byte-code "\300\301\302\303#\300\207" [function-put make-vc-hgcmd-extra-fileinfo side-effect-free t] 4)
#@106 compiler-macro for inlining `vc-hgcmd-create-extra-fileinfo'.

(fn CL-WHOLE-ARG STATUS &optional ORIGIN)
(defalias 'vc-hgcmd-create-extra-fileinfo--cmacro #[770 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (status origin) (cl-block vc-hgcmd-create-extra-fileinfo (record 'vc-hgcmd-extra-fileinfo status origin)) nil] 11 (#$ . 34846)])
(put 'vc-hgcmd-create-extra-fileinfo 'compiler-macro 'vc-hgcmd-create-extra-fileinfo--cmacro)
#@90 Constructor for objects of type `vc-hgcmd-extra-fileinfo'.

(fn STATUS &optional ORIGIN)
(defalias 'vc-hgcmd-create-extra-fileinfo #[513 "\300\301#\207" [record vc-hgcmd-extra-fileinfo] 6 (#$ . 35294)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put vc-hgcmd-create-extra-fileinfo side-effect-free t cl-struct-define vc-hgcmd-extra-fileinfo nil cl-structure-object record ((cl-tag-slot) (status) (origin)) cl-struct-vc-hgcmd-extra-fileinfo-tags] 11)
#@31 Pretty print INFO.

(fn INFO)
(defalias 'vc-hgcmd-dir-printer #[257 "\301\302\"\210\3038\211\205\227 \304\305\306\307!>\204 \310\311\312D\"\210\313H\211\314=\203, \315\202\220 \211\316=\203M \305\317\307!>\204E \310\311\312	D\"\210\303H\"\202\220 \211\320=\203n \305\321\307!>\204f \310\311\312	D\"\210\303H\"\202\220 \211\322=\203\217 \305\323\307!>\204\207 \310\311\312	D\"\210\303H\"\202\220 \324\262\"\325\326#c\207" [cl-struct-vc-hgcmd-extra-fileinfo-tags vc-default-dir-printer Hgcmd 2 propertize format "   (%s)" type-of signal wrong-type-argument vc-hgcmd-extra-fileinfo 1 resolved "resolved conflict" copied "copied from %s" renamed-from "renamed from %s" renamed-to "renamed to %s" nil face font-lock-comment-face] 12 (#$ . 35796)])
#@75 Call UPDATE-FUNCTION with result of status command.

(fn UPDATE-FUNCTION)
(defalias 'vc-hgcmd--dir-status-callback #[257 "\301 \302\303\"\302\304\"eb\210m\204\250 \305\306f\"A\211\203\241 \307`\310\\\311 \"\211\235\204\240 \312=\204\240 \211\211\313=\203q \212\306y\210\314 \205m \305\306f\"A\312=\205m \307`\310\\\311 \"\315\316\317!\320Q\306\321#\203b \322\202c \323\324\325#\266\202\262)\202\233 \326=\203\232 \212\327\330\317!\320Q\306\321#\205\226 \331y\210\307`\310\\\311 \"\324\325\332#\262)\202\233 \306EB\262\210\210\306y\210\202 !\207" [vc-hgcmd--translation-status vc-hgcmd-conflicted-files mapcar #[257 "\211@AA\300=\205 \301\302\303\304#E\207" [edited record vc-hgcmd-extra-fileinfo resolved nil] 7 "\n\n(fn FILE)"] car assoc nil buffer-substring-no-properties 2 line-end-position origin added point-at-bol re-search-forward "^R " regexp-quote "$" t renamed-from copied record vc-hgcmd-extra-fileinfo removed re-search-backward "^  " -1 renamed-to] 15 (#$ . 36572)])
#@93 Call UPDATE-FUNCTION with status for files in DIR or FILES.

(fn DIR FILES UPDATE-FUNCTION)
(defalias 'vc-hgcmd-dir-status-files #[771 "\203 \300\301D\302\303\"\244\202 \300\304\303!E\305\306\307p\310\311\211\312\n&!\207" ["status" "-A" mapcar vc-hgcmd--file-relative-name "-C" vc-hgcmd--run-command record vc-hgcmd--command t nil vc-hgcmd--dir-status-callback] 14 (#$ . 37582)])
(defvar vc-hgcmd-extra-menu-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\211\207" [make-sparse-keymap define-key [hgcmd-sl] (menu-item "Create shelve..." vc-hgcmd-shelve :help "Shelve changes") [hgcmd-uc] (menu-item "Continue unshelve" vc-hgcmd-shelve-unshelve-continue :help "Continue unshelve") [hgcmd-ua] (menu-item "Abort unshelve" vc-hgcmd-shelve-unshelve-abort :help "Abort unshelve") [hgcmd-ar] (menu-item "Addremove" vc-hgcmd-addremove :help "Add new and remove missing files")] 5))
#@51 Return a menu keymap with additional hg commands.
(defalias 'vc-hgcmd-extra-menu #[0 "\207" [vc-hgcmd-extra-menu-map] 1 (#$ . 38516)])
#@51 Return a menu keymap with additional hg commands.
(defalias 'vc-hgcmd-extra-status-menu #[0 "\207" [vc-hgcmd-extra-menu-map] 1 (#$ . 38658)])
(defvar vc-hgcmd-shelve-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\311#\210\301\313\314#\210\301\315\316#\210\211\207" [make-sparse-keymap define-key [mouse-2] ignore [down-mouse-3] vc-hgcmd-shelve-menu "" vc-hgcmd-shelve-delete-at-point "=" vc-hgcmd-shelve-show-at-point "" "A" vc-hgcmd-shelve-apply-at-point "P" vc-hgcmd-shelve-pop-at-point] 5))
(defvar vc-hgcmd-shelve-menu-map (byte-code "\300\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\211\207" [make-sparse-keymap "Hg shelve" define-key [de] (menu-item "Delete shelve" vc-hgcmd-shelve-delete-at-point :help "Delete the current shelve") [ap] (menu-item "Unshelve and keep shelve" vc-hgcmd-shelve-apply-at-point :help "Apply the current shelve and keep it in the shelve list") [po] (menu-item "Unshelve and remove shelve" vc-hgcmd-shelve-pop-at-point :help "Apply the current shelve and remove it") [sh] (menu-item "Show shelve" vc-hgcmd-shelve-show-at-point :help "Show the contents of the current shelve")] 5))
#@71 Return summary command for DIR output as dir extra headers.

(fn DIR)
(defalias 'vc-hgcmd-dir-extra-headers #[257 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\314\315Cp\316\211\317\316\211&!\205h \320\321\316eb\210m\204b \322\323!\203@ \324\325\326!!\325\311!B\202F \327`\330 {B\331\332\333@\"\334\335#\331A\334\336#P\262B\262\316y\210\202* \211\237\262\337#*\262\205\256 \340 \211\205\254 \337\331\341\334\335#\301\302!r\211q\210\303\304\305\306\307!\342\"\311$\216\312\313\314\343\344Dp\316\211\317\316\211&!\205\250 eb\210\320\345\337#*\262Q\262P\207" [vc-hgcmd-dir-show-shelve generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-hgcmd--run-command record vc-hgcmd--command "summary" nil t mapconcat identity looking-at "\\([^ ].*\\):\\s-+\\(.*\\)" capitalize match-string 1 "" line-end-position propertize format "%-11s: " face font-lock-type-face font-lock-variable-name-face "\n" vc-hgcmd-shelve-list "Shelve     :\n" [buffer-name kill-buffer] "shelve" "-l" #[257 "\301\302\301\303\304#\301\305\306\307!\310Q\311\312\313 \314 \"#\303\315#Q\316\317\320\321\322\323	&	\324y\210\207" [vc-hgcmd-shelve-map propertize "             " face font-lock-variable-name-face replace-regexp-in-string "^" regexp-quote " *" "   " buffer-substring-no-properties line-beginning-position line-end-position font-lock-comment-face mouse-face highlight help-echo "mouse-3: Show shelve menu\nRET: Show shelve\nA: Unshelve and keep\nP: Unshelve and remove\nC-k: Delete shelve" keymap vc-hgcmd--shelve-name nil] 11 "\n\n(fn SHELVE)"]] 16 (#$ . 39872)])
#@21 Return shelve list.
(defalias 'vc-hgcmd-shelve-list #[0 "\300\301\302\303#\211\205 \304\305\"\207" [vc-hgcmd-command "shelve" "-l" "-q" split-string "\n"] 4 (#$ . 41526)])
#@30 Return shelve name at point.
(defalias 'vc-hgcmd-shelve-name-at-point #[0 "\300`\301\"\206\n \302\303!\207" [get-text-property vc-hgcmd--shelve-name error "Cannot find shelve at point"] 3 (#$ . 41706)])
#@25 Delete shelve at point.
(defalias 'vc-hgcmd-shelve-delete-at-point #[0 "\300 \301\302\303\"!\205 \304\305\306#\210\307 \207" [vc-hgcmd-shelve-name-at-point y-or-n-p format "Delete shelve %s? " vc-hgcmd-command "shelve" "-d" vc-dir-refresh] 5 (#$ . 41915) nil])
#@44 Read shelve name with PROMPT.

(fn PROMPT)
(defalias 'vc-hgcmd-shelve-read #[257 "\300\301C\211\302\303\304\305\306\307!\310\"\311\312%\313\"\240\262\301\314$\211\315\230?\205# \211\207" [completing-read nil completion-table-dynamic make-byte-code 257 "\301\300\242!\203\f \300\302 \240\210\300\242\207" vconcat vector [functionp vc-hgcmd-shelve-list] 3 "\n\n(fn STRING)" do-switch-buffer t ""] 12 (#$ . 42185)])
#@48 Unshelve and keep shelve with NAME.

(fn NAME)
(defalias 'vc-hgcmd-shelve-apply #[257 "\211\205\f \300\301\302#\210\303 \207" [vc-hgcmd-command "unshelve" "-k" vc-dir-refresh] 5 (#$ . 42608) (byte-code "\300\301!C\207" [vc-hgcmd-shelve-read "Apply and keep shelve: "] 2)])
#@36 Unshelve and keep shelve at point.
(defalias 'vc-hgcmd-shelve-apply-at-point #[0 "\300\301 !\207" [vc-hgcmd-shelve-apply vc-hgcmd-shelve-name-at-point] 2 (#$ . 42888) nil])
#@48 Unshelve and keep shelve with NAME.

(fn NAME)
(defalias 'vc-hgcmd-shelve-pop #[257 "\211\205 \300\301\"\210\302 \207" [vc-hgcmd-command "unshelve" vc-dir-refresh] 4 (#$ . 43067) (byte-code "\300\301!C\207" [vc-hgcmd-shelve-read "Apply and remove shelve: "] 2)])
#@36 Unshelve and keep shelve at point.
(defalias 'vc-hgcmd-shelve-pop-at-point #[0 "\300\301 !\207" [vc-hgcmd-shelve-pop vc-hgcmd-shelve-name-at-point] 2 (#$ . 43338) nil])
#@23 Show shelve at point.
(defalias 'vc-hgcmd-shelve-show-at-point #[0 "\301 \302\303!\304!\210r\305\306\307\310\311Ep\312\211\313\312\211&!\205& \314 \210\313\315p!q)\207" [buffer-read-only vc-hgcmd-shelve-name-at-point get-buffer-create "*vc-hgcmd-shelve*" vc-setup-buffer vc-hgcmd--run-command record vc-hgcmd--command "shelve" "-p" nil t diff-mode pop-to-buffer] 12 (#$ . 43513) nil])
#@38 Create shelve named NAME.

(fn NAME)
(defalias 'vc-hgcmd-shelve #[257 "\211\300\230\203 \301\302!\210\202 \301\302\303#\210\304 \207" ["" vc-hgcmd-command "shelve" "-n" vc-dir-refresh] 5 (#$ . 43909) "sShelve name: "])
#@20 Continue unshelve.
(defalias 'vc-hgcmd-shelve-unshelve-continue #[0 "\300\301\302\"\210\303 \207" [vc-hgcmd-command "unshelve" "--continue" vc-dir-refresh] 3 (#$ . 44137) nil])
#@17 Abort unshelve.
(defalias 'vc-hgcmd-shelve-unshelve-abort #[0 "\300\301\302\"\210\303 \207" [vc-hgcmd-command "unshelve" "--abort" vc-dir-refresh] 3 (#$ . 44320) nil])
#@41 Popup shelve menu on EVENT.

(fn EVENT)
(defalias 'vc-hgcmd-shelve-menu #[257 "\212\211\301\232\204 \302!\303\211@\262!q\210\304!b\266\305\")\207" [vc-hgcmd-shelve-menu-map (tool-bar) event-start window-buffer posn-point popup-menu] 5 (#$ . 44494) "e"])
#@35 Add new and remove missing files.
(defalias 'vc-hgcmd-addremove #[0 "\300\301!\210\302 \207" [vc-hgcmd-command "addremove" vc-dir-refresh] 2 (#$ . 44762) nil])
#@93 Working revision of FILE.  Result is revision of FILE up to repository revision.

(fn FILE)
(defalias 'vc-hgcmd-working-revision #[257 "\300\301\302\303\"\304\"\242\205 \301\305\306\307\310\311!#\312\313%\211\206  \207" [split-string vc-hgcmd-command "id" "-n" "+" "log" "-r" format "limit(reverse(follow('%s') and ..%s), 1)" vc-hgcmd--file-relative-name "--template" "{rev}"] 9 (#$ . 44928)])
#@40 Files are always writable.

(fn FILES)
(defalias 'vc-hgcmd-checkout-model #[257 "\300\207" [implicit] 2 (#$ . 45335)])
#@81 Return a string for `vc-mode-line' to put in the mode line for FILE.

(fn FILE)
(defalias 'vc-hgcmd-mode-line-string #[257 "\300!\301\211\302\303!\304\305\306=\203 \307\262\310\262\311\202a \312=\203* \313\262\314\262\315\202a \316=\203: \317\262\320\262\321\202a \322=\203J \323\262\324\262\321\202a \325=\203Z \326\262\327\262\330\202a \331\262\332\262\333Q\334\335\336P%\207" [vc-state nil vc-hgcmd-command "branch" propertize "Hgcmd" up-to-date "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 Hg version control system"] 12 (#$ . 45460)])
#@21 Init Hg repository.
(defalias 'vc-hgcmd-create-repo #[0 "\300\301!\207" [vc-hgcmd-command "init"] 2 (#$ . 46383)])
#@47 Register FILES.

(fn FILES &optional COMMENT)
(defalias 'vc-hgcmd-register #[513 "\300\301\302C\303\304!\244\305\306\"\244\"\207" [apply vc-hgcmd-command "add" vc-hgcmd--switches register mapcar vc-hgcmd--file-relative-name] 8 (#$ . 46504)])
(defalias 'vc-hgcmd-responsible-p 'vc-hgcmd-root)
#@25 Forget FILE.

(fn FILE)
(defalias 'vc-hgcmd-unregister #[257 "\300\301\302!\"\207" [vc-hgcmd-command "forget" vc-hgcmd--file-relative-name] 5 (#$ . 46804)])
#@50 If VALUE is yes then --close-branch.

(fn VALUE)
(defalias 'vc-hgcmd--arg-close-branch #[257 "\211\300\232\205 \301C\207" ["yes" "--close-branch"] 3 (#$ . 46968)])
#@50 If VALUE is yes then --close-branch.

(fn VALUE)
(defalias 'vc-hgcmd--arg-amend #[257 "\211\300\232\205 \301C\207" ["yes" "--amend"] 3 (#$ . 47139)])
#@62 Commit FILES with COMMENT.

(fn FILES COMMENT &optional REV)
(defalias 'vc-hgcmd-checkin #[770 "\300\301\302C\303\304!\244\305C\244\306\307\"\244\310\311\"\244\"\207" [apply vc-hgcmd-command "commit" vc-hgcmd--switches checkin "-m" log-edit-extract-headers (("Author" . "--user") ("Date" . "--date") ("Amend" . vc-hgcmd--arg-amend) ("Close-branch" . vc-hgcmd--arg-close-branch)) mapcar vc-hgcmd--file-relative-name] 9 (#$ . 47296)])
#@108 Put REV of FILE to BUFFER.
Optional ARGS passed to the "cat" command.

(fn FILE REV BUFFER &optional ARGS)
(defalias 'vc-hgcmd-find-revision #[1027 "\300!\301\302\203 \303C\244\304D\244\305C	\"\244\202$ \306\244C\244#\207" [vc-hgcmd--file-relative-name apply vc-hgcmd-command-to-buffer "cat" "-r" vc-hgcmd--file-name-at-rev ("cat")] 12 (#$ . 47740)])
#@57 Retrieve revision REV of FILE.

(fn FILE &optional REV)
(defalias 'vc-hgcmd-checkout #[513 "\300\301!\206\n p\302\303!$\207" [vc-hgcmd-find-revision get-file-buffer vc-hgcmd--switches checkout] 8 (#$ . 48109)])
#@70 Revert FILE if not CONTENTS-DONE.

(fn FILE &optional CONTENTS-DONE)
(defalias 'vc-hgcmd-revert #[513 "\211?\205 \300\301\302!\"\207" [vc-hgcmd-command "revert" vc-hgcmd--file-relative-name] 6 (#$ . 48329)])
#@8 Merge.
(defalias 'vc-hgcmd-merge-branch #[0 "\300\301!\302G\303V\203 \304D\202 \304C!\207" [vc-read-revision "Revision to merge: " vc-hgcmd-command-update-callback 0 "merge"] 4 (#$ . 48544)])
#@48 Pull.  Prompt for args if PROMPT.

(fn PROMPT)
(defalias 'vc-hgcmd-pull #[257 "\301\302C\303\203 \304\305\"\202 !\244!\207" [vc-hgcmd-pull-args vc-hgcmd-command-update-callback "pull" split-string-and-unquote read-from-minibuffer "Hg pull: "] 7 (#$ . 48746)])
#@48 Pull.  Prompt for args if PROMPT.

(fn PROMPT)
(defalias 'vc-hgcmd-push #[257 "\301\302C\205 \303\304\305\"!\244!\207" [vc-hgcmd-push-alternate-args vc-hgcmd-command-update-callback "push" split-string-and-unquote read-from-minibuffer "Hg push: "] 7 (#$ . 49017)])
#@34 Mark FILES resolved.

(fn FILES)
(defalias 'vc-hgcmd-mark-resolved #[257 "\300\301\302\303D\304\305\"\244\"\207" [apply vc-hgcmd-command "resolve" "-m" mapcar vc-hgcmd--file-relative-name] 7 (#$ . 49291)])
(defvar vc-hgcmd--print-log-revset nil)
#@149 Put maybe SHORTLOG log of FILES to BUFFER starting with START-REVISION limited by LIMIT.

(fn FILES BUFFER &optional SHORTLOG START-REVISION LIMIT)
(defalias 'vc-hgcmd-print-log #[1282 "\306C\205 \307\205\f \310\311	@D\"\244\205' \n\204  \312=\203$ \313\202% \314D\244\2051 \315\316!D\244\312=?\205O ?\205@ \317CC\232?\205N \320\321\"\244\244\f\322=\205X \323C\244\312D\235?\205h rq\210`)\324\325#\210rq\210\211\203| \211b\202\204 ?\205\204 \326\327!)\207" [vc-hgcmd-short-log-graph vc-hgcmd-short-log-format vc-hgcmd--print-log-revset default-directory vc-log-view-type vc-log-show-limit "log" append ("-G") "--template" 1 "-r" "-b" "-l" number-to-string "-f" mapcar vc-hgcmd--file-relative-name with-diff "-p" apply vc-hgcmd-command-to-buffer vc-hgcmd-show-log-entry nil] 11 (#$ . 49545)])
#@46 Show the change log for REVSET.

(fn REVSET)
(defalias 'vc-hgcmd-print-log-revset #[257 "\211\304\305\306\307#)\266\204\203 \310\311!\210\306\312\313\nC\306\314V\205$ %)\207" [inhibit-changing-match-data vc-hgcmd--print-log-revset default-directory vc-log-show-limit "\\`[ 	\n]*\\'" nil t string-match user-error "No revset specified" vc-print-log-internal Hgcmd 0] 9 (#$ . 50366) "sRevset to log: "])
#@86 Log TYPE changesets for REMOTE-LOCATION to BUFFER.

(fn TYPE BUFFER REMOTE-LOCATION)
(defalias 'vc-hgcmd--log-in-or-out #[771 "\300\301\302\230?\205\f $\207" [apply vc-hgcmd-command-to-buffer ""] 9 (#$ . 50785)])
#@74 Log outgoing for REMOTE-LOCATION to BUFFER.

(fn BUFFER REMOTE-LOCATION)
(defalias 'vc-hgcmd-log-outgoing #[514 "\300\301#\207" [vc-hgcmd--log-in-or-out "outgoing"] 6 (#$ . 51008)])
#@75 Log incoming from REMOTE-LOCATION to BUFFER.

(fn BUFFER REMOTE-LOCATION)
(defalias 'vc-hgcmd-log-incoming #[514 "\300\301#\207" [vc-hgcmd--log-in-or-out "incoming"] 6 (#$ . 51198)])
#@207 Search the change log for keyword PATTERN and output results into BUFFER.

PATTERN is passed as argument to 'hg log -k' command.

With prefix argument, ask for 'log' command arguments.

(fn BUFFER PATTERN)
(defalias 'vc-hgcmd-log-search #[514 "\203 \301\302\303\304\"!\202 \305D\306\307\310C\244#\207" [current-prefix-arg split-string-and-unquote read-shell-command "Search log with command 'hg log': " "-k " "-k" apply vc-hgcmd-command-to-buffer "log"] 8 (#$ . 51390)])
(defconst vc-hgcmd--message-re "^changeset:\\s-*\\(%s\\):\\([[:xdigit:]]+\\)")
(defvar vc-hgcmd-log-view-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\211\207" [make-sparse-keymap define-key "cc" vc-hgcmd-diff-revision "c1" vc-hgcmd-diff-parent1 "c2" vc-hgcmd-diff-parent2 "Cc" vc-hgcmd-diff-revision-changeset "C1" vc-hgcmd-diff-parent1-changeset "C2" vc-hgcmd-diff-parent2-changeset] 5))
(defvar vc-hgcmd-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-hgcmd-log-view-mode-hook variable-documentation put "Hook run after entering Log-View/Hgcmd 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-hgcmd-log-view-mode-map definition-name vc-hgcmd-log-view-mode] 4)
(defvar vc-hgcmd-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-hgcmd-log-view-mode-abbrev-table vc-hgcmd-log-view-mode-map variable-documentation put purecopy "Keymap for `vc-hgcmd-log-view-mode'." boundp vc-hgcmd-log-view-mode-syntax-table definition-name vc-hgcmd-log-view-mode (lambda (#1=#:def-tmp-var) (defvar vc-hgcmd-log-view-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-hgcmd-log-view-mode'." (lambda (#1#) (defvar vc-hgcmd-log-view-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-hgcmd-log-view-mode'." derived-mode-parent log-view-mode] 5)
#@544 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-hgcmd-log-view-mode-map', `vc-hgcmd-log-view-mode-abbrev-table' and `vc-hgcmd-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-hgcmd-log-view-mode-hook', as the final or penultimate step
during initialization.

\{vc-hgcmd-log-view-mode-map}
(defalias 'vc-hgcmd-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*\337=\203{ +A@\202} ,\340\"*\337=\203\217 \306\341!\210\342!\306\343!\210*\337=\203\252 \336+A@\340\"\344+8BC\202\257 \345#\346\"#)\347\350!\207" [delay-mode-hooks major-mode mode-name vc-hgcmd-log-view-mode-map vc-hgcmd-log-view-mode-syntax-table vc-hgcmd-log-view-mode-abbrev-table make-local-variable t log-view-mode vc-hgcmd-log-view-mode "Log-View/Hgcmd" 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-per-file-logs nil log-view-message-re format short "[[:digit:]]+" log-view-expanded-log-entry-function vc-hgcmd-expanded-log-entry log-view-font-lock-keywords 2 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)) ("parent:[ 	]+\\([[:digit:]]+:[[:xdigit:]]+\\)" (1 'change-log-acknowledgment)) ("tag: +\\([^ ]+\\)$" (1 'highlight)) ("summary:[ 	]+\\(.+\\)" (1 'log-view-message))) run-mode-hooks vc-hgcmd-log-view-mode-hook local-abbrev-table vc-log-view-type vc-hgcmd-short-log-format vc-hgcmd--message-re] 5 (#$ . 53657) nil])
#@56 Show log entry positioning on REVISION.

(fn REVISION)
(defalias 'vc-hgcmd-show-log-entry #[257 "eb\210\303=\203 	A@\202 \n\304\305\"\306\307#\203! \310\224b\2023 \304\305\311\306!\"\306\307#\2053 \310\224b\210\306\207" [vc-log-view-type vc-hgcmd-short-log-format vc-hgcmd--message-re short search-forward-regexp format nil t 0 vc-hgcmd-working-revision] 7 (#$ . 55864)])
#@45 Show log entry for REVISION.

(fn REVISION)
(defalias 'vc-hgcmd-expanded-log-entry #[257 "\300\301\302\303$\304P\207" [vc-hgcmd-command "log" "-v" "-r" "\n"] 6 (#$ . 56248)])
#@112 Show change made by revision at POS for FILES.  If FILES is nil show diff for whole changeset.

(fn POS FILES)
(defalias 'vc-hgcmd--diff-revision #[514 "\301\302D\303\304!$\207" [log-view-vc-backend vc-diff-internal t nil log-view-current-tag] 8 (#$ . 56431)])
#@48 Show change made by revision at POS.

(fn POS)
(defalias 'vc-hgcmd-diff-revision #[257 "\301\"\207" [log-view-vc-fileset vc-hgcmd--diff-revision] 4 (#$ . 56702) "d"])
#@66 Show change made by revison at POS in whole changeset.

(fn POS)
(defalias 'vc-hgcmd-diff-revision-changeset #[257 "\300\301\"\207" [vc-hgcmd--diff-revision nil] 4 (#$ . 56877) "d"])
#@218 Show diff for changeset at POS and parent retrieved by PARENT-FN for FILES.
PARENT-FN is called with `vc-hgcmd--parents' result as an argument.
If FILES is nil show diff for whole changeset.

(fn POS PARENT-FN FILES)
(defalias 'vc-hgcmd--diff-parent #[771 "\301!\302\303\"!\211\204 \304\305\"\210\306\307D$\207" [log-view-vc-backend log-view-current-tag vc-hgcmd--parents "{rev}" user-error "Revision %s has no such parent" vc-diff-internal t] 10 (#$ . 57068)])
#@59 Show diff between revision at POS and parent 1.

(fn POS)
(defalias 'vc-hgcmd-diff-parent1 #[257 "\301\302#\207" [log-view-vc-fileset vc-hgcmd--diff-parent car] 5 (#$ . 57545) "d"])
#@59 Show diff between revision at POS and parent 2.

(fn POS)
(defalias 'vc-hgcmd-diff-parent2 #[257 "\301\302#\207" [log-view-vc-fileset vc-hgcmd--diff-parent cadr] 5 (#$ . 57735) "d"])
#@78 Show diff between revision at POS and parent 1 in whole changeset.

(fn POS)
(defalias 'vc-hgcmd-diff-parent1-changeset #[257 "\300\301\302#\207" [vc-hgcmd--diff-parent car nil] 5 (#$ . 57926) "d"])
#@78 Show diff between revision at POS and parent 2 in whole changeset.

(fn POS)
(defalias 'vc-hgcmd-diff-parent2-changeset #[257 "\300\301\302#\207" [vc-hgcmd--diff-parent cadr nil] 5 (#$ . 58132) "d"])
#@101 Place diff of FILES between REV1 and REV2 into BUFFER.

(fn FILES &optional REV1 REV2 BUFFER ASYNC)
(defalias 'vc-hgcmd-diff #[1281 "\301C\302\303!\244\205 \304D\244\205 \203 \304\202 \305D\244\205> C\232?\205> \306\307\"\203; \310\"\202< \211\262\244\311\312#\207" [default-directory "diff" vc-hgcmd--switches diff "-r" "-c" mapcar vc-hgcmd--file-relative-name vc-hgcmd--file-name-at-rev apply vc-hgcmd-command-to-buffer] 10 (#$ . 58340)])
#@94 Return branches and tags as they are more usefull than file revisions.

(fn &optional FILES)
(defalias 'vc-hgcmd-revision-completion-table #[256 "\300C\211\301\302\303\304\305\306!\307\"\310\311%\312\"\240\207" [nil completion-table-dynamic make-byte-code 257 "\301\300\242!\203 \300\302C\303 \244\304 \244\240\210\300\242\207" vconcat vector [functionp "" vc-hgcmd--branches vc-hgcmd--tags] 4 "\n\n(fn STRING)" do-switch-buffer] 10 (#$ . 58808)])
(defconst vc-hgcmd-annotate-re "^\\(?: *[^ ]+ +\\)?\\([0-9]+\\) \\([0-9]\\{4\\}-[0-1][0-9]-[0-3][0-9]\\)[^:]*: ")
#@50 Return filename of FILES at REV.

(fn FILES REV)
(defalias 'vc-hgcmd--file-name-at-rev #[514 "\205a \300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\314\315\316F\244\317p\320\321&!\205Z eb\210\322m\204W \212\322y\210\323 \205B \322f\324=)\204Q \325`\310\\\326 \"B\262\322y\210\2021 \211\262*\262\206a \207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-hgcmd--run-command make-vc-hgcmd--command :command "status" "--rev" "-C" :output-buffer :wait t nil point-at-bol 32 buffer-substring-no-properties line-end-position] 11 (#$ . 59379)])
#@75 Annotate REVISION of FILE to BUFFER.

(fn FILE BUFFER &optional REVISION)
(defalias 'vc-hgcmd-annotate-command #[770 "\300\301\302C\303\304!\244\305C\244\205 \306D\244\307\310!C\"\244#\207" [apply vc-hgcmd-command-to-buffer "annotate" vc-hgcmd--switches annotate "-qdnu" "-r" vc-hgcmd--file-name-at-rev vc-hgcmd--file-relative-name] 10 (#$ . 60032)])
#@114 Return the time of the next line of annotation at or after point, as a floating point fractional number of days.
(defalias 'vc-hgcmd-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-hgcmd-annotate-re looking-at 0 vc-annotate-convert-time match-string-no-properties 2 encode-time string-to-number 6 8 4] 12 (#$ . 60398)])
#@26 Return revision at line.
(defalias 'vc-hgcmd-annotate-extract-revision-at-line #[0 "\212\301 \210\302!\205 \303\304!)\207" [vc-hgcmd-annotate-re beginning-of-line looking-at match-string-no-properties 1] 2 (#$ . 60814)])
#@112 Insert into BUFFER the history of the content of FILE between lines LFROM and LTO.

(fn FILE BUFFER LFROM LTO)
(defalias 'vc-hgcmd-region-history #[1028 "\300\301\302\303\304\305\n!$$\205  rq\210eb\210)\306\307!!\207" [vc-hgcmd-command-to-buffer "log" "-fpL" format "%s,%d:%d" vc-hgcmd--file-relative-name select-window display-buffer] 13 (#$ . 61044)])
(defvar vc-hgcmd--log-view-region-history-font-lock-keywords nil)
(defvar vc-hgcmd-region-history-font-lock-keywords '((vc-hgcmd-region-history-font-lock)))
#@70 Fontify region bounds by LIMIT in region history buffer.

(fn LIMIT)
(defalias 'vc-hgcmd-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-hgcmd--log-view-region-history-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 (#$ . 61569)])
(defvar vc-hgcmd-region-history-mode-map (byte-code "\302	D!\211\207" [diff-mode-map vc-hgcmd-log-view-mode-map make-composed-keymap] 3))
(defvar vc-hgcmd-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-hgcmd-region-history-mode-hook variable-documentation put "Hook run after entering Region-History/Hgcmd 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-hgcmd-region-history-mode-map definition-name vc-hgcmd-region-history-mode] 4)
(defvar vc-hgcmd-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-hgcmd-region-history-mode-abbrev-table vc-hgcmd-region-history-mode-map variable-documentation put purecopy "Keymap for `vc-hgcmd-region-history-mode'." boundp vc-hgcmd-region-history-mode-syntax-table definition-name vc-hgcmd-region-history-mode (lambda (#1=#:def-tmp-var) (defvar vc-hgcmd-region-history-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-hgcmd-region-history-mode'." (lambda (#1#) (defvar vc-hgcmd-region-history-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-hgcmd-region-history-mode'." derived-mode-parent vc-hgcmd-log-view-mode] 5)
#@287 Major mode to browse Hg's "log -f -p -L" output.

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

\{vc-hgcmd-region-history-mode-map}
(defalias 'vc-hgcmd-region-history-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315!\204' \316\317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R =\204R \326\325C#\210\327!\210\330\f!\210\306\331!\210\306\332!\210\333AB)\334\335!\207" [delay-mode-hooks major-mode mode-name vc-hgcmd-region-history-mode-map vc-hgcmd-region-history-mode-syntax-table vc-hgcmd-region-history-mode-abbrev-table make-local-variable t vc-hgcmd-log-view-mode vc-hgcmd-region-history-mode "Region-History/Hgcmd" 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-hgcmd--log-view-region-history-font-lock-keywords font-lock-defaults vc-hgcmd-region-history-font-lock-keywords run-mode-hooks vc-hgcmd-region-history-mode-hook local-abbrev-table log-view-font-lock-keywords] 5 (#$ . 63710) nil])
#@74 Create tag NAME.  If BRANCHP create named branch.

(fn DIR NAME BRANCHP)
(defalias 'vc-hgcmd-create-tag #[771 "\300\203	 \301\202\n \302\"\207" [vc-hgcmd-command "branch" "tag"] 6 (#$ . 65031)])
#@46 Update to branch NAME.

(fn DIR NAME UPDATE)
(defalias 'vc-hgcmd-retrieve-tag #[771 "\211\300\230\262\203 \301\302!\207\301\302\"\207" ["" vc-hgcmd-command "update"] 6 (#$ . 65234)])
#@55 Return root folder of repository for FILE.

(fn FILE)
(defalias 'vc-hgcmd-root #[257 "\300\301\"\207" [vc-find-root ".hg"] 4 (#$ . 65427)])
#@47 Revison prior to REV for FILE.

(fn FILE REV)
(defalias 'vc-hgcmd-previous-revision #[514 "\300\301\302\303\304\203 \303\305\306	!\"\202 \307#\310\311%\211\205' \230?\205' \211\207" [vc-hgcmd-command "log" "-r" format "last(limit(reverse(%s..%s), 2))" "follow('%s') and " vc-hgcmd--file-relative-name "" "--template" "{rev}"] 11 (#$ . 65574)])
#@45 Revision after REV for FILE.

(fn FILE REV)
(defalias 'vc-hgcmd-next-revision #[514 "\300\301\302\303\304\203 \303\305\306	!\"\202 \307#\310\311%\211\205' \211\230?\205' \211\207" [vc-hgcmd-command "log" "-r" format "last(limit(%s%s.., 2))" "follow('%s') and " vc-hgcmd--file-relative-name "" "--template" "{rev}"] 11 (#$ . 65933)])
#@47 Return 'merged ...' if there are two parents.
(defalias 'vc-hgcmd--log-edit-default-message #[0 "\300\301!\211@A@\211\205* \302\303\"\302\303\"\304A@A@\230\203$ @\202' A@P\266\202\207" [vc-hgcmd--parents "{node}\\0{branch}" split-string " " "merged "] 8 (#$ . 66280)])
#@74 Set summary of commit message to 'merged ...' if committing after merge.
(defalias 'vc-hgcmd--set-log-edit-summary #[0 "\301 \206 \302\203 !\202 \211\211\205 \211G\205 \212\211c)\207" [vc-hgcmd-log-edit-message-function vc-hgcmd--log-edit-default-message ""] 3 (#$ . 66562)])
#@38 Toggle --close-branch commit option.
(defalias 'vc-hgcmd-log-edit-toggle-close-branch #[0 "\300\301\302\"\207" [log-edit-toggle-header "Close-branch" "yes"] 3 (#$ . 66852) nil])
#@85 Toggle --amend commit option.  If on, insert commit message of the previous commit.
(defalias 'vc-hgcmd-log-edit-toggle-amend #[0 "\300\301\302\"\205 \303\304\305\306\307\310\311\312%\"\207" [log-edit-toggle-header "Amend" "yes" log-edit-set-header "Summary" vc-hgcmd-command "log" "-l" "1" "--template" "{desc}"] 8 (#$ . 67036) nil])
#@27 Keymap for log edit mode.
(defvar vc-hgcmd-log-edit-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\211\207" [make-sparse-keymap define-key "" vc-hgcmd-log-edit-toggle-amend "\f" vc-hgcmd-log-edit-toggle-close-branch] 5) (#$ . 67378))
(defvar vc-hgcmd-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-hgcmd-log-edit-mode-hook variable-documentation put "Hook run after entering Log-Edit/Hgcmd 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-hgcmd-log-edit-mode-map definition-name vc-hgcmd-log-edit-mode] 4)
(defvar vc-hgcmd-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-hgcmd-log-edit-mode-abbrev-table vc-hgcmd-log-edit-mode-map variable-documentation put purecopy "Keymap for `vc-hgcmd-log-edit-mode'." boundp vc-hgcmd-log-edit-mode-syntax-table definition-name vc-hgcmd-log-edit-mode (lambda (#1=#:def-tmp-var) (defvar vc-hgcmd-log-edit-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-hgcmd-log-edit-mode'." (lambda (#1#) (defvar vc-hgcmd-log-edit-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-hgcmd-log-edit-mode'." derived-mode-parent log-edit-mode] 5)
#@260 Major mode for editing Hgcmd log messages.

\{vc-hgcmd-log-edit-mode-map}

In addition to any hooks its parent mode `log-edit-mode' might have run,
this mode runs the hook `vc-hgcmd-log-edit-mode-hook', as the final or penultimate step
during initialization.
(defalias 'vc-hgcmd-log-edit-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315!\204' \316\317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R =\204R \326\325C#\210\327!\210\330\f!\210\331\332\333\307\211$\210)\334\335!\207" [delay-mode-hooks major-mode mode-name vc-hgcmd-log-edit-mode-map vc-hgcmd-log-edit-mode-syntax-table vc-hgcmd-log-edit-mode-abbrev-table make-local-variable t log-edit-mode vc-hgcmd-log-edit-mode "Log-Edit/Hgcmd" 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 add-hook log-edit-hook vc-hgcmd--set-log-edit-summary run-mode-hooks vc-hgcmd-log-edit-mode-hook local-abbrev-table] 5 (#$ . 68942) nil])
#@25 Delete FILE.

(fn FILE)
(defalias 'vc-hgcmd-delete-file #[257 "\300\301\302\303!#\207" [vc-hgcmd-command "remove" "--force" vc-hgcmd--file-relative-name] 6 (#$ . 70081)])
#@58 Rename file from OLD to NEW using `hg mv'.

(fn OLD NEW)
(defalias 'vc-hgcmd-rename-file #[514 "\300\301\302!\302!#\207" [vc-hgcmd-command "move" vc-hgcmd--file-relative-name] 7 (#$ . 70259)])
#@51 Return t if FILE is in conflict state.

(fn FILE)
(defalias 'vc-hgcmd--file-unresolved-p #[257 "\300\301\302\303!#\211\205 \211\304H\305=\207" [vc-hgcmd-command "resolve" "-l" vc-hgcmd--file-relative-name 0 85] 6 (#$ . 70460)])
#@85 After save hook.  Mark file as resolved if vc state eq conflict and no smerge mode.
(defalias 'vc-hgcmd--after-save-hook #[0 "\205% \212eb\210\301\302\303\304#)?\205% \305\306\307\"!\205% \310C!\210\311\312\313\304#\207" [buffer-file-name re-search-forward "^<<<<<<< " nil t yes-or-no-p format "Hgcmd: Mark %s as resolved? " vc-hgcmd-mark-resolved remove-hook after-save-hook vc-hgcmd--after-save-hook] 4 (#$ . 70696)])
#@64 Find file hook.  Start smerge session if vc state eq conflict.
(defalias 'vc-hgcmd-find-file-hook #[0 "\205 \301\302\"\303=\205 \304 \210\305\306\307\310\311$\210\312!\207" [buffer-file-name vc-state Hgcmd conflict smerge-start-session add-hook after-save-hook vc-hgcmd--after-save-hook nil t vc-message-unresolved-conflicts] 5 (#$ . 71125)])
#@71 List of files with conflict or resolved conflict.

(fn &optional DIR)
(defalias 'vc-hgcmd-conflicted-files #[256 "\301\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314\315\316\317Dp\301\211\320\301\211&!\205J eb\210m\204I \321`\312\\\322 \"\323\301f\"ABB\262\266\301y\210\202) *\262\207" [vc-hgcmd--translation-resolve nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-hgcmd--run-command record vc-hgcmd--command "resolve" "--list" t buffer-substring-no-properties line-end-position assoc] 13 (#$ . 71479)])
#@62 Return the ignore file of the repository of FILE.

(fn FILE)
(defalias 'vc-hgcmd-find-ignore-file #[257 "\300\301\302!\"\207" [expand-file-name ".hgignore" vc-hgcmd-root] 5 (#$ . 72095)])
#@99 Return the URL of REMOTE or default repository of FILE-OR-DIR.

(fn FILE-OR-DIR &optional REMOTE)
(defalias 'vc-hgcmd-repository-url #[513 "\301!\302\303\304\206\f \305P\")\207" [default-directory vc-hgcmd-root vc-hgcmd-command "config" "paths." "default"] 6 (#$ . 72290)])
#@38 Run custom hg COMMAND.

(fn COMMAND)
(defalias 'vc-hgcmd-runcommand #[257 "\300\301!!\207" [vc-hgcmd-command-update-callback split-string-and-unquote] 4 (#$ . 72573) "sRun hg: "])
(provide 'vc-hgcmd)