%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'vc-bzr-revision-granularity #[0 "\300\207" [repository] 1])
#@14
(fn FILES)
(defalias 'vc-bzr-checkout-model #[257 "\300\207" [implicit] 2 (#$ . 479)])
(byte-code "\300\301\302\303#\210\304\305\303\306\307\310\311\312&\210\313\314\315\316\317DD\320\311\305\321\322&\210\313\323\315\316\324DD\325\321\326\311\305&\210\313\327\315\316\330DD\331\321\332\307\333\311\305& \210\313\334\315\316\335DD\336\321\337\311\305&\210\313\340\315\316\341DD\342\321\343\311\305\307\344& \207" [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" [#1="bzr"] 1 #1#] "Name of the bzr command (excluding any arguments)." :type string vc-bzr-diff-switches #[0 "\300\207" [nil] 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 (#2="") string)) vc-bzr-annotate-switches #[0 "\300\207" [nil] 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 (#2#) string)) "25.1" vc-bzr-log-switches #[0 "\300\207" [nil] 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 (#2#) string)) vc-bzr-status-switches #[0 "\30317 \304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315\316\" B\317\n\320\321\320\322\323&\210)\324\325\320\321#\2052 \325*\2620\207\210\320\207" [null-device process-environment vc-bzr-program (error) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 format "BZR_LOG=%s" call-process nil t "help" "status" search-backward "--no-classify"] 8] "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 (#2#) string)) "24.1"] 10)
#@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 (#$ . 2807)])
#@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 (#$ . 3406)])
#@63 Name of the directory containing Bzr repository status files.
(defconst vc-bzr-admin-dirname ".bzr" (#$ . 4055))
#@46 Name of the format file in a .bzr directory.
(defconst vc-bzr-admin-checkout-format-file (concat vc-bzr-admin-dirname "/checkout/format") (#$ . 4174))
(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 (#$ . 4770)])
#@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!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314\315!\"!\210\316\317\301\320#\2034 \321\322!\321\312!BB\262\202 *\210\211\207" [vc-bzr-admin-branchconf nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents expand-file-name vc-bzr-root re-search-forward "^\\([^#=][^=]*?\\) *= *\\(.*\\)$" t match-string 1] 9 (#$ . 5046)])
#@13
(fn FILE)
(defalias 'vc-bzr-sha1 #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312!\210\313!\210\314p!*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte nil insert-file-contents-literally sha1] 8 (#$ . 5833)])
#@67 Like `vc-bzr-state' but hopefully without running Bzr.
(fn FILE)
(defalias 'vc-bzr-state-heuristic #[257 "\301!\302\"\205\3031\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315!\210eb\210\316\317!\2045 \320!\202\375 \321\"\322!\323\324\205G \325\326!!\327\325\330!!\331\260\332\333#\204[ \334\202\373 \335\224f\336=\203g \337\202\373 \340\224\203t \340\224f\336=\203x \341\202\373 \342\343\344\345!!\346!\3478\262\"\203\320 \344\350!\351 \306\307\352\311\312!\353\"\345$\216\354!)\262\232\203\320 \335\224f\355=\203\366 \356\357\360\346 !\3618\262\">\347\224f\362=\203\311 \211\202\313 \211?\262\204\366 \314\224\314\225=\203\372 \342\343\344\363!!\346!\3478\262\"\203\372 \344\350!\354!\232\203\372 \364\202\373 \365\266\202*\2620\202\366\367\"\210\320!\262\207" [vc-bzr-admin-dirstate vc-bzr-root expand-file-name (error) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents 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 t unregistered 1 97 removed 4 added eql string-to-number match-string 3 file-attributes 7 5 match-data "\301\300\302\"\207" [set-match-data evaporate] vc-bzr-sha1 102 120 mapcar identity 8 121 6 up-to-date edited message "Falling back on \"slow\" status detection (%S)"] 14 (#$ . 6173)])
#@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 (#$ . 7790)])
#@64 Regexp matching file status words as reported in `bzr' output.
(defconst vc-bzr-state-words "added\\|ignored\\|kind changed\\|modified\\|removed\\|renamed\\|unknown" (#$ . 7980))
(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 (#$ . 8193)])
#@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)) (#$ . 8431))
#@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\334\335\336\f\"\337\"\340$!\210)\341!\262)\266\205\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-byte-code 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" vconcat vector [vc-bzr-program compile-command vc-compilation-mode bzr make-local-variable " " mapconcat identity ""] 8 vc-set-async-update] 17 (#$ . 8741)])
#@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 (#$ . 9962)])
#@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 (#$ . 10337)])
#@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 (#$ . 10612)])
#@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!r\211q\210\303\304\305\306\307!\310\"\311$\216\3121! \313\314\315\304$0\202' \316\317\"\262\210\320eb\210\321\322\323\324\325!!\326!\203A \327\202B \330\331\260\332\315#\203] \333\334!\304\224\304\225|\210\335\336\337\340#!\266\202\211\205r eb\210\341\332w\210\211m?\205q `d{B\262*\207" [vc-bzr-state-words generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 (error) vc-bzr-command "status" t message "Error: %S" unchanged re-search-forward "^\\(" "\\):[ \n]+" regexp-quote vc-bzr-file-name-relative file-directory-p "/?" "\\*?" "[ \n]*$" nil match-string 1 intern replace-regexp-in-string " " "" " \n "] 10 (#$ . 11377)])
#@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 (#$ . 12561)])
#@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 (#$ . 13058)])
(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!\2058 \303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314!\210\315\316!\2055 \317y\2055 \315\320!\2055 \321\322!*\262\207" [expand-file-name ".bzr/checkout/dirstate" file-readable-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents looking-at "#bazaar dirstate flat format 3" 3 "[0-9]+ \\([^ \n]+\\) " match-string 1] 9 (#$ . 13777)])
#@13
(fn FILE)
(defalias 'vc-bzr-working-revision #[257 "\306!\307\"\307 \"\307\n\"\310!\203\345 \307 \311P\"\310!\203\210 \312\313!r\211q\210\314\315\316\317\320!\321\"\322$\216\323!\210\324\325\326\327#\205\202 \330\331!\f\332>\203_ \333\326\327 \334#)\266\203\203_ \335\331\"\262\307\"\262\307\n\"\262\310!\205\200 \310!\205\200 \336!\336!\232\262*\262\202\211 \327\262\203\345 \312\313!r\211q\210\314\315\316\317\320!\337\"\322$\216\323!\210eb\210\340\341!\204\264 \340\342!\203\302 \323!\210\343\344\345 d\"!\202\337 \340\346!\204\316 \340\347!\205\337 \323!\210\324\350\326\327#\205\337 \315\224\315\225{*\262\202 \351.\352\353\354 !$\211@A\315=\203\211G\315U\204\335\315\355#\202 \326\266\203\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*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents re-search-forward "file://\\(.+\\)" nil t match-string 1 (ms-dos windows-nt) "^/[[:alpha:]]:" string-match substring vc-bzr-version-dirstate [buffer-name kill-buffer] 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]+" vc-bzr-command-discarding-stderr "revno" "--tree" file-relative-name -1 vc-bzr-program] 15 (#$ . 14455)])
#@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 (#$ . 16030)])
#@17
(fn FILE REV)
(defalias 'vc-bzr-previous-revision #[514 "\300\301\"\203 \302\303!S!\207\304P\207" [string-match "\\`[0-9]+\\'" number-to-string string-to-number "before:"] 5 (#$ . 16174)])
#@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 (#$ . 16375)])
#@77 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 (#$ . 16625)])
(defalias 'vc-bzr-responsible-p 'vc-bzr-root "Return non-nil 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 (#$ . 17007)])
#@12
(fn ARG)
(defalias 'vc-bzr--sanitize-header #[257 "\300\301\302\303\304!\305\"\306\307%\207" [make-byte-code 257 "\300\301\302\303\301\304\305##D\207" vconcat vector [replace-regexp-in-string "\\`[ ]+\\|[ ]+\\'" "" "\n[ ]?" " "] 9 "\n\n(fn STR)"] 7 (#$ . 17172)])
#@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 (#$ . 17450)])
#@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 (#$ . 17829)])
#@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 (#$ . 18103)])
#@27
(fn FILE &optional REV)
(defalias 'vc-bzr-checkout #[513 "\211\205 \300\301!\207" [error "Operation not supported"] 4 (#$ . 18298)])
#@37
(fn FILE &optional CONTENTS-DONE)
(defalias 'vc-bzr-revert #[513 "\211?\205# \300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\303\314%*\262\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-bzr-command "revert" t "--no-backup"] 9 (#$ . 18440)])
(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 (#$ . 20071) 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 (#$ . 22380)])
#@17
(fn REVISION)
(defalias 'vc-bzr-expanded-log-entry #[257 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\314\315\316\211\317\320\321\322 \"D;\203+ C\202, \"&\210eb\210\323\324!\205D \325\304\225d\311#\210\304\225d{*\207" [vc-bzr-log-switches generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply vc-bzr-command "log" t nil append "--long" format "-r%s" looking-at "^-+\n" indent-region] 13 (#$ . 23134)])
#@31
(fn BUFFER REMOTE-LOCATION)
(defalias 'vc-bzr-log-incoming #[514 "\300\301\302\303\304\305\306\230?\205 D&\207" [apply vc-bzr-command "missing" async nil "--theirs-only" ""] 11 (#$ . 23643)])
#@31
(fn BUFFER REMOTE-LOCATION)
(defalias 'vc-bzr-log-outgoing #[514 "\300\301\302\303\304\305\306\230?\205 D&\207" [apply vc-bzr-command "missing" async nil "--mine-only" ""] 11 (#$ . 23850)])
#@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 (#$ . 24055)])
(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\"\303G\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 (#$ . 24433)])
#@61 Delete FILE and delete it in the bzr repository.
(fn FILE)
(defalias 'vc-bzr-delete-file #[257 "\3001 \301!0\202 \210\202 \210\302\303\304\305$\207" [(file-error) delete-file vc-bzr-command "remove" nil 0] 6 (#$ . 24877)])
#@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 (#$ . 25112)])
#@15 Internal use.
(defvar vc-bzr-annotation-table nil (#$ . 25365))
(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 \312 D\"&\207" [apply vc-bzr-command "annotate" async "--long" "--all" append vc-switches bzr annotate "-r"] 15 (#$ . 25490)])
(defalias 'vc-bzr-annotate-time #[0 "\300\301\302\303#\205- \304\305!\306\307\310\211\211\311\312\313\314#!\311\312\315\313#!\311\312 \310\315#!&!\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 substring 6 8 4] 13])
#@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 (#$ . 26257)])
#@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!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313p\313D\313&ed{*B\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply process-file nil] 10 (#$ . 26597)])
#@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 (#$ . 27244)])
(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 (#$ . 27645)])
(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 (#$ . 27964)])
(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 (#$ . 28471)])
(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 (#$ . 28880)])
(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 (#$ . 29534)])
(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 (#$ . 30076)])
(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 (#$ . 30490)])
(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 "\3018\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 (#$ . 30962)])
#@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 \"\"DB\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 (#$ . 31381)])
#@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\311\312\313\"\314\"\315$!\207" [apply vc-bzr-command "status" async "-v" "-S" vc-exec-after make-byte-code 0 "\302\301\303\300\304\300!\"\"\207" vconcat vector [vc-bzr-after-dir-status file-relative-name vc-bzr-root] 6] 12 (#$ . 32578)])
(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\211\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\211\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\211\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!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\303$\210\314 *\262\315 \316\317!\320\321\322\"\323\324\"\2057 \325\326\"\211\205H \323\327\"\205H \325\326\"\330\331\332\333#\330\323\334 \"\203^ \325\326 \"\202_ \335\332\336#\337\205t \330\340\332\333#\330\332\336#\337Q\205\205 \330\341\332\333#\330\332\336#\337Q\205\234 \330\342\332\343\344\f%\330\345\344 \332\343%\337Q\f\203\263 \330\346\332\333\344%\347\350\337#P\202\304 \330\351\332\333\344%\330\352\344\332\336%P\260\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-bzr-command "info" t buffer-string vc-bzr-shelve-list "Use M-x vc-bzr-shelve to create shelves" vc-bzr-root nil 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 font-lock-type-face "parent branch: \\(.+\\)$" "None" font-lock-variable-name-face "\n" "Light checkout root: " "Checkout of branch : " "Warning : " font-lock-warning-face help-echo "Pending merges, commit recommended before any other action" "Shelves :\n" mapconcat #[257 "\301\302\303\304\305\306\307\310& \207" [vc-bzr-shelve-map propertize face font-lock-variable-name-face 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"] 22 (#$ . 34562)])
#@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 (#$ . 36320) "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 (#$ . 36631) "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 (#$ . 36954) "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 (#$ . 37251) "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 (#$ . 37566) nil])
(defalias 'vc-bzr-shelve-list #[0 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312p\313\314\315\316&\210\317\320\321ed{\322\"\"*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [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 (#$ . 38305)])
(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 (#$ . 39197) "e"])
#@14
(fn FILES)
(defalias 'vc-bzr-revision-table #[257 "\302\303@!\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315\316\317\320\307\321\322 ;\203, C\202- \"&\210e\323ed\"\324\325\"\203T \326\327\"B\262\307\225\\\262\323d\"\262\2026 \266*\210)\211\207" [default-directory vc-bzr-log-switches nil file-name-directory generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply vc-bzr-command "log" t append ("--line") buffer-substring-no-properties string-match "^\\([0-9]+\\):" match-string 1] 12 (#$ . 39430)])
#@12
(fn DIR)
(defalias 'vc-bzr-conflicted-files #[257 "\301!\302\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\315\316\306$\210eb\210\317\320\302\316#\203F \321\322!\203F \323\225\203? \324\325\323!!B\262\306\225b\210\202+ *\210)\207" [default-directory vc-bzr-root nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-bzr-command "status" t re-search-forward "^conflicts:\n" looking-at " \\(?:Text conflict in \\(.*\\)\\|.*\\)\n" 1 expand-file-name match-string] 10 (#$ . 40038)])
(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\302\303\304!\305\"\306\307%\207" [make-byte-code 771 "\305\306\"\203 \307\310\311\211\225#\312\313\314\315\316$\310\311\225\"%\207\305\317\"\2039 \307\310\311\211\225#\320\300!\310\311\225\"%\207\305\321\"\203\215 \310\311\211\225#\310\311\225\"\322\211\323\324!r\211q\210\325\311\326\327\330!\331\"\332$\216\333\n\322\334\322\335\336&\210eb\210\337\340\322\316#\203\200 \341\342!B\262\202n *\210\307%)\207\305\343\"\203\254 \307\310\311\211\225#\312\344\345 B\314#\310\311\225\"%\207\305\346\"\203\305 \307\310\311\211\225#\347\310\311\225\"%\207\305\350\"\203\350 \307\310\311\211\225#\351\342\"\f\235\205\336 \352\310\311\225\"%\207\353\354$\207" vconcat vector [process-file-side-effects vc-bzr-program regexp-unmatchable vc-bzr-revision-keywords string-match "\\`\\(ancestor\\|branch\\|\\(revno:\\)?[-0-9]+:\\):" completion-table-with-context substring 0 apply-partially completion-table-with-predicate completion-file-name-table file-directory-p t "\\`\\(before\\):" vc-bzr-revision-completion-table "\\`\\(tag\\):" nil generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [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)"] 7 (#$ . 40755)])
(provide 'vc-bzr)
Zerion Mini Shell 1.0