;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(defalias 'vc-bzr-revision-granularity #[0 "\300\207" [repository] 1])
#@14 

(fn FILES)
(defalias 'vc-bzr-checkout-model #[257 "\300\207" [implicit] 2 (#$ . 155)])
(byte-code "\300\301!\210\302\303\304\305#\210\306\307\305\310\311\312\313\314&\210\315\316\317\320\321DD\322\323\324%\210\315\325\317\320\326DD\327\323\330%\210\315\331\317\320\332DD\333\323\334\311\335&\210\315\336\317\320\337DD\340\323\341%\210\315\342\317\320\343DD\344\323\345\311\346&\207" [require vc-dispatcher put Bzr vc-functions nil custom-declare-group vc-bzr "VC Bazaar (bzr) backend." :version "22.2" :group vc custom-declare-variable vc-bzr-program funcall function #[0 "\300\207" ["bzr"] 1 #1=""] "Name of the bzr command (excluding any arguments)." :type string vc-bzr-diff-switches #[0 "\300\207" [nil] 1 #1#] "String or list of strings specifying switches for bzr 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)) vc-bzr-annotate-switches #[0 "\300\207" [nil] 1 #1#] "String or list of strings specifying switches for bzr annotate under VC.\nIf nil, use the value of `vc-annotate-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)) "25.1" vc-bzr-log-switches #[0 "\300\207" [nil] 1 #1#] "String or list of strings specifying switches for bzr log under VC." (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) vc-bzr-status-switches #[0 "\30311\304\305\306\"r\211q\210\307\310\"\216\311\312\"	B\313\n\314\306\314\315\316&\210)\317\320\314\306#\205,\320*\262
0\207\210\314\207" [null-device process-environment vc-bzr-program (error) generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] format "BZR_LOG=%s" call-process nil "help" "status" search-backward "--no-classify"] 8 #1#] "String or list of strings specifying switches for bzr status under VC.\nThe option \"--no-classify\" should be present if your bzr supports it." (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) "24.1"] 8)
#@290 Wrapper round `vc-do-command' using `vc-bzr-program' as COMMAND.
Invoke the bzr command adding `BZR_PROGRESS_BAR=none' and
`LC_MESSAGES=C' to the environment.  If BZR-COMMAND is "status",
prepends `vc-bzr-status-switches' to ARGS.

(fn BZR-COMMAND BUFFER OKSTATUS FILE-OR-LIST &rest ARGS)
(defalias 'vc-bzr-command #[1156 "\303\304BB\305\306\206
\307	\n\211\310\230\203/\n\203/\311\n;\203(\nC\202)\n	\"\2021&)\207" [process-environment vc-bzr-program vc-bzr-status-switches "BZR_PROGRESS_BAR=none" "LC_MESSAGES=C" apply vc-do-command "*vc*" "status" append] 15 (#$ . 2459)])
#@352 Wrapper round `vc-do-async-command' using `vc-bzr-program' as COMMAND.
Invoke the bzr command adding `BZR_PROGRESS_BAR=none' and
`LC_MESSAGES=C' to the environment.
Use the current Bzr root directory as the ROOT argument to
`vc-do-async-command', and specify an output buffer named
"*vc-bzr : ROOT*".  Return this buffer.

(fn BZR-COMMAND &rest ARGS)
(defalias 'vc-bzr-async-command #[385 "\303\304BB\305	!\306\307\310!\"\311\312\n&\210)\207" [process-environment default-directory vc-bzr-program "BZR_PROGRESS_BAR=none" "LC_MESSAGES=C" vc-bzr-root format "*vc-bzr : %s*" expand-file-name apply vc-do-async-command] 11 (#$ . 3058)])
#@63 Name of the directory containing Bzr repository status files.
(defconst vc-bzr-admin-dirname ".bzr" (#$ . 3707))
#@46 Name of the format file in a .bzr directory.
(defconst vc-bzr-admin-checkout-format-file (concat vc-bzr-admin-dirname "/checkout/format") (#$ . 3826))
(defconst vc-bzr-admin-dirstate (concat vc-bzr-admin-dirname "/checkout/dirstate"))
(defconst vc-bzr-admin-branch-format-file (concat vc-bzr-admin-dirname "/branch/format"))
(defconst vc-bzr-admin-revhistory (concat vc-bzr-admin-dirname "/branch/revision-history"))
(defconst vc-bzr-admin-lastrev (concat vc-bzr-admin-dirname "/branch/last-revision"))
(defconst vc-bzr-admin-branchconf (concat vc-bzr-admin-dirname "/branch/branch.conf"))
#@77 Return the root directory of the bzr repository containing FILE.

(fn FILE)
(defalias 'vc-bzr-root #[257 "\301
\302\"\206\303
\"\211\205\304\302#\262
\207" [vc-bzr-admin-checkout-format-file vc-file-getprop bzr-root vc-find-root vc-file-setprop] 6 (#$ . 4422)])
#@305 Return the Bazaar branch settings for file FILE, as an alist.
Each element of the returned alist has the form (NAME . VALUE),
which are the name and value of a Bazaar setting, as strings.

The settings are read from the file ".bzr/branch/branch.conf"
in the repository root directory of FILE.

(fn FILE)
(defalias 'vc-bzr-branch-conf #[257 "\301\302\303\304\"r\211q\210\305\306\"\216\307\310\311!\"!\210\312\313\301\304#\203.\314\315!\314\316!BB\262\202*\210\207" [vc-bzr-admin-branchconf nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents expand-file-name vc-bzr-root re-search-forward "^\\([^#=][^=]*?\\) *= *\\(.*\\)$" match-string 1 2] 8 (#$ . 4698)])
#@13 

(fn FILE)
(defalias 'vc-bzr-sha1 #[257 "\300\301\302\"r\211q\210\303\304\"\216\305\306!\210\307!\210\310p!*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil insert-file-contents-literally sha1] 5 (#$ . 5455)])
#@67 Like `vc-bzr-state' but hopefully without running Bzr.

(fn FILE)
(defalias 'vc-bzr-state-heuristic #[257 "\301
!\302\"
\205
\3031\375\304\305\306\"r\211q\210\307\310\"\216\311!\210eb\210\312\313!\204/\314!\202\370\315\"\316
!\317\320\205A\321\322!!\323\321\324!!\325\260\326\306#\204W\266\327\202\370\330\224f\331=\203e\266\332\202\370\333\224\203r\333\224f\331=\203x\266\334\202\370\335\336\337\340!!\341!\342
8\262
\"\203\311\337\343!\344 \307\345\"\216\346!)\262
\232\203\311\330\224f\347=\203\357\350\351\352\341	!\353
8\262
\">\342\224f\354=\203\302\211\202\304\211?\262
\204\357\355\224\355\225=\203\365\335\336\337\356!!\341!\342
8\262
\"\203\365\337\343!\346!\232\203\365\266\357\202\370\266\360*\262
0\207\361\362\"\210\314!\262
\207" [vc-bzr-admin-dirstate vc-bzr-root expand-file-name (error) generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents looking-at "#bazaar dirstate flat format 3" vc-bzr-state file-relative-name file-name-directory re-search-forward "^" regexp-quote directory-file-name "" file-name-nondirectory "[^]*\\([^]*\\)\\([^]*\\)\\([^]*\\)[^]*[^]*\\(?:\\([^]*\\)\\([^]*\\)\\([^]*\\)\\([^]*\\)[^]*\\)?" nil unregistered 1 97 removed 4 added eql string-to-number match-string 3 file-attributes 7 5 match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] vc-bzr-sha1 102 120 mapcar identity 8 121 2 6 up-to-date edited message "Falling back on \"slow\" status detection (%S)"] 13 (#$ . 5769)])
#@59 Return non-nil if FILE is registered with bzr.

(fn FILE)
(defalias 'vc-bzr-registered #[257 "\300
!\211\301>?\207" [vc-bzr-state-heuristic (nil unregistered ignored)] 4 (#$ . 7366)])
#@64 Regexp matching file status words as reported in `bzr' output.
(defconst vc-bzr-state-words "added\\|ignored\\|kind changed\\|modified\\|removed\\|renamed\\|unknown" (#$ . 7556))
(defvar vc-bzr-history nil)
#@87 Return file name FILENAME stripped of the initial Bzr repository path.

(fn FILENAME)
(defalias 'vc-bzr-file-name-relative #[257 "\300
!\301
!\211\205\302\"\207" [expand-file-name vc-bzr-root file-relative-name] 6 (#$ . 7769)])
#@64 Value of `compilation-error-regexp-alist' in *vc-bzr* buffers.
(defvar vc-bzr-error-regexp-alist '(("^\\( M[* ]\\|\\+N \\|-D \\|\\|  \\*\\|R[M ] \\) \\(.+\\)" 2 nil nil 1) ("^C  \\(.+\\)" 2) ("^Text conflict in \\(.+\\)" 1 nil nil 2) ("^Using saved parent location: \\(.+\\)" 1 nil nil 0)) (#$ . 8007))
#@150 Run COMMAND (a string; either push or pull) on the current Bzr branch.
If PROMPT is non-nil, prompt for the Bzr command to run.

(fn COMMAND PROMPT)
(defalias 'vc-bzr--pushpull #[514 "
C\302	!\303\304\"\211\205\211A\227\305\232\303\242\306\232\203 \307\202!\310\"\311C\203;\242\306\232\2037\312\313!\210\202;\314\240\210\204U\242\306\232\203L
?\202R\206Q
?\203~\211\315\316\317\320\n\242\"\317\321\f\242#\322#\323\324#\240\210\211\242@
\242A@\240\210\211
\242AA\240\210\325\326!\210\327\330\242\242#r\211q\210\331\332\333	#!\210)\334
!\262
)\207" [vc-bzr-program default-directory vc-bzr-branch-conf assoc "bound" "true" "push" "push_location" "parent_location" nil user-error "Cannot push a bound branch" "update" split-string read-shell-command format "Bzr %s command: " "%s %s" vc-bzr-history " " t require vc-dispatcher apply vc-bzr-async-command vc-exec-after make-closure #[0 "\304\305!\210\306\303!\210\n\307\300\242\307\301\242\203\310\311\301\242\307#\202\312\260\211\207" [V0 V1 vc-bzr-program compile-command vc-compilation-mode bzr make-local-variable " " mapconcat identity ""] 8] vc-set-async-update] 16 (#$ . 8317)])
#@280 Pull changes into the current Bzr branch.
Normally, this runs "bzr pull".  However, if the branch is a
bound branch, run "bzr update" instead.  If there is no default
location from which to pull or update, or if PROMPT is non-nil,
prompt for the Bzr command to run.

(fn PROMPT)
(defalias 'vc-bzr-pull #[257 "\300\301\"\207" [vc-bzr--pushpull "pull"] 4 (#$ . 9496)])
#@179 Push changes from the current Bzr branch.
Normally, this runs "bzr push".  If there is no push location,
or if PROMPT is non-nil, prompt for the Bzr command to run.

(fn PROMPT)
(defalias 'vc-bzr-push #[257 "\300\301\"\207" [vc-bzr--pushpull "push"] 4 (#$ . 9871)])
#@201 Merge another Bzr branch into the current one.
Prompt for the Bzr command to run, providing a pre-defined merge
source (an upstream branch or a previous merge source) as a
default if it is available.
(defalias 'vc-bzr-merge-branch #[0 "\302!\303\304\305\"\211\262\203\211A\202\304\306\"\211\262\205\211A\307\310\311	\312\203/\313P\2020\314Q\315#\313\316#\211@\211A@
AA\317\320#r\211q\210\321\322!\210)\323
!\262
)\207" [default-directory vc-bzr-program vc-bzr-branch-conf nil assoc "submit_branch" "parent_location" split-string read-shell-command "Bzr merge command: " " merge --pull" " " "" vc-bzr-history t apply vc-bzr-async-command vc-exec-after #[0 "\300\301!\207" [vc-compilation-mode bzr] 2] vc-set-async-update] 10 (#$ . 10145)])
#@432 Return FILE status according to Bzr.
Return value is a cons (STATUS . WARNING), where WARNING is a
string or nil, and STATUS is one of the symbols: `added',
`ignored', `kindchanged', `modified', `removed', `renamed', `unknown',
which directly correspond to `bzr status' output, or `unchanged'
for files whose copy in the working tree is identical to the one
in the branch repository (or whose status not be determined).

(fn FILE)
(defalias 'vc-bzr-status #[257 "\301\302\303\"r\211q\210\304\305\"\216\3061\307\310\303\311$0\210\202\"\312\313\"\266\314eb\210\315\316\317\320\321!!\322!\203;\323\202<\324\325\260\326\303#\203W\327\330!\311\224\311\225|\210\331\332\333\334#!\266\202\211\205leb\210\335\326w\210\211m?\205k`d{B\262
*\207" [vc-bzr-state-words generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] (error) vc-bzr-command "status" 0 message "Error: %S" unchanged re-search-forward "^\\(" "\\):[ 	\n]+" regexp-quote vc-bzr-file-name-relative file-directory-p "/?" "\\*?" "[ 	\n]*$" nil match-string 1 intern string-replace " " "" " \n	"] 10 (#$ . 10910)])
#@13 

(fn FILE)
(defalias 'vc-bzr-state #[257 "\300
!\211:\205.\211A\211\203(\301\302\"\203\303\304\305\211$\262
\211\304\230\204(\306\307\"\210\210\211@\310\236A\207" [vc-bzr-status string-match "[0-9]+ shel\\(f\\|ves\\) exists?\\..*?\n" replace-match "" nil message "Warnings in `bzr' output: %s" ((added . added) (kindchanged . edited) (renamed . edited) (modified . edited) (removed . removed) (ignored . ignored) (unknown . unregistered) (unchanged . up-to-date))] 8 (#$ . 12059)])
#@63 Call "bzr resolve" if the conflict markers have been removed.
(defalias 'vc-bzr-resolve-when-done #[0 "\212eb\210\301\302\303\304#?\205\305\306\303\307$\210\310\311\312\304#)\207" [buffer-file-name re-search-forward "^<<<<<<< " nil t vc-bzr-command "resolve" 0 remove-hook after-save-hook vc-bzr-resolve-when-done] 5 (#$ . 12556)])
(defalias 'vc-bzr-find-file-hook #[0 "\2056\301\302P!\2056\301\303P!\2056\301\304P!\2056\212eb\210\305\306\307\310#)\2056\311 \210\312\313\314\307\310$\210\315!\207" [buffer-file-name file-exists-p ".BASE" ".OTHER" ".THIS" re-search-forward "^<<<<<<< " nil t smerge-start-session add-hook after-save-hook vc-bzr-resolve-when-done vc-message-unresolved-conflicts] 5])
#@176 Try to return as a string the bzr revision ID of directory DIR.
This uses the dirstate file's parent revision entry.
Returns nil if unable to find this information.

(fn DIR)
(defalias 'vc-bzr-version-dirstate #[257 "\300\301\"\302
!\2052\303\304\305\"r\211q\210\306\307\"\216\310!\210\311\312!\205/\313y\205/\311\314!\205/\315\316!*\262
\207" [expand-file-name ".bzr/checkout/dirstate" file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents looking-at "#bazaar dirstate flat format 3" 3 "[0-9]+\\([^\n]+\\)" match-string 1] 6 (#$ . 13275)])
#@13 

(fn FILE)
(defalias 'vc-bzr-working-revision #[257 "\306
!\307\"\307	\"\307\n\"\310!\203\325\307\311P\"\310
!\203\202\312\313\314\"r\211q\210\315\316\"\216\317!\210\320\321\322\314#\205|\323\324!\f\325>\203Y\326
\322\314\327#)\266\203\203Y\211\324\322O\262
\307\"\262\307\n\"\262\310!\205z\310!\205z\330
!\330!\232\262
*\262
\202\203\314\262
\203\325\312\313\314\"r\211q\210\315\331\"\216\317!\210eb\210\332\333!\204\250\332\334!\203\266\317!\210\335\336\337 d\"!\202\323\332\340!\204\302\332\341!\205\323\317!\210\320\342\322\314#\205\323\343\224\343\225{*\207\344)\345\346\347	!$\211@
A
\343=\203\365\211G\343U\204\365\211\343\350O\207\266\322\207" [vc-bzr-admin-branch-format-file vc-bzr-admin-revhistory vc-bzr-admin-lastrev vc-bzr-admin-dirname system-type inhibit-changing-match-data vc-bzr-root expand-file-name file-exists-p "/branch/location" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward "file://\\(.+\\)" nil match-string 1 (ms-dos windows-nt) "^/[[:alpha:]]:" string-match vc-bzr-version-dirstate #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] looking-at "Bazaar-NG branch, format 0.0.4" "Bazaar-NG branch format 5" number-to-string count-lines line-end-position "Bazaar Branch Format 6 (bzr 0.15)" "Bazaar Branch Format 7 (needs bzr 1.6)" "[0-9]+" 0 vc-bzr-command-discarding-stderr "revno" "--tree" file-relative-name -1 vc-bzr-program] 15 (#$ . 13927)])
#@30 Create a new Bzr repository.
(defalias 'vc-bzr-create-repo #[0 "\300\301\302\303\302$\207" [vc-bzr-command "init" nil 0] 5 (#$ . 15476)])
#@17 

(fn FILE REV)
(defalias 'vc-bzr-previous-revision #[514 "\300\301\"\203\302\303!S!\207\304
P\207" [string-match "\\`[0-9]+\\'" number-to-string string-to-number "before:"] 5 (#$ . 15620)])
#@17 

(fn FILE REV)
(defalias 'vc-bzr-next-revision #[514 "\300\301\"\203\302\303!T!\207\304\305\"\207" [string-match "\\`[0-9]+\\'" number-to-string string-to-number error "Don't know how to compute the next revision of %s"] 5 (#$ . 15821)])
#@78 Register FILES under bzr.  COMMENT is ignored.

(fn FILES &optional COMMENT)
(defalias 'vc-bzr-register #[513 "\300\301\302\303$\207" [vc-bzr-command "add" nil 0] 7 (#$ . 16071)])
(defalias 'vc-bzr-responsible-p 'vc-bzr-root "Return the directory if FILE is (potentially) controlled by bzr.\nThe criterion is that there is a `.bzr' directory in the same\nor a superior directory.")
#@38 Unregister FILE from bzr.

(fn FILE)
(defalias 'vc-bzr-unregister #[257 "\300\301\302\303\304%\207" [vc-bzr-command "remove" nil 0 "--keep"] 7 (#$ . 16460)])
#@12 

(fn ARG)
(defalias 'vc-bzr--sanitize-header #[257 "\300\301\"\207" [make-closure #[257 "\300\301\302\303\301\304\305##D\207" [V0 replace-regexp-in-string "\\`[ 	]+\\|[ 	]+\\'" "" "\n[ 	]?" " "] 9 "\n\n(fn STR)"]] 4 (#$ . 16625)])
#@83 Check FILES in to bzr with log message COMMENT.

(fn FILES COMMENT &optional REV)
(defalias 'vc-bzr-checkin #[770 "\300\301\302\303\304\305\306\307\310\311!B\312\310\313!B\314\310\315!BE\n\"B&\207" [apply vc-bzr-command "commit" nil 0 "-m" log-edit-extract-headers "Author" vc-bzr--sanitize-header "--author" "Date" "--commit-time" "Fixes" "--fixes"] 16 (#$ . 16866)])
#@79 Fetch revision REV of file FILE and put it into BUFFER.

(fn FILE REV BUFFER)
(defalias 'vc-bzr-find-revision #[771 "r\211q\210
\203!
;\203!
\300\230\204!\301\302\303\304\305&\202(\301\302\303\304$)\207" ["" vc-bzr-command "cat" t 0 "-r"] 10 (#$ . 17245)])
#@65 Return the root directory of the repository of FILE.

(fn FILE)
(defalias 'vc-bzr-find-ignore-file #[257 "\300\301\302!\"\207" [expand-file-name ".bzrignore" vc-bzr-root] 5 (#$ . 17519)])
#@27 

(fn FILE &optional REV)
(defalias 'vc-bzr-checkout #[513 "\211\205\300\301!\207" [error "Operation not supported"] 4 (#$ . 17714)])
#@37 

(fn FILE &optional CONTENTS-DONE)
(defalias 'vc-bzr-revert #[513 "\211?\205\300\301\302\"r\211q\210\303\304\"\216\305\306\302\307\310%*\262
\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] vc-bzr-command "revert" 0 "--no-backup"] 9 (#$ . 17856)])
(defvar vc-bzr-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-bzr-log-view-mode-hook variable-documentation put "Hook run after entering Bzr-Log-View mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp vc-bzr-log-view-mode-map definition-name vc-bzr-log-view-mode] 4)
(defvar vc-bzr-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-bzr-log-view-mode-abbrev-table vc-bzr-log-view-mode-map variable-documentation put purecopy "Keymap for `vc-bzr-log-view-mode'." boundp vc-bzr-log-view-mode-syntax-table definition-name vc-bzr-log-view-mode (lambda (#1=#:def-tmp-var) (defvar vc-bzr-log-view-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-bzr-log-view-mode'." (lambda (#1#) (defvar vc-bzr-log-view-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-bzr-log-view-mode'." derived-mode-parent log-view-mode] 5)
#@534 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-bzr-log-view-mode-map', `vc-bzr-log-view-mode-abbrev-table' and
`vc-bzr-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-bzr-log-view-mode-hook', as the final or penultimate
step during initialization.

\{vc-bzr-log-view-mode-map}
(defalias 'vc-bzr-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\311\"\210\333\334!\210\306\335!\210\336\306\337!\210.\306\340!\210/\341=\203\204\342\202\205\343 /\341=\203\230\3070\306\344!\210\345$\306\346!\210/\341=\203\255\347 \350BC!\202\265\347 \351BC\352\"&)\353\354!\207" [delay-mode-hooks major-mode mode-name vc-bzr-log-view-mode-map vc-bzr-log-view-mode-syntax-table vc-bzr-log-view-mode-abbrev-table make-local-variable t log-view-mode vc-bzr-log-view-mode "Bzr-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 remove-hook log-view-mode-hook require add-log log-view-per-file-logs nil log-view-file-re log-view-message-re short "^ *\\([0-9.]+\\): \\(.*?\\)[ 	]+\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\)\\( \\[merge\\]\\)?" "^ *\\(?:revno: \\([0-9.]+\\)\\|merged: .+\\)" log-view-expanded-log-entry-function vc-bzr-expanded-log-entry log-view-font-lock-keywords append ((1 'log-view-message) (2 'change-log-name) (3 'change-log-date) (4 'change-log-list nil lax)) 'log-view-message (("^ *\\(?:committer\\|author\\): \\([^<(]+?\\)[  ]*[(<]\\([[:alnum:]_.+-]+@[[:alnum:]_.-]+\\)[>)]" (1 'change-log-name) (2 'change-log-email)) ("^ *timestamp: \\(.*\\)" (1 'change-log-date))) run-mode-hooks vc-bzr-log-view-mode-hook local-abbrev-table regexp-unmatchable vc-log-view-type truncate-lines] 5 (#$ . 19461) nil])
(autoload 'vc-setup-buffer "vc-dispatcher")
#@288 Print commit log associated with FILES into specified BUFFER.
If SHORTLOG is non-nil, use --line 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-bzr-print-log #[1282 "\302!\210rq\210\303\304\305\306	\307	\203\310\202\311	\2056\312	\2031	\313U\2031\314\2022\315\"C\316=\205>\317C\n\205J\320\312\321
\"D\f\205\\\205\\\313V\205\\\322	;\203f	C\202g	&&)\207" [vc-log-view-type vc-bzr-log-switches vc-setup-buffer apply vc-bzr-command "log" async append ("--line") ("--long") format 1 "-r%s" "-r..%s" with-diff "-p" "-l" "%s" ("--no-aliases")] 19 (#$ . 21770)])
#@17 

(fn REVISION)
(defalias 'vc-bzr-expanded-log-entry #[257 "\301\302\303\"r\211q\210\304\305\"\216\306\307\310\303\311\211\312\313\314\315\"D;\203%C\202&\"&\210eb\210\316\317!\205>\320\321\225d\322#\210\321\225d{*\207" [vc-bzr-log-switches generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] apply vc-bzr-command "log" nil append "--long" format "-r%s" looking-at "^-+\n" indent-region 0 2] 13 (#$ . 22524)])
#@31 

(fn BUFFER REMOTE-LOCATION)
(defalias 'vc-bzr-log-incoming #[514 "\300\301\302\303\304\305\306\230?\205D&\207" [apply vc-bzr-command "missing" async nil "--theirs-only" ""] 11 (#$ . 23009)])
#@31 

(fn BUFFER REMOTE-LOCATION)
(defalias 'vc-bzr-log-outgoing #[514 "\300\301\302\303\304\305\306\230?\205D&\207" [apply vc-bzr-command "missing" async nil "--mine-only" ""] 11 (#$ . 23216)])
#@77 Find entry for patch name REVISION in bzr change log buffer.

(fn REVISION)
(defalias 'vc-bzr-show-log-entry #[257 "eb\210\211\205(\301\211
\302\303\304!\305Q\301\306#\203\"\307\310!\210\306\262
\202%eb\210)\262
\207" [case-fold-search nil re-search-forward "^[ ]*-+\n[ ]*revno: " regexp-quote "$" t beginning-of-line 0] 7 (#$ . 23421)])
(autoload 'vc-switches "vc")
#@71 VC bzr backend for diff.

(fn FILES &optional REV1 REV2 BUFFER ASYNC)
(defalias 'vc-bzr-diff #[1281 "\300\301\302\"\303
G\304U?\205\305\306\307\310#D\204\205.\311\312\313	\206&\314	\206,\315#D\"\316\317\320\2068\321\203A\322\202B\323&\207" [vc-switches bzr diff append 0 "--diff-options" mapconcat identity " " "-r" format "%s..%s" "revno:-1" "" apply vc-bzr-command "diff" "*vc-diff*" 1 async] 14 (#$ . 23799)])
#@61 Delete FILE and delete it in the bzr repository.

(fn FILE)
(defalias 'vc-bzr-delete-file #[257 "\3001\f\301
!0\210\202
\210\302\303\304\305$\207" [(file-error) delete-file vc-bzr-command "remove" nil 0] 6 (#$ . 24243)])
#@59 Rename file from OLD to NEW using `bzr mv'.

(fn OLD NEW)
(defalias 'vc-bzr-rename-file #[514 "\300!\262\300
!\262
\301\302\303\304%\210\305\306#\207" [expand-file-name vc-bzr-command "mv" nil 0 message "Renamed %s => %s"] 8 (#$ . 24473)])
#@15 Internal use.
(defvar vc-bzr-annotation-table nil (#$ . 24726))
(make-variable-buffer-local 'vc-bzr-annotation-table)
#@199 Prepare BUFFER for `vc-annotate' on FILE.
Each line is tagged with the revision number, which has a `help-echo'
property containing author and date information.

(fn FILE BUFFER &optional REVISION)
(defalias 'vc-bzr-annotate-command #[770 "\300\301\302\303\304\305\306\307\310\311\"\n\205\312D\"&\207" [apply vc-bzr-command "annotate" async "--long" "--all" append vc-switches bzr annotate "-r"] 15 (#$ . 24851)])
(defalias 'vc-bzr-annotate-time #[0 "\300\301\302\303#\205*\304\305!\306\307\310\211\211\311\312\313O!\311\314\312O!\311\310\314O!&!\262
\207" [re-search-forward "^[0-9.]+ +[^\n ]* +\\([0-9]\\{8\\}\\) |" nil t match-string-no-properties 1 vc-annotate-convert-time encode-time 0 string-to-number 6 8 4] 12])
#@108 Return revision for current line of annotation buffer, or nil.
Return nil if current line isn't annotated.
(defalias 'vc-bzr-annotate-extract-revision-at-line #[0 "\212\300 \210\301\302!\205
\303\304!)\207" [beginning-of-line looking-at "^\\([0-9.]+\\) +[^\n ]* +\\([0-9]\\{8\\}\\) |" match-string-no-properties 1] 2 (#$ . 25596)])
#@333 Execute shell command COMMAND (with ARGS); return its output and exitcode.
Return value is a cons (EXITCODE . OUTPUT), where EXITCODE is
the (numerical) exit code of the process, and OUTPUT is a string
containing whatever the process sent to its standard output
stream.  Standard error output is discarded.

(fn COMMAND &rest ARGS)
(defalias 'vc-bzr-command-discarding-stderr #[385 "\300\301\302\"r\211q\210\303\304\"\216\305\306\307p\307D\307&ed{*B\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] apply process-file nil] 10 (#$ . 25936)])
#@80 compiler-macro for inlining `vc-bzr-extra-fileinfo-p'.

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

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-bzr-extra-fileinfo->extra-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-bzr-extra-fileinfo->extra-name (progn (or (vc-bzr-extra-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'vc-bzr-extra-fileinfo cl-x))) (aref cl-x 1))) nil] 9 (#$ . 27277)])
(put 'vc-bzr-extra-fileinfo->extra-name 'compiler-macro 'vc-bzr-extra-fileinfo->extra-name--cmacro)
#@77 Access slot "extra-name" of `vc-bzr-extra-fileinfo' struct CL-X.

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

(fn CL-WHOLE &cl-quote &key EXTRA-NAME)
(defalias 'make-vc-bzr-extra-fileinfo--cmacro #[385 "\300
\301\"A@
\211\2031\211@\302>\203\211AA\262
\202\303>A@\203(\304\262
\202\305\306@\"\210\202\210\307\310\311\304\304&\207" [plist-member :extra-name (:extra-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:extra-name)" cl--defsubst-expand (extra-name) (cl-block make-vc-bzr-extra-fileinfo (record 'vc-bzr-extra-fileinfo extra-name))] 10 (#$ . 28193)])
(put 'make-vc-bzr-extra-fileinfo 'compiler-macro 'make-vc-bzr-extra-fileinfo--cmacro)
#@80 Constructor for objects of type `vc-bzr-extra-fileinfo'.

(fn &key EXTRA-NAME)
(defalias 'make-vc-bzr-extra-fileinfo #[128 "\300
\301\"A@
\211\2031\211@\302>\203\211AA\262
\202\303>A@\203(\304\262
\202\305\306@\"\210\202\210\307\310\"\207" [plist-member :extra-name (:extra-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:extra-name)" record vc-bzr-extra-fileinfo] 6 (#$ . 28847)])
(byte-code "\300\301\302\303#\300\207" [function-put make-vc-bzr-extra-fileinfo side-effect-free t] 4)
#@91 compiler-macro for inlining `vc-bzr-create-extra-fileinfo'.

(fn CL-WHOLE-ARG EXTRA-NAME)
(defalias 'vc-bzr-create-extra-fileinfo--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (extra-name) (cl-block vc-bzr-create-extra-fileinfo (record 'vc-bzr-extra-fileinfo extra-name)) nil] 9 (#$ . 29389)])
(put 'vc-bzr-create-extra-fileinfo 'compiler-macro 'vc-bzr-create-extra-fileinfo--cmacro)
#@75 Constructor for objects of type `vc-bzr-extra-fileinfo'.

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

(fn INFO)
(defalias 'vc-bzr-dir-printer #[257 "\301
8\302\303\"\210\211\205'\304\305\306\307!>\204\310\311\312D\"\210\313H\"\314\315#c\207" [cl-struct-vc-bzr-extra-fileinfo-tags 2 vc-default-dir-printer Bzr propertize format "   (renamed from %s)" type-of signal wrong-type-argument vc-bzr-extra-fileinfo 1 face font-lock-comment-face] 9 (#$ . 30275)])
#@37 

(fn UPDATE-FUNCTION RELATIVE-DIR)
(defalias 'vc-bzr-after-dir-status #[514 "\300\301\300\211eb\210\302\303!\203\304\305\300\306#\203\307y\210m\204\217\302\310!\204\211\311``\312\\\"\262\313\"A\262
\314\267\202x\311`\315\\\316 \"\313
\"\211\203M\211A\211\317\240\266\266\202\211\304\320\316 \306#\210\321\322\323!\"\321\322\307!\"
\324\325\326\"EB\266\203\202\211\202\211\321\311`\327\\\316 \"\"D
B\262
\300y\210\202
!\207" [nil (("+N " . added) ("-D " . removed) (" M " . edited) ("  *" . edited) (" M*" . edited) ("I  " . ignored) (" D " . missing) ("C  " . conflict) ("?  " . unregistered) ("R  " . renamed) ("RM " . renamed) ("bzr" . not-found) ("wor" . not-found) ("P  " . not-found) ("P. " . not-found)) looking-at "bzr: WARNING: bzrlib version doesn't match" re-search-forward "^bzr is version" t 1 "[0-9]+ shel\\(f\\|ves\\) exists?\\." buffer-substring-no-properties 3 assoc #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (conflict 55 renamed 82 not-found 117)) 21 line-end-position conflict "R[ M]  \\(.*\\) => \\(.*\\)$" file-relative-name match-string 2 edited record vc-bzr-extra-fileinfo 4] 13 (#$ . 30694)])
#@81 Return a list of conses (file . state) for DIR.

(fn DIR FILES UPDATE-FUNCTION)
(defalias 'vc-bzr-dir-status-files #[771 "\300\301\302p\303\304\305	&\210\306\307\310#!\207" [apply vc-bzr-command "status" async "-v" "-S" vc-exec-after make-closure #[0 "\302\301\303\300\304\300!\"\"\207" [V0 V1 vc-bzr-after-dir-status file-relative-name vc-bzr-root] 6]] 12 (#$ . 31891)])
(defvar vc-bzr-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\301
\317\320#\210\207" [make-sparse-keymap define-key [mouse-2] ignore [down-mouse-3] vc-bzr-shelve-menu "" vc-bzr-shelve-delete-at-point "=" vc-bzr-shelve-show-at-point "
" "A" vc-bzr-shelve-apply-and-keep-at-point "P" vc-bzr-shelve-apply-at-point "S" vc-bzr-shelve-snapshot] 5))
(defvar vc-bzr-shelve-menu-map (byte-code "\300\301!\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\207" [make-sparse-keymap "Bzr Shelve" define-key [de] (menu-item "Delete Shelf" vc-bzr-shelve-delete-at-point :help "Delete the current shelf") [ap] (menu-item "Apply and Keep Shelf" vc-bzr-shelve-apply-and-keep-at-point :help "Apply the current shelf and keep it") [po] (menu-item "Apply and Remove Shelf (Pop)" vc-bzr-shelve-apply-at-point :help "Apply the current shelf and remove it") [sh] (menu-item "Show Shelve" vc-bzr-shelve-show-at-point :help "Show the contents of the current shelve")] 5))
(defvar vc-bzr-extra-menu-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\207" [make-sparse-keymap define-key [bzr-sn] (menu-item "Shelve a Snapshot" vc-bzr-shelve-snapshot :help "Shelve the current state of the tree and keep the current state") [bzr-sh] (menu-item "Shelve..." vc-bzr-shelve :help "Shelve changes")] 5))
(defalias 'vc-bzr-extra-menu #[0 "\207" [vc-bzr-extra-menu-map] 1])
(defalias 'vc-bzr-extra-status-menu #[0 "\207" [vc-bzr-extra-menu-map] 1])
#@12 

(fn DIR)
(defalias 'vc-bzr-dir-extra-headers #[257 "\300\301\302\"r\211q\210\303\304\"\216\305\306\302\307$\210\310 *\262
\311 \312\313!\314!\315\316\"\317\320\"\2052\321\322\"\211\205C\317\323\"\205C\321\322\"\324\325\326\327#\324\317\330\n\"\203Y\321\322\n\"\202Z\331\326\332#\333\205o\324\334\326\327#\324\326\332#\333Q\205\200\324\335\326\327#\324\326\332#\333Q\n\203\227\324\336\326\327\337%\340\341
\333#P\202\250\324\342\326\327\337%\324\343\337
\326\332%P\260\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] vc-bzr-command "info" 0 buffer-string vc-bzr-shelve-list substitute-command-keys "Use \\[vc-bzr-shelve] to create shelves" vc-bzr-root format "A merge has been performed.\nA commit from the top-level directory (%s)\nis required before being able to check in anything else" string-match ".+light checkout root: \\(.+\\)$" match-string 1 ".+checkout of branch: \\(.+\\)$" propertize "Parent branch      : " face vc-dir-header "parent branch: \\(.+\\)$" "None" vc-dir-header-value "\n" "Light checkout root: " "Checkout of branch : " "Shelves            :\n" help-echo mapconcat #[257 "\301
\302\303\304\305\306\307\310&	\207" [vc-bzr-shelve-map propertize face vc-dir-header-value mouse-face highlight help-echo "mouse-3: Show shelve menu\nA: Apply and keep shelf\nP: Apply and remove shelf (pop)\nS: Snapshot to a shelf\nC-k: Delete shelf" keymap] 11 "\n\n(fn X)"] "Shelves            : " "No shelved changes"] 20 (#$ . 33829)])
#@54 Shelve the changes of the selected files.

(fn NAME)
(defalias 'vc-bzr-shelve #[257 "\301!\302 
\205\303\304\305\306A@\307\310	&\210\311\312\211#\207" [default-directory vc-bzr-root vc-deduce-fileset vc-bzr-command "shelve" nil 0 "--all" "-m" vc-resynch-buffer t] 11 (#$ . 35389) "sShelf name: "])
#@46 Show the contents of shelve NAME.

(fn NAME)
(defalias 'vc-bzr-shelve-show #[257 "\301\302!\210\303\304\302\305\306\307&\210\302q\210\310 \210\311\312p!\207" [buffer-read-only vc-setup-buffer "*vc-diff*" vc-bzr-command "unshelve" async nil "--preview" diff-mode t pop-to-buffer] 8 (#$ . 35700) "sShelve name: "])
#@56 Apply shelve NAME and remove it afterwards.

(fn NAME)
(defalias 'vc-bzr-shelve-apply #[257 "\301\302\303\304\303\305&\210\306\307!\310\211#\207" [default-directory vc-bzr-command "unshelve" nil 0 "--apply" vc-resynch-buffer vc-bzr-root t] 8 (#$ . 36023) "sApply (and remove) shelf: "])
#@54 Apply shelve NAME and keep it afterwards.

(fn NAME)
(defalias 'vc-bzr-shelve-apply-and-keep #[257 "\301\302\303\304\303\305\306&\210\307\310!\311\211#\207" [default-directory vc-bzr-command "unshelve" nil 0 "--apply" "--keep" vc-resynch-buffer vc-bzr-root t] 9 (#$ . 36320) "sApply (and keep) shelf: "])
#@45 Create a stash with the current tree state.
(defalias 'vc-bzr-shelve-snapshot #[0 "\301\302\303\304\303\305\306\307\310!&\210\301\311\303\304\303\312\313&\210\314\315!\316\211#\207" [default-directory vc-bzr-command "shelve" nil 0 "--all" "-m" format-time-string "Snapshot on %Y-%m-%d at %H:%M" "unshelve" "--apply" "--keep" vc-resynch-buffer vc-bzr-root t] 9 (#$ . 36635) nil])
(defalias 'vc-bzr-shelve-list #[0 "\300\301\302\"r\211q\210\303\304\"\216\305\306p\307\310\311\312&\210\313\314\315ed{\316\"\"*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] vc-bzr-command "shelve" 1 nil "--list" "-q" delete "" split-string "\n"] 8])
#@14 

(fn POINT)
(defalias 'vc-bzr-shelve-get-at-point #[257 "\212\211b\210\300 \210\301\302!\203\303\304!\202\305\306!)\207" [beginning-of-line looking-at "^ +\\([0-9]+\\):" match-string 1 error "Cannot find shelf at point"] 3 (#$ . 37348)])
(defalias 'vc-bzr-shelve-delete-at-point #[0 "\300`!\301\302\303\"!\205\304\305\306\307\306\310&\210\311 \207" [vc-bzr-shelve-get-at-point y-or-n-p format "Remove shelf %s ? " vc-bzr-command "unshelve" nil 0 "--delete-only" vc-dir-refresh] 8 nil nil])
(defalias 'vc-bzr-shelve-show-at-point #[0 "\300\301`!!\207" [vc-bzr-shelve-show vc-bzr-shelve-get-at-point] 3 nil nil])
(defalias 'vc-bzr-shelve-apply-at-point #[0 "\300\301`!!\207" [vc-bzr-shelve-apply vc-bzr-shelve-get-at-point] 3 nil nil])
(defalias 'vc-bzr-shelve-apply-and-keep-at-point #[0 "\300\301`!!\207" [vc-bzr-shelve-apply-and-keep vc-bzr-shelve-get-at-point] 3 nil nil])
#@10 

(fn E)
(defalias 'vc-bzr-shelve-menu #[257 "\212\211\301\232\204\302
!\303
\211@\262
!q\210\304
!b\266\305\")\207" [vc-bzr-shelve-menu-map (tool-bar) event-start window-buffer posn-point popup-menu] 5 (#$ . 38240) "e"])
#@14 

(fn FILES)
(defalias 'vc-bzr-revision-table #[257 "\302\303@!\304\305\306\"r\211q\210\307\310\"\216\311\312\313\306\314\315\316	;\203&	C\202'	\"&\210e\317ed\"\320\321\"\203N\322\323\"B\262
\314\225\\\262\317d\"\262
\2020\266*\210)\207" [default-directory vc-bzr-log-switches nil file-name-directory generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] apply vc-bzr-command "log" 0 append ("--line") buffer-substring-no-properties string-match "^\\([0-9]+\\):" match-string 1] 12 (#$ . 38473)])
#@12 

(fn DIR)
(defalias 'vc-bzr-conflicted-files #[257 "\301
!\302
\303\304\305\"r\211q\210\306\307\"\216\310\311\305\312$\210eb\210\313\314\302\305#\203@\315\316!\203@\317\225\2039\320\321\317!!B\262\312\225b\210\202%*\210)\207" [default-directory vc-bzr-root nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] vc-bzr-command "status" 0 re-search-forward "^conflicts:\n" looking-at "  \\(?:Text conflict in \\(.*\\)\\|.*\\)\n" 1 expand-file-name match-string] 9 (#$ . 39051)])
(defconst vc-bzr-revision-keywords '("ancestor" "annotate" "before" "branch" "date" "last" "mainline" "revid" "revno" "submit" "tag"))
#@14 

(fn FILES)
(defalias 'vc-bzr-revision-completion-table #[257 "\300\301\"\207" [make-closure #[771 "\305\306\"\203\307\310\211\225O\311\312\313\314\315$\310\225\316O%\207\305\317\"\2035\307\310\211\225O\320\300!\310\225\316O%\207\305\321\"\203\202\310\211\225O\310\225\316O\316\211\322\323\315\"r\211q\210\324\325\"\216\326\n\316\327\316\330\331&\210eb\210\332\333\316\315#\203u\334\335!B\262\202c*\210\307%)\207\305\336\"\203\237\307\310\211\225O\311\337\340B\313#\310\225\316O%\207\305\341\"\203\266\307\310\211\225O\342\310\225\316O%\207\305\343\"\203\327\307\310\211\225O\344\335\"\f\235\205\316\345\310\225\316O%\207\346
\347$\207" [V0 process-file-side-effects vc-bzr-program regexp-unmatchable vc-bzr-revision-keywords string-match "\\`\\(ancestor\\|branch\\|\\(revno:\\)?[-0-9]+:\\):" completion-table-with-context 0 apply-partially completion-table-with-predicate completion-file-name-table file-directory-p t nil "\\`\\(before\\):" vc-bzr-revision-completion-table "\\`\\(tag\\):" generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] process-file (t) "tags" "--show-ids" re-search-forward "^\\(.*[^ \n]\\) +[^ \n]*$" match-string-no-properties 1 "\\`annotate:" completion-table-with-terminator ":" "\\`date:" ("yesterday" "today" "tomorrow") "\\`\\([a-z]+\\):" match-string ("") complete-with-action ("ancestor:" "annotate:" "before:" "branch:" "date:" "last:" "mainline:" "revid:" "revno:" "submit:" "tag:")] 14 "\n\n(fn STRING PRED ACTION)"]] 4 (#$ . 39741)])
#@42 

(fn FILE-OR-DIR &optional REMOTE-NAME)
(defalias 'vc-bzr-repository-url #[513 "\301!\302\303\304\"r\211q\210\305\306\"\216\307\310p\311\312$\210eb\210\313\314\312\304#\203)\315\316!\202,\317\320!*\262
)\207" [default-directory vc-bzr-root generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] vc-bzr-command "info" 0 nil re-search-forward "parent branch: \\(.*\\)$" match-string 1 error "Cannot determine Bzr repository URL"] 8 (#$ . 41333)])
(provide 'vc-bzr)