ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/vc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/vc/vc-hg.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\304\320\306\301& \210\310\321\312\313\322DD\323\316\324\304\325\306\301& \210\310\326\312\313\327DD\330\316\331\304\332\306\301& \210\310\333\312\313\334DD\335\316\336\306\301&\210\310\337\312\313\340DD\341\316\342\306\301\304\343& \207" [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-face) (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])
(defalias 'vc-hg-checkout-model #[257 "\300\207" [implicit] 2 "\n\n(fn FILES)"])
#@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 (#$ . 2912)])
#@47 Hg-specific version of `vc-state'.
(fn FILE)
(defalias 'vc-hg-state #[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\261 \211G\331V\205\261 \332\333\"?\205\261 \211\331H\211\334=\203h \335\202\257 \211\336=\203r \337\202\257 \211\340=\203| \341\202\257 \211\342=\203\206 \343\202\257 \211\344=\203\220 \345\202\257 \211\346=\203\232 \347\202\257 \211\350=\203\244 \351\202\257 \211\352=\203\256 \335\202\257 \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$" 61 up-to-date 65 added 77 edited 73 ignored 82 removed 33 missing 63 unregistered 67] 15 (#$ . 3123)])
#@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 (#$ . 4231)])
(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 (#$ . 5072))
#@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" (#$ . 5170))
#@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? \321 D\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 (#$ . 5463)])
#@168 Hook run after entering Hg-Log-View mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar vc-hg-log-view-mode-hook nil (#$ . 6201))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp vc-hg-log-view-mode-map put definition-name vc-hg-log-view-mode] 4)
(defvar vc-hg-log-view-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [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] 5)
(defvar vc-hg-log-view-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vc-hg-log-view-mode-syntax-table variable-documentation put purecopy "Syntax table for `vc-hg-log-view-mode'." vc-hg-log-view-mode-abbrev-table definition-name vc-hg-log-view-mode] 5)
(defvar vc-hg-log-view-mode-abbrev-table (progn (define-abbrev-table 'vc-hg-log-view-mode-abbrev-table nil) vc-hg-log-view-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vc-hg-log-view-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `vc-hg-log-view-mode'." vc-hg-log-view-mode derived-mode-parent log-view-mode] 5)
#@514 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 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 (#$ . 7602) 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 (#$ . 9787)])
(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 "\n\n(fn REVISION)"])
(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 "\n\n(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 "\n\n(fn FILES)"])
#@157 Execute "hg annotate" on FILE, inserting the contents in BUFFER.
Optional arg REVISION is a revision to annotate from.
(fn FILE BUFFER &optional REVISION)
(defalias 'vc-hg-annotate-command #[770 "\300\301\302\303\304\305\306\307\310\311\"\n\205 \312 PC\"&\207" [apply vc-hg-command 0 "annotate" "-dq" "-n" append vc-switches hg annotate "-r"] 15 (#$ . 11502)])
(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 (#$ . 12568)])
#@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 (#$ . 12846)])
(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 "\n\n(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 "\n\n(fn FILE REV)"])
#@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 (#$ . 13925)])
#@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 (#$ . 14186)])
#@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 (#$ . 14355)])
#@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 (#$ . 14538)])
(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 (#$ . 14730)])
#@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 (#$ . 14879)])
(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 "\n\n(fn FILE REV BUFFER)"])
#@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 (#$ . 15411)])
#@124 Retrieve a revision of FILE.
EDITABLE is ignored.
REV is the revision to check out into WORKFILE.
(fn FILE &optional REV)
(defalias 'vc-hg-checkout #[513 "\302\211r\303!\206\f pq\210\211\203 \304\305\306\307\310&\202% \304\305\306\307$+\207" [coding-system-for-write coding-system-for-read binary get-file-buffer vc-hg-command t 0 "cat" "-r"] 9 (#$ . 15604)])
#@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 (#$ . 15980)])
(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])
(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 "\n\n(fn FILE &optional CONTENTS-DONE)"])
(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])
(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 (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 3) (memq (aref cl-x 0) cl-struct-vc-hg-extra-fileinfo-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'vc-hg-extra-fileinfo-p 'compiler-macro 'vc-hg-extra-fileinfo-p--cmacro)
(defalias 'vc-hg-extra-fileinfo-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-vc-hg-extra-fileinfo-tags vectorp 3 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\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] 4)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-vc-hg-extra-fileinfo-tags)) (signal 'wrong-type-argument (list 'vc-hg-extra-fileinfo cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'vc-hg-extra-fileinfo->rename-state 'compiler-macro 'vc-hg-extra-fileinfo->rename-state--cmacro)
(defalias 'vc-hg-extra-fileinfo->rename-state #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-vc-hg-extra-fileinfo-tags 0 signal wrong-type-argument vc-hg-extra-fileinfo 1] 5 "\n\n(fn CL-X)"])
(function-put 'vc-hg-extra-fileinfo->rename-state 'side-effect-free t)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-vc-hg-extra-fileinfo-tags)) (signal 'wrong-type-argument (list 'vc-hg-extra-fileinfo cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'vc-hg-extra-fileinfo->extra-name 'compiler-macro 'vc-hg-extra-fileinfo->extra-name--cmacro)
(defalias 'vc-hg-extra-fileinfo->extra-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-vc-hg-extra-fileinfo-tags 0 signal wrong-type-argument vc-hg-extra-fileinfo 2] 5 "\n\n(fn CL-X)"])
(function-put 'vc-hg-extra-fileinfo->extra-name 'side-effect-free t)
#@56
(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 "Constructor for objects of type `vc-hg-extra-fileinfo'." (declare (side-effect-free t)) (vector 'cl-struct-vc-hg-extra-fileinfo rename-state extra-name))] 12 (#$ . 19576)])
(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)" vector cl-struct-vc-hg-extra-fileinfo] 7 (#$ . 20363)])
(function-put 'make-vc-hg-extra-fileinfo 'side-effect-free t)
(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 "Constructor for objects of type `vc-hg-extra-fileinfo'." (declare (side-effect-free t)) (vector 'cl-struct-vc-hg-extra-fileinfo rename-state extra-name)) nil] 11 "\n\n(fn CL-WHOLE-ARG RENAME-STATE EXTRA-NAME)"])
(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" [vector cl-struct-vc-hg-extra-fileinfo] 6 (#$ . 21415)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put vc-hg-create-extra-fileinfo side-effect-free t cl-struct-define vc-hg-extra-fileinfo nil cl-structure-object ((cl-tag-slot) (rename-state) (extra-name)) cl-struct-vc-hg-extra-fileinfo-tags cl-struct-vc-hg-extra-fileinfo] 10)
#@62 Pretty-printer for the vc-dir-fileinfo structure.
(fn INFO)
(defalias 'vc-hg-dir-printer #[257 "\3018\302\303\"\210\211\205[ \304\305\306\307H>\204 \310\311\312D\"\210\313H\211\314=\203, \315\202A \211\316=\2036 \317\202A \211\320=\203@ \321\202A \322\262\307H>\204S \310\311\312D\"\210\301H#\323\324#c\207" [cl-struct-vc-hg-extra-fileinfo-tags 2 vc-default-dir-printer Hg propertize format " (%s %s)" 0 signal wrong-type-argument vc-hg-extra-fileinfo 1 copied "copied from" renamed-from "renamed from" renamed-to "renamed to" nil face font-lock-comment-face] 10 (#$ . 21947)])
(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=\203N AA\211\311\312\313\n#\240\266\314\262\202\226 \211\203\210 \315=\203\210 \3058\316H>\204k \317\320\321\3058D\"\210\3058\211\322\323I\266\311\312\324@#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 vector cl-struct-vc-hg-extra-fileinfo copied t removed 0 signal wrong-type-argument vc-hg-extra-fileinfo 1 renamed-from renamed-to] 13 "\n\n(fn 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 "\n\n(fn DIR FILES UPDATE-FUNCTION)"])
(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 "\n\n(fn NAME &rest COMMANDS)"])
#@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 (#$ . 24183)])
(defalias 'vc-hg-log-incoming #[514 "\300\301\302\303\304\305\230?\205 &\207" [vc-hg-command 1 nil "incoming" "-n" ""] 10 "\n\n(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 "\n\n(fn BUFFER REMOTE-LOCATION)"])
#@63 Value of `compilation-error-regexp-alist' in *vc-hg* buffers.
(defvar vc-hg-error-regexp-alist nil (#$ . 24831))
(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 "\302\203! \303 \211\262\203! \304\305\302\306\302\304\307\310\311\n\"\"&\202\207 \312!\313\314\315!\" \316\232\2053 \317\203l \320\321\313\322 \"\313\323
\204N \324\202V \325\326\327\n\325#P$\330#\325\331#\262\211@\262\211A@\262\211AA\262\304\332\f&\210rq\210\333\334!\210)\335!\266\204\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" "" " " mapconcat identity vc-hg-history t vc-do-async-command vc-exec-after #[0 "\300\301!\207" [vc-compilation-mode hg] 2] vc-set-async-update] 20 (#$ . 25082)])
#@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 (#$ . 26157) "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 (#$ . 26707) "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 (#$ . 27122)])
#@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 (#$ . 27542)])
(defalias 'vc-hg-root #[257 "\300\301\"\207" [vc-find-root ".hg"] 4 "\n\n(fn FILE)"])
(provide 'vc-hg)
Kontol Shell Bypass