ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/vc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/vc/vc-bzr.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'vc-bzr-revision-granularity #[0 "\300\207" [repository] 1])
(defalias 'vc-bzr-checkout-model #[257 "\300\207" [implicit] 2 "\n\n(fn FILES)"])
(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 "\3011/ \302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314\315\314\316\317&\210\320\321\314\315#\205* \321*\2620\207\210\314\207" [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 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 (#$ . 2728)])
#@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 (#$ . 3327)])
#@63 Name of the directory containing Bzr repository status files.
(defconst vc-bzr-admin-dirname ".bzr" (#$ . 3976))
#@46 Name of the format file in a .bzr directory.
(defconst vc-bzr-admin-checkout-format-file (concat vc-bzr-admin-dirname "/checkout/format") (#$ . 4095))
(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 (#$ . 4691)])
#@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 (#$ . 4967)])
(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 "\n\n(fn FILE)"])
#@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!!\327\331\332\211\211\331\211\333\332\211\211\334\260\335\336#\204f \337\202\373 \340\224f\341=\203r \342\202\373 \343\224\203 \343\224f\341=\203\203 \344\202\373 \345\346\347!!\350\351!8=\203\324 \346\352!\353 \306\307\354\311\312!\355\"\347$\216\356!)\262\232\203\324 \340\224f\357=\203\366 \360\361\362\363\351\n!8\">\350\224f\364=\203\315 \211\202\317 \211?\262\204\366 \314\224\314\225=\203\372 \345\346\365!!\350\351!8=\203\372 \346\352!\356!\232\203\372 \366\202\373 \367\266\202*\2620\202\370\371\"\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 string-to-number match-string 3 7 file-attributes 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)"] 23 (#$ . 6080)])
#@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 (#$ . 7649)])
#@64 Regexp matching file status words as reported in `bzr' output.
(defconst vc-bzr-state-words "added\\|ignored\\|kind changed\\|modified\\|removed\\|renamed\\|unknown" (#$ . 7839))
(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 (#$ . 8052)])
#@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)) (#$ . 8290))
#@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 "\302 !\303\304\"\211\205 \211A\227\305\232\303\306\232\203 \307\202 \310\"\311\2036 \306\232\2033 \312\313!\210\2026 \314\262\204O \306\232\203F ?\202L \206K ?\203p \315\316\317\320\n\"\317\321\f#\322#\323\324#\262\211@\211A@\262\211AA\262\325\326!\210\327\330#r\211q\210\331\332!\210)\333!\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 #[0 "\300\301!\207" [vc-compilation-mode bzr] 2] vc-set-async-update] 14 (#$ . 8598)])
#@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 (#$ . 9525)])
#@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 (#$ . 9900)])
#@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 (#$ . 10174)])
#@431 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 (#$ . 10939)])
(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 "\n\n(fn FILE)"])
#@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 (#$ . 12604)])
(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 (#$ . 13323)])
(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_ \211\331\326O\262\307\"\262\307\n\"\262\310!\205\200 \310!\205\200 \335!\335!\232\262*\262\202\211 \327\262\203\345 \312\313!r\211q\210\314\315\316\317\320!\336\"\322$\216\323!\210eb\210\337\340!\204\264 \337\341!\203\302 \323!\210\342\343\344 d\"!\202\337 \337\345!\204\316 \337\346!\205\337 \323!\210\324\347\326\327#\205\337 \315\224\315\225{*\262\202\n\350-\351\352\353 !$\211@A\315=\203\211G\315U\204\211\315\354O\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 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 "\n\n(fn FILE)"])
#@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 (#$ . 15553)])
(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 "\n\n(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 "\n\n(fn FILE REV)"])
#@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 (#$ . 16118)])
(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 (#$ . 16500)])
(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 "\n\n(fn ARG)"])
#@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 (#$ . 16928)])
#@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 (#$ . 17307)])
#@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 (#$ . 17581)])
(defalias 'vc-bzr-checkout #[513 "\211\205 \300\301!\207" [error "Operation not supported"] 4 "\n\n(fn FILE &optional REV)"])
(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 "\n\n(fn FILE &optional CONTENTS-DONE)"])
#@169 Hook run after entering Bzr-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-bzr-log-view-mode-hook nil (#$ . 18245))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp vc-bzr-log-view-mode-map put definition-name vc-bzr-log-view-mode] 4)
(defvar vc-bzr-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-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] 5)
(defvar vc-bzr-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-bzr-log-view-mode-syntax-table variable-documentation put purecopy "Syntax table for `vc-bzr-log-view-mode'." vc-bzr-log-view-mode-abbrev-table definition-name vc-bzr-log-view-mode] 5)
(defvar vc-bzr-log-view-mode-abbrev-table (progn (define-abbrev-table 'vc-bzr-log-view-mode-abbrev-table nil) vc-bzr-log-view-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vc-bzr-log-view-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `vc-bzr-log-view-mode'." vc-bzr-log-view-mode derived-mode-parent log-view-mode] 5)
#@519 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 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\340 \306\341!\210/\342=\203\203 \343\202\204 \344!/\342=\203\227 \3070\306\345!\210\346%\306\347!\210/\342=\203\254 \350!\351BC!\202\264 \350!\352BC\353\"')\354\355!\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 "\\`a\\`" 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-face) (2 'change-log-name) (3 'change-log-date) (4 'change-log-list nil lax)) 'log-view-message-face (("^ *\\(?:committer\\|author\\): \\([^<(]+?\\)[ ]*[(<]\\([[:alnum:]_.+-]+@[[:alnum:]_.-]+\\)[>)]" (1 'change-log-name) (2 'change-log-email)) ("^ *timestamp: \\(.*\\)" (1 'change-log-date-face))) run-mode-hooks vc-bzr-log-view-mode-hook local-abbrev-table vc-log-view-type truncate-lines] 5 (#$ . 19667) 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 "\301!\210rq\210\302\303\304\305 \306 \203 \307\202 \310 \2056 \311 \2031 \312U\2031 \313\2022 \314 \"C \205B \315\311\316\f\"D \205T \n\205T \n\312V\205T \317;\203^ C\202_ %&)\207" [vc-bzr-log-switches vc-setup-buffer apply vc-bzr-command "log" async append ("--line") ("--long") format 1 "-r%s" "-r..%s" "-l" "%s" ("--no-aliases")] 18 (#$ . 21969)])
(defalias 'vc-bzr-expanded-log-entry #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\314\315\211\316\317\320\n\"D&\210eb\210\321\322!\2057 \323\303\225d\310#\210\303\225d{*\207" [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 "--long" format "-r%s" looking-at "^-+\n" indent-region] 12 "\n\n(fn REVISION)"])
(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 "\n\n(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 "\n\n(fn BUFFER REMOTE-LOCATION)"])
#@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 (#$ . 23498)])
(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 (#$ . 23876)])
#@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 (#$ . 24320)])
#@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 (#$ . 24555)])
#@15 Internal use.
(defvar vc-bzr-annotation-table nil (#$ . 24808))
(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\"&\210\313\314\315\"\316\317!\320\321\322\323\324!\325\"\326\327%\"\207" [apply vc-bzr-command "annotate" async "--long" "--all" append vc-switches bzr annotate "-r" make-hash-table :test equal set-process-filter get-buffer-process make-byte-code 514 "\302!\205\202 r\302!q\210\303\304\"P\262\305\306\"\203| \307\310\"\307\311\"\307\312\"\313\224\314\224O\307\314\"\315\300\"\316\313\225\317O\262\211\204c \320\321\322#\323\321\324\325 !\n\n$\326\327%\262\330\300#\210\331!b\210\211\261\210\331!`\317\223\210)\266\202 \332\304#)\207" vconcat vector [inhibit-read-only process-buffer process-get :vc-left-over string-match "^\\( *[0-9.]+ *\\) \\(.+?\\) +\\([0-9]\\{8\\}\\)\\( |.*\n\\)" match-string 1 2 3 0 4 gethash t nil propertize format "%s %-7.7s" help-echo "Revision: %d, author: %s, date: %s" string-to-number mouse-face highlight puthash process-mark process-put] 16 "\n\n(fn PROC STRING)"] 15 (#$ . 24933)])
(defalias 'vc-bzr-annotate-time #[0 "\300\301\302\303#\2057 \304\305 \306\"\307\310\"\210\311\312\"\313\314\312\211\211\315\316\317O!\315\320\316O!\315\312\320O!&!\262\262\207" [re-search-forward "^ *[0-9.]+ +.+? +|" nil t get-text-property line-beginning-position help-echo string-match "[0-9]+\\'" match-string-no-properties 0 vc-annotate-convert-time encode-time string-to-number 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.]+\\) +.* +|" match-string-no-properties 1] 2 (#$ . 26605)])
#@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 (#$ . 26923)])
(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 (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 2) (memq (aref cl-x 0) cl-struct-vc-bzr-extra-fileinfo-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'vc-bzr-extra-fileinfo-p 'compiler-macro 'vc-bzr-extra-fileinfo-p--cmacro)
(defalias 'vc-bzr-extra-fileinfo-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-vc-bzr-extra-fileinfo-tags vectorp 2 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\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] 4)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-vc-bzr-extra-fileinfo-tags)) (signal 'wrong-type-argument (list 'vc-bzr-extra-fileinfo cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'vc-bzr-extra-fileinfo->extra-name 'compiler-macro 'vc-bzr-extra-fileinfo->extra-name--cmacro)
(defalias 'vc-bzr-extra-fileinfo->extra-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-vc-bzr-extra-fileinfo-tags 0 signal wrong-type-argument vc-bzr-extra-fileinfo 1] 5 "\n\n(fn CL-X)"])
(function-put 'vc-bzr-extra-fileinfo->extra-name 'side-effect-free t)
#@43
(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 "Constructor for objects of type `vc-bzr-extra-fileinfo'." (declare (side-effect-free t)) (vector 'cl-struct-vc-bzr-extra-fileinfo extra-name))] 10 (#$ . 29090)])
(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)" vector cl-struct-vc-bzr-extra-fileinfo] 6 (#$ . 29787)])
(function-put 'make-vc-bzr-extra-fileinfo 'side-effect-free t)
(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 "Constructor for objects of type `vc-bzr-extra-fileinfo'." (declare (side-effect-free t)) (vector 'cl-struct-vc-bzr-extra-fileinfo extra-name)) nil] 9 "\n\n(fn CL-WHOLE-ARG EXTRA-NAME)"])
(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" [vector cl-struct-vc-bzr-extra-fileinfo] 4 (#$ . 30739)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put vc-bzr-create-extra-fileinfo side-effect-free t cl-struct-define vc-bzr-extra-fileinfo nil cl-structure-object ((cl-tag-slot) (extra-name)) cl-struct-vc-bzr-extra-fileinfo-tags cl-struct-vc-bzr-extra-fileinfo] 10)
#@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\307H>\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)" 0 signal wrong-type-argument vc-bzr-extra-fileinfo 1 face font-lock-comment-face] 9 (#$ . 31250)])
(defalias 'vc-bzr-after-dir-status #[514 "\300\301\300\211eb\210\302\303!\203 \304\305\300\306#\203 \307y\210m\204\230 \302\310!\204\222 \311``\312\\\"\262\313\"A\262\314=\203R \311`\315\\\316 \"\313\"\211\203M \211A\211\314\240\266\266\202\222 \317=\203{ \304\320\316 \306#\210\321\322\323!\"\321\322\307!\"\324\325\326\"EB\266\203\202\222 \327=\204\222 \321\311`\330\\\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 conflict 21 line-end-position renamed "R[ M] \\(.*\\) => \\(.*\\)$" file-relative-name match-string 2 edited vector cl-struct-vc-bzr-extra-fileinfo not-found 4] 13 "\n\n(fn UPDATE-FUNCTION RELATIVE-DIR)"])
#@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 (#$ . 32763)])
(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])
(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 "\n\n(fn DIR)"])
#@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 (#$ . 36490) "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 (#$ . 36801) "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 (#$ . 37124) "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 (#$ . 37421) "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 (#$ . 37736) 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])
(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 "\n\n(fn POINT)"])
(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])
(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 "\n\n(fn E)" "e"])
(defalias 'vc-bzr-revision-table #[257 "\301\302@!\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\315\316\306\317%\210e\320ed\"\321\322\"\203E \323\324\"B\262\306\225\\\262\320d\"\262\202' \266*\210)\211\207" [default-directory 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 vc-bzr-command "log" t "--line" buffer-substring-no-properties string-match "^\\([0-9]+\\):" match-string 1] 9 "\n\n(fn FILES)"])
(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 "\n\n(fn DIR)"])
(defconst vc-bzr-revision-keywords '("ancestor" "annotate" "before" "branch" "date" "last" "mainline" "revid" "revno" "submit" "tag"))
(defalias 'vc-bzr-revision-completion-table #[257 "\300\301\302\303\304!\305\"\306\307%\207" [make-byte-code 771 "\304\305\"\203 \306\307\211\225O\310\311\312\313\314$\307\225\315O%\207\304\316\"\2035 \306\307\211\225O\317\300!\307\225\315O%\207\304\320\"\203\210 \307\211\225O\307\225\315O\315\211\321\322!r\211q\210\323\307\324\325\326!\327\"\330$\216\331\n\315\332\315\333\334&\210eb\210\335\336\315\314#\203{ \337\340!B\262\202i *\210\306%)\207\304\341\"\203\243 \306\307\211\225O\310\342\343\312#\307\225\315O%\207\304\344\"\203\272 \306\307\211\225O\345\307\225\315O%\207\304\346\"\203\333 \306\307\211\225O\347\340\" \235\205\322 \350\307\225\315O%\207\351\352$\207" vconcat vector [process-file-side-effects vc-bzr-program 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-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 (":" . "\\`a\\`") "\\`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 "\n\n(fn FILES)"])
(provide 'vc-bzr)
Kontol Shell Bypass