;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:29 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/bzr.el ;;; in Emacs version 23.0.50.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`bzr.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\207" [require bzr-core dvc-diff dvc-core dvc-defs dvc-revlist dvc-annotate dvc-lisp] 2) #@177 The default directory that is suggested when calling `bzr-init-repository'. This setting is useful, if you'd like to create a bunch of repositories in a common base directory. (defvar bzr-default-init-repository-directory "~/" (#$ . 773)) #@35 Version of bzr that we are using. (defvar bzr-command-version nil (#$ . 1018)) #@218 *Preset some useful values for commit emails. An alist of rules to map branch names to target email addresses and the prefix string for the subject line. This is used by the `bzr-send-commit-notification' function. (custom-declare-variable 'bzr-mail-notification-destination 'nil '(#$ . -1104) :type '(repeat (list :tag "Rule" (string :tag "Bzr branch nick") (list :tag "Target" (string :tag "Email subject prefix") (string :tag "Email address") (string :tag "Bzr branch location")))) :group 'dvc) #@15 Run bzr init. (defalias 'bzr-init #[(&optional dir) "\301\302\303D\304\305\306\307\310\311\312\313\314\315\316D\257E$\207" [dir dvc-run-dvc-sync bzr "init" :finished lambda (output error status arguments) apply #[(output error status arguments) "\301\302\"\207" [dir message "bzr init %s finished"] 3] output error status arguments quote nil] 14 (#$ . 1610) (list (expand-file-name (dvc-read-directory-name "Directory for bzr init: " (or default-directory (getenv "HOME")))))]) #@209 Run bzr init-repository. When called interactively, `bzr-default-init-repository-directory' is used as starting point to enter the new repository directory. That directory is created via bzr init-repository. (defalias 'bzr-init-repository #[(&optional dir) "\301\302\303D\304\305\306\307\310\311\312\313\314\315\316D\257E$\210\207" [dir dvc-run-dvc-sync bzr "init-repository" :finished lambda (output error status arguments) apply #[(output error status arguments) "\301\302\"\207" [dir message "bzr init-repository '%s' finished"] 3] output error status arguments quote nil] 14 (#$ . 2098) (list (expand-file-name (dvc-read-directory-name "Directory for bzr init-repository: " (or bzr-default-init-repository-directory default-directory (getenv "HOME")))))]) #@19 Run bzr checkout. (defalias 'bzr-checkout #[(branch-location to-location &optional lightweight revision) "\303\304\305\205\306 \nF\307\310\311\312\313\314\315\316\317\320\321D\257E$\207" [lightweight branch-location to-location dvc-run-dvc-sync bzr "checkout" "--lightweight" :finished lambda (output error status arguments) apply #[(output error status arguments) "\303\304\203\n\305\202 \306 \n$\210\307\n!\207" [lightweight branch-location to-location message "bzr checkout%s %s -> %s finished" " --lightweight" "" dired] 5] output error status arguments quote nil] 14 (#$ . 2868) (let* ((branch-loc (read-string "bzr checkout branch location: " nil nil bzr-default-init-repository-directory)) (co-dir (or default-directory (getenv "HOME"))) (to-loc (expand-file-name (dvc-read-directory-name "bzr checkout to: " co-dir (concat co-dir (file-name-nondirectory (replace-regexp-in-string "/trunk/?$" "" branch-loc)))))) (lw (y-or-n-p "Do a lightweight checkout? ")) (rev nil)) (list branch-loc to-loc lw rev))]) #@15 Run bzr pull. (defalias 'bzr-pull #[(&optional repo-path) "\301\230\203\302\303\304\305D\306\307\310\311\312\313\314\315\316\317\302D\257E$\207" [repo-path "" nil dvc-run-dvc-async bzr "pull" :finished lambda (output error status arguments) apply #[(output error status arguments) "\302 \210\303\304\305!\305 !P\"\207" [error output dvc-revert-some-buffers message "bzr pull finished => %s" dvc-buffer-content] 5] output error status arguments quote] 14 (#$ . 3893) "sPull from bzr repository: "]) #@77 Run bzr push. When called with a prefix argument, add the --remember option (defalias 'bzr-push #[(&optional repo-path) "\302\230\203\303\304\305\306 \205\307E\310\311\312\313\314\315\316\317\320\321\303D\257E$\207" [repo-path current-prefix-arg "" nil dvc-run-dvc-async bzr "push" "--remember" :finished lambda (output error status arguments) apply #[(output error status arguments) "\302\303\304!\304 !P\"\207" [error output message "bzr push finished => %s" dvc-buffer-content] 5] output error status arguments quote] 14 (#$ . 4404) (list (read-string (format "Push %sto bzr repository: " (if current-prefix-arg "--remember " ""))))]) #@16 Run bzr merge. (defalias 'bzr-merge #[(&optional repo-path) "\301\230\203\302\303\304\305D\306\307\310\311\312\313\314\315\316\317\302D\257E$\207" [repo-path "" nil dvc-run-dvc-async bzr "merge" :finished lambda (output error status arguments) apply #[(output error status arguments) "\302\303\304!\304 !P\"\207" [error output message "bzr merge finished => %s" dvc-buffer-content] 5] output error status arguments quote] 14 (#$ . 5057) "sMerge from bzr repository: "]) #@349 An alist that maps repository urls to working copies. This rule is used by `bzr-merge-from-url'. An example setting is: (setq bzr-merge-from-url-rules '(("http://bzr.xsteve.at/dvc/" . (pull "~/site-lisp/dvc/")) ("http://www-verimag.imag.fr/~moy/bzr/dvc/moy/" . (merge "/home/stefan/work/myprg/dvc-dev-bzr/"))))  (defvar bzr-merge-or-pull-from-url-rules nil (#$ . 5541)) #@106 Merge or pull from a given url, autodetect the working directory via `bzr-merge-or-pull-from-url-rules'. (defalias 'bzr-merge-or-pull-from-url #[(url) "\306 \"A\211@\n\211A@)\307 \203/ \203/\310\311\312 \313=\203(\314\202)\315 $!\205y \204D\306\316\311\317\"\320\"\321\"A \204Z\322\311\323 \313=\203U\314\202V\315#!  \313=\203o\324\325 #\210\326!\202x\324\327 #\210\330!),\207" [url bzr-merge-or-pull-from-url-rules dest merge-or-pull x path assoc t y-or-n-p format "%s from %s to %s? " merge "Merge" "Pull" dvc-completing-read "Merge or pull from %s: " ("Merge" "Pull") (("Merge" . merge) ("Pull" . pull)) dvc-read-directory-name "%s from %s to: " message "merging from %s to %s" bzr-merge "pulling from %s to %s" bzr-pull doit default-directory] 7 (#$ . 5954) "sMerge from url: "]) #@17 Run bzr update. (defalias 'bzr-update #[(&optional path) "\204 \302\303\304D\305\306\307\310\311\312\313\314\315\316\317D\257E$\207" [path default-directory dvc-run-dvc-async bzr "update" :finished lambda (output error status arguments) apply #[(output error status arguments) "\302\303\304!\304 !P\"\207" [error output message "bzr update finished => %s" dvc-buffer-content] 5] output error status arguments quote nil] 14 (#$ . 6778) nil]) #@325 Initializes a repository with a trunk branch and finally checks out a working copy. The following functions are called: `bzr-init-repository': create a shared repository `bzr-init': create the trunk branch in the repository above `bzr-checkout': check out the trunk branch to the entered working directory (defalias 'bzr-start-project #[nil "\304\211\211\305\306!\307\n\310P!\311 !\210\307\312\313\304 \314\n!P#!\315 \316#+\207" [checkout-dir branch-repo-dir init-repo-dir default-directory nil call-interactively bzr-init-repository dvc-uniquify-file-name "/trunk" bzr-init dvc-read-directory-name "checkout the branch to: " file-name-nondirectory bzr-checkout t] 7 (#$ . 7233) nil]) (defalias 'bzr-parse-diff #[(changes-buffer) "\306\307!\210\310 \210\212\311\312\313\314#\205j\315\316!\315\317!\206\315\320!\321\230\315\320!\322\230\315\320!\323\230r q\210\324\325\326\313\327\330\331 \332\f\203E\304\202V\n\203M\333\202V \203U\334\202V\335\336\n\205a\f?\205a&\n\"\210.\202)\207" [origname newname renamed removed added changes-buffer dvc-trace "bzr-parse-diff" dvc-trace-current-line re-search-forward "^=== \\([a-z]*\\) file '\\([^']*\\)'\\( => '\\([^']*\\)'\\)?$" nil t match-string-no-properties 2 4 1 "renamed" "removed" "added" ewoc-enter-last make-dvc-fileinfo-file :mark :dir "" :file :status rename-source missing modified :more-status dvc-fileinfo-ewoc] 13]) #@122 Converts a bzr revision specifier (string) into a DVC revision. TODO: just revision number and last:N are implemented.  (defalias 'bzr-revisionspec-to-rev #[(string-revspec path) "\302\303\304\"\203\305\306 \307\310\311\"!ED\202,\303\312\"\203)\313 \307\310\311\"!E\202,\314\315!D\207" [string-revspec path bzr string-match "^\\(revno:\\)?\\([0-9]+\\)$" revision local string-to-number match-string 2 "^\\(last:\\|-\\)\\([0-9]+\\)$" last-revision error "Not yet implemented, sorry!"] 8 (#$ . 8660)]) #@113 Run "bzr diff" against a particular revision. Same as `bzr-dvc-diff', but the interactive prompt is different. (defalias 'bzr-diff-against #[(against &optional path dont-switch) "\303 \n#\207" [against path dont-switch bzr-diff] 4 (#$ . 9177) (let ((root (bzr-tree-root))) (list (bzr-revisionspec-to-rev (read-string "Diff against revisionspec: ") root) root current-prefix-arg))]) #@135 Run "bzr diff". AGAINST must be a DVC revision id ('bzr number, last:N, revid:foobar, ...). TODO: DONT-SWITCH is currently ignored. (defalias 'bzr-dvc-diff #[(&optional against path dont-switch) "\306\307 \n\206\n \310\f!\"\206\306\311 \312BBD\"\313\"\306\314 DD\315 \306%#\316#!\210\317 !\210\320 !\210\321\306\322\"\205F\323\324\"!DB\325\326\327\330\331\332\333\334\335\336 #DD\257E\337\326\340\330\341\332\333\334\335\336#CD\257E&.\207" [dvc-temp-current-active-dvc window-conf path default-directory dir root bzr current-window-configuration bzr-tree-root last-revision (1) dvc-prepare-changes-buffer local-tree diff dvc-switch-to-buffer-maybe dvc-buffer-push-previous-window-config dvc-save-some-buffers dvc-run-dvc-async "diff" "--revision" bzr-revision-id-to-string :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-5 #2=#:dvc-gensym-uniq-4) "\302\303 #\207" [#2# #1# dvc-diff-no-changes "No changes in %s"] 4] output error status arguments quote :error (output error status arguments) #[(output error status arguments #3=#:dvc-gensym-uniq-6) "\304U\204 \305 \306\n $\207\307\n\310 #\207" [status #3# output error 1 dvc-diff-error-in-process "Error in diff process" dvc-show-changes-buffer bzr-parse-diff] 5] against buffer] 16 (#$ . 9568) (list nil nil current-prefix-arg)]) #@74 Run bzr diff -r BASE..MODIFIED. TODO: dont-switch is currently ignored. (defalias 'bzr-delta #[(base modified &optional dont-switch) "\306\307 \n$\210\310!\310 !\311 \312\310!\313\310 !Q\314% \203'\315 !\210\316 !\2033\317 !\202@\316!\203?\317!\202@\n\320\314\321\322 \313\fQE\323\324\325\326\327\330\331\332\333\334\f ED\257E\335\324\336\326\337\330\331\332\333\334 CD\257E&\210r q\210eb\210) ,\207" [base modified default-directory buffer modified-str base-str dvc-trace "base, modified=%S, %S; dir=%S" bzr-revision-id-to-string dvc-prepare-changes-buffer revision-diff ".." bzr dvc-switch-to-buffer bzr-revision-id-is-local bzr-revision-id-location dvc-run-dvc-async "diff" "--revision" :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-9 #2=#:dvc-gensym-uniq-8 #3=#:dvc-gensym-uniq-7) "\303\304 \305\nQ#\207" [#3# #2# #1# dvc-diff-no-changes "No changes between %s" " and "] 6] output error status arguments quote :error (output error status arguments) #[(output error status arguments #4=#:dvc-gensym-uniq-10) "\304U\204 \305 \306\n $\207\307\n\310 #\207" [status #4# output error 1 dvc-diff-error-in-process "Error in diff process" dvc-show-changes-buffer bzr-parse-diff] 5] dvc-switch-to-buffer-first] 16 (#$ . 10942)]) #@156 Decide whether the revision at point is in the local tree. This is done by looking at the 'You are missing ... revision(s):' string in the current buffer. (defalias 'bzr-revision-at-point-localp #[nil "\212\300\301\302\303#)?\207" [re-search-backward "^You are missing [0-9]+ revision(s):" nil t] 4 (#$ . 12259)]) (defalias 'bzr-get-revision-at-point #[nil "\303\304\305\306\307!!A@\310 !\203 G\311Y\203 \312H\n>\204$\313\314!\210 \315H)!@8!\207" [dvc-revlist-cookie cl-x cl-struct-dvc-revlist-entry-patch-tags int-to-string 2 dvc-revision-get-data ewoc-data ewoc-locate vectorp 8 0 error "dvc-revlist-entry-patch-rev-id accessing a non-dvc-revlist-entry-patch" 4] 6]) #@290 Send a commit notification email for the changelog entry at point. `bzr-mail-notification-destination' can be used to specify a prefix for the subject line, the rest of the subject line contains the summary line of the commit. Additionally the destination email address can be specified. (defalias 'bzr-send-commit-notification #[nil "\211@A)@\306 \307\n8\310 \211\311H>\204\312\313!\210 \307H) \314 \315\"@!\316 \2049\317\320 \"\202\227\317\321 \"\210\322\"\323\n\203O\n\211A@)\202P\324\n\203Y\n@\202Z\324\325 \326!\260\"\210)\327 \210\330\331!\203s\332y\210\202g\333 \f\203\334\fP\202\200\324\335Rc\210 c\210n\203\222\330\336!\204\225\315c\210\327 -\207" [bzr-mail-notification-destination x dest-specs rev branch-location cl-x bzr-get-revision-at-point 2 dvc-revlist-current-patch-struct 0 error "bzr-revision-st-message accessing a non-bzr-revision-st" split-string "\n" bzr-revision-at-point-localp message "Not a local revision: %s - no commit notification prepared." "Preparing commit email for revision %s" nil compose-mail "" "rev " ": " message-goto-body looking-at "<#part[^>]*>" 1 "Committed revision " " to " "\n\n" "^$" cl-struct-bzr-revision-st-tags log-message summary gnus-newsgroup-name] 8 (#$ . 12942) nil]) #@19 Run bzr unknowns. (defalias 'bzr-unknowns #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info bzr ("unknowns")] 3 (#$ . 14207) nil]) (defalias 'bzr-parse-status #[(changes-buffer) "\306\307!\210\310d`V\205\370\311 \210\312\313!\203q\314\315!r\nq\210\316 \317\320 \"\"\210) \321\230\2031\322\202m \323\230\203<\324\202m \325\230\203G\326\202m \327\230\203R\330\202m \331\230\203]\332\202m \333\230\203h\310\202m\334\335 \"\210)\202\362\312\336!\203\254\314\315!\314\337!\314\340!+r\nq\210\316 \317\341\310\211 \f\342\343+&\"\210\316 \317\341\310\211 +\344\343\f&\"\210,\202\362\312\345!\203\356\204\315\346\347 \350 \"r\nq\210\316 \317\320 \"\"\210*\202\362\314\315!\314\337!,r\nq\210\316 \317\341\310\211 ,\343\351&\"\210+\202\362\334\352!\210\315y\210\202)\207" [current-status msg changes-buffer dvc-fileinfo-ewoc newname dir dvc-trace "bzr-parse-status (while)" nil dvc-trace-current-line looking-at "^\\([^ ][^\n]*:\\)" match-string-no-properties 1 ewoc-enter-last vector cl-struct-dvc-fileinfo-message "added:" added "conflicts:" conflict "modified:" modified "removed:" missing "unknown:" unknown "pending merges:" error "unrecognized label %s in bzr-parse-status" "^ +\\([^ ][^\n]*?\\)\\([/@]\\)? => \\([^\n]*?\\)\\([/@]\\)?$" 2 3 cl-struct-dvc-fileinfo-file rename-target t rename-source " +\\(?:Text conflict in \\)?\\([^\n]*?\\)\\([/@*]\\)?$" buffer-substring-no-properties line-beginning-position line-end-position "" "unrecognized context in bzr-parse-status" oldname file] 11]) #@69 Run "bzr status" in `default-directory', which must be a tree root. (defalias 'bzr-dvc-status #[nil "\305  \306\307\310\n\311BBD\307\312\nDD\313\n\307%\314 !\210\315!\210\316\317\307\320\321\322\323\324\325\326\327\313\330\331\n DD\257E$+\207" [window-conf default-directory root buffer dvc-buffer-refresh-function current-window-configuration dvc-prepare-changes-buffer bzr last-revision (1) local-tree status dvc-switch-to-buffer-maybe dvc-buffer-push-previous-window-config bzr-dvc-status dvc-run-dvc-async ("status") :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-12 #2=#:dvc-gensym-uniq-11) "rq\210deV\203\303 \304#\210\202\305\306\n#\210)\307\310\311\312\301\313\314\315\316\317D\257E\207" [#2# output #1# dvc-show-changes-buffer bzr-parse-status dvc-diff-no-changes "No changes in %s" lambda (output error status arguments) apply #[(output error status arguments) "\303\304 \n$\207" [#2# output error dvc-diff-error-in-process "Error in diff process"] 5] error status arguments quote nil] 10] output error arguments quote] 15 (#$ . 15753)]) (defalias 'bzr-parse-inventory #[(changes-buffer) "d`V\2055\304\305!\203+\306\307!\306\310!r\nq\210\311 \312\313\314\211 \315\316\317&\"\210+\202/\320\321!\210\307y\210\202\207" [dir file changes-buffer dvc-fileinfo-ewoc looking-at "\\([^\n]*?\\)\\([/@]\\)?$" match-string-no-properties 1 2 ewoc-enter-last vector cl-struct-dvc-fileinfo-file nil known t "" error "unrecognized context in bzr-parse-inventory"] 11]) #@22 Run "bzr inventory". (defalias 'bzr-inventory #[nil "\305 !\306\307\310\n\311BBD\307\312\nDD\313\n\307%\314 !\210\315\316\n!\210\317\307\320\321\322\323\324\325\326\327\330\331\332 CD\257E$+\207" [default-directory dir root buffer dvc-buffer-refresh-function bzr-tree-root dvc-prepare-changes-buffer bzr last-revision (1) local-tree inventory dvc-switch-to-buffer-maybe bzr-inventory dvc-save-some-buffers dvc-run-dvc-async ("inventory") :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-13) "rq\210\302 \303#\210)\304\305\306\307\301\310\311\312\313\314D\257E\207" [#1# output dvc-show-changes-buffer bzr-parse-inventory lambda (output error status arguments) apply #[(output error status arguments) "\303\304 \n$\207" [#1# output error dvc-diff-error-in-process "Error in inventory process"] 5] error status arguments quote nil] 10] output error status arguments quote] 14 (#$ . 17308) nil]) #@30 Adds FILE to the repository. (defalias 'bzr-add #[(file) "\302\303\304 \305\306\307\310 !D\311\312$)\"\207" [default-directory file message "%s" bzr-tree-root dvc-run-dvc-sync bzr "add" file-relative-name :finished dvc-output-and-error-buffer-handler] 7 (#$ . 18277) "fAdd file or directory: "]) #@14 Run bzr add. (defalias 'bzr-dvc-add-files #[(&rest files) "\302\303\"\210\304 \305\306\307\310\311\312\"\"\313\314\315\316\317\320\321\322\323\324\325D\257E$)\207" [files default-directory dvc-trace "bzr-add-files: %s" bzr-tree-root dvc-run-dvc-sync bzr append ("add" "--no-recurse") mapcar file-relative-name :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "bzr add finished"] 2] output error status arguments quote nil] 14 (#$ . 18580)]) #@17 Run bzr revert. (defalias 'bzr-dvc-revert-files #[(&rest files) "\302\303\"\210\304 \305\306\307\310\311\312\"\"\313\314\315\316\317\320\321\322\323\324\325D\257E$)\207" [files default-directory dvc-trace "bzr-revert-files: %s" bzr-tree-root dvc-run-dvc-sync bzr append ("revert") mapcar file-relative-name :finished lambda (output error status arguments) apply #[(output error status arguments) "\301!\210\302\303!\207" [default-directory dvc-revert-some-buffers message "bzr revert finished"] 2] output error status arguments quote nil] 14 (#$ . 19096)]) #@17 Run bzr remove. (defalias 'bzr-dvc-remove-files #[(&rest files) "\301\302\"\210\303\304\305\306\"\307\310\311\312\313\314\315\316\317\320\321D\257E$\207" [files dvc-trace "bzr-remove-files: %s" dvc-run-dvc-sync bzr append ("remove") :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "bzr remove finished"] 2] output error status arguments quote nil] 14 (#$ . 19664)]) #@17 Run bzr rename. (defalias 'bzr-dvc-rename #[(from to &optional after) "\303\304\305\306!\306 !\n\205\307F\310\311\312\313\314\315\316\317\320\321\322D\257E$\207" [from to after dvc-run-dvc-sync bzr "rename" dvc-uniquify-file-name "--after" :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "bzr rename finished"] 2] output error status arguments quote nil] 14 (#$ . 20105) (let* ((from-name (dvc-confirm-read-file-name "bzr rename: ")) (to-name (dvc-confirm-read-file-name (concat "bzr rename '" from-name "' to: ") nil "" from-name))) (list from-name to-name nil))]) #@41 True if branch containing PATH is bound (defalias 'bzr-is-bound #[(&optional path) "\302\303\304\206 !!\305P!\207" [path default-directory file-exists-p file-name-as-directory bzr-tree-root ".bzr/branch/bound"] 4 (#$ . 20747)]) #@14 Local commit (defalias 'bzr-log-edit-commit-local #[nil "\300\301!\207" [bzr-log-edit-commit t] 2 (#$ . 20984) nil]) #@167 Commit without --local by default. If LOCAL (prefix argument) is non-nil, commit with --local. (don't update bound branch). LOCAL is ignored on non-bound branches. (defalias 'bzr-log-edit-commit #[(&optional local) "\304\305 !\306 \210\307!\210\310 !\311\312\313\314\315\316\305 \n\205\"\317 \205\"\320\257\321 !\2055r q\210\322\310\323\324!\")\"\325\326\327\330\331\332\333\334\335\336 DD\257E$\210)\337 )\207" [buffer default-directory local dvc-partner-buffer find-file-noselect dvc-log-edit-file-name dvc-log-flush-commit-file-list save-buffer dvc-uniquify-file-name dvc-run-dvc-async bzr append "commit" "--verbose" "--file" bzr-is-bound "--local" buffer-live-p mapcar dvc-current-file-list nil-if-none-marked :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-15 #2=#:dvc-gensym-uniq-14) "\305\306\"\210\307db\210r\nq\210\310 )c\210)\311 !\210\312\313\f\314#\210\315\316!\207" [output inhibit-read-only error #2# #1# dvc-show-error-buffer commit t buffer-string dvc-log-close dvc-diff-clear-buffers bzr "* Just committed! Please refresh buffer\n" message "Bzr commit finished !"] 4] output error status arguments quote dvc-tips-popup-maybe] 15 (#$ . 21108) "P"]) #@203 *Whether bzr commit should use --local for bound branches by default. Possible values are: t: work offline (use --local systematialy) nil: work online (don't use --local) 'prompt: prompt when needed. (custom-declare-variable 'bzr-work-offline ''prompt '(#$ . -22355) :type '(choice (const t) (const nil) (const prompt)) :group 'dvc) #@51 Informs the user about the offline status of bzr. (defalias 'bzr-inform-offline-status #[nil "\301\302\303=\203\f\304\202\305=\203\306\202\307=\205\310\"\207" [bzr-work-offline message "DVC-bzr will now %s.\nUse M-x bzr-change-offline-status RET to change." t "work offline (use commit --local)" nil "work online (don't provide --local to commit)" prompt "prompt to use --local or not"] 4 (#$ . 22696) nil]) #@99 Change the offline status of DVC-bzr. Prompt the user and change `bzr-work-offline' accordingly. (defalias 'bzr-change-offline-status #[nil "\300 \210\301\213\207" [discard-input ((byte-code "\306\211 ?\205J\307\310!\210\311\312 )\227\211\fU\203\313\202#\314 \315\"A\211\2046\316 \210\307\317!\210\320\321!\210\202C \322=\203A\306\202C \323 \210)\202*\207" [commit-locally answer cursor-in-echo-area tem help-char bzr-work-offline nil message "Change offline status to ([C]onnected, [D]isconnected, [P]rompt)): " t read-char-exclusive help assoc ((99 . connect) (100 . t) (112 . prompt)) beep "Please type c, p or d" sit-for 3 connect bzr-inform-offline-status] 4))] 1 (#$ . 23122) nil]) #@44 Return non-nil if bzr should work offline. (defalias 'bzr-ask-user-about-offline #[nil "\301=\203\301\207\302=\203\302\207\303 \210\304\213\207" [bzr-work-offline t nil discard-input ((byte-code "\306\211 \204\307\310!\210\311\312 )\227\211\fU\203\313\202\"\314 \315\"A\211\2045\316 \210\307\317!\210\320\321!\210\202{ \313=\203H\307\322!\210\320\323!\210\306\202{ \324=\203S\311\202{ \325=\203^\306\202{ \326=\203n\306\211\327 \210\202{ \330=\203{\311\211\327 \210)\202*\207" [commit-locally answer cursor-in-echo-area tem help-char bzr-work-offline nil message "Commit locally only? (y, n, c, d) " t read-char-exclusive help assoc ((121 . yes) (110 . no) (99 . connect) (100 . disconnect) (63 . help)) beep "Please type y, n or r; or ? for help" sit-for 3 "Yes (commit locally), No (commit remotely too),\nConnect (commit remotely from now), Disconnect (commit locally from now)" 5 yes no connect bzr-inform-offline-status disconnect] 4))] 2 (#$ . 23834)]) #@155 Commit. Interactive prompt to know whether this should be local. See `bzr-log-edit-commit' and `bzr-log-edit-commit-local' for non-interactive versions. (defalias 'bzr-log-edit-done #[nil "\300\301 \205\302 !\207" [bzr-log-edit-commit bzr-is-bound bzr-ask-user-about-offline] 2 (#$ . 24837) nil]) #@188 Command to delete .rej file after conflicts resolution. Asks confirmation if the file still has diff3 markers. Then, run "bzr resolve". TODO: should share some code with `tla-resolved'. (defalias 'bzr-resolved #[(file) "r\305!q\210\306\301!\203( \203(\212eb\210\307 )\203$\310\311!\204$\312\313!\210\301\314!\210\315\316\211\203I @\317\nP!\211\203A\320\f!\210) A\211\2040*\321\322\323D\324\325$)\207" [file smerge-mode ext #1=#:--cl-dolist-temp-- buf find-file-noselect boundp smerge-find-conflict y-or-n-p "Buffer still has diff3 markers. Mark as resolved anyway? " error "Not marking file as resolved" -1 ("BASE" "OTHER" "THIS") nil find-buffer-visiting kill-buffer dvc-run-dvc-sync bzr "resolved" :finished dvc-null-handler] 5 (#$ . 25144) (list (let ((file (buffer-file-name))) (if (string-match "^\\(.*\\)\\.\\(BASE\\|OTHER\\|THIS\\)$" file) (let ((norej (match-string 1 file))) (if (and (file-exists-p norej) (y-or-n-p (format "Use file %s instead of %s? " (file-name-nondirectory norej) (file-name-nondirectory file)))) norej file)) file)))]) #@98 Return non-nil if FILE-NAME has conflicts. In practice, check for the existance of "FILE.BASE". (defalias 'bzr-file-has-conflict-p #[(file-name) "\303 !\304Q\305\n!)\207" [default-directory file-name rej-file-name file-name-nondirectory ".BASE" file-exists-p] 3 (#$ . 26216)]) #@45 Extract the location component from REV-ID. (defalias 'bzr-revision-id-location #[(rev-id) "\303!\304 \305\"\203\306!@\211A@)\202\307)\207" [rev-id #1=#:--cl-var-- data dvc-revision-get-type memql (revision previous-revision) dvc-revision-get-data nil] 4 (#$ . 26502)]) #@56 Non-nil if rev-id has the same path as the local tree. (defalias 'bzr-revision-id-is-local #[(rev-id) "\303!\304 \305\"\203\306!@\211@)\307=\202\310)\207" [rev-id #1=#:--cl-var-- data dvc-revision-get-type memql (revision previous-revision) dvc-revision-get-data local nil] 4 (#$ . 26786)]) #@34 Get the N-th ancestor of REV-ID. (defalias 'bzr-revision-nth-ancestor #[(rev-id n) "\304!\305 \306\"\203#\307!@\310\311\n@\nA@\312\n8 ZE)DD\202'\313\314\")\207" [rev-id #1=#:--cl-var-- data n dvc-revision-get-type memql (revision previous-revision) dvc-revision-get-data bzr revision 2 error "TODO: not implemented. REV-ID=%S"] 6 (#$ . 27091)]) #@110 Turn a DVC revision ID to a bzr revision spec. (bzr (revision (local "/path/to/archive" 3))) => "revno:3".  (defalias 'bzr-revision-id-to-string #[(rev-id) "\306!\211\307=\2037\310!@\211@\211\311=\203\"\312\313\314\n8!P\2023 \315=\2053\312\313\314\n8!\316\nA@R*\202t \317=\203W\320A@\321\fA@D\314\f8\322 \"+!\202t \323=\203p\310!\211A@\324\313!P*\202t\325\326\")\207" [rev-id #1=#:--cl-var-- data location previous-list rev dvc-revision-get-type revision dvc-revision-get-data local "revno:" int-to-string 2 remote ":" previous-revision bzr-revision-id-to-string bzr bzr-revision-nth-ancestor last-revision "last:" error "TODO: not implemented: %S" n-prev num] 5 (#$ . 27450)]) #@151 Insert the content of FILE in REVISION, in current buffer. REVISION is a back-end-revision, not a dvc revision-id. It looks like (local "path" NUM). (defalias 'bzr-revision-get-file-revision #[(file revision) "@@\305=\203\306\307@8!\202\310\311\"@@\305=\203$@A@\202% \n\312\313\314\315 \fF\316\317$c+\207" [revision default-directory path bzr-rev file local int-to-string 2 error "TODO: revision=%S" dvc-run-dvc-sync bzr "cat" "--revision" :finished dvc-output-buffer-handler-withnewline] 6 (#$ . 28164)]) #@105 Insert the content of FILE in LAST-REVISION, in current buffer. LAST-REVISION looks like ("root" NUM)  (defalias 'bzr-revision-get-last-revision #[(file last-revision) "\304\305A@!P@\306\307\310\311\n F\312\313$c*\207" [last-revision default-directory bzr-rev file "last:" int-to-string dvc-run-dvc-sync bzr "cat" "--revision" :finished dvc-output-buffer-handler-withnewline] 6 (#$ . 28692)]) #@18 Run bzr version. (defalias 'bzr-command-version #[nil "\301\302\303C\304\305$t\203\306\307\"\210\207" [bzr-command-version dvc-run-dvc-sync bzr "version" :finished #[(output error status arguments) "q\210eb\210`\301 {\207" [output point-at-eol] 2] message "Bazaar-NG Version: %s"] 5 (#$ . 29096) nil]) #@17 Run bzr whoami. (defalias 'bzr-whoami #[nil "\301\302\303C\304\305$t\203\306\307\"\210)\207" [whoami dvc-run-dvc-sync bzr "whoami" :finished dvc-output-buffer-handler message "bzr whoami: %s"] 5 (#$ . 29410) nil]) #@15 Run bzr info. (defalias 'bzr-info #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info bzr ("info")] 3 (#$ . 29635) nil]) #@20 Run bzr testament. (defalias 'bzr-testament #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info bzr ("testament")] 3 (#$ . 29766) nil]) #@18 Run bzr plugins. (defalias 'bzr-plugins #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info bzr ("plugins")] 3 (#$ . 29912) nil]) #@16 Run bzr check. (defalias 'bzr-check #[nil "\300\301\302\303#\207" [dvc-run-dvc-display-as-info bzr ("check") t] 4 (#$ . 30052) nil]) #@18 Run bzr ignored. (defalias 'bzr-ignored #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info bzr ("ignored")] 3 (#$ . 30191) nil]) #@20 Run bzr conflicts. (defalias 'bzr-conflicts #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info bzr ("conflicts")] 3 (#$ . 30331) nil]) #@18 Run bzr deleted. (defalias 'bzr-deleted #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info bzr ("deleted")] 3 (#$ . 30477) nil]) #@18 Run bzr renames. (defalias 'bzr-renames #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info bzr ("renames")] 3 (#$ . 30617) nil]) #@24 Run bzr verision-info. (defalias 'bzr-version-info #[nil "t\203 \300\301\302\"\207\303\301\304C\305\306$\207" [dvc-run-dvc-display-as-info bzr ("version-info") dvc-run-dvc-sync "version-info" :finished dvc-output-buffer-handler] 5 (#$ . 30757) nil]) #@18 Run bzr upgrade. (defalias 'bzr-upgrade #[nil "\301 \302\303\304\305#)\207" [default-directory dvc-tree-root dvc-run-dvc-display-as-info bzr ("upgrade") t] 4 (#$ . 31014) nil]) #@25 Run bzr ignore PATTERN. (defalias 'bzr-ignore #[(pattern) "\301\302\303D\"\207" [pattern dvc-run-dvc-sync bzr "ignore"] 4 (#$ . 31198) "sbzr ignore: "]) #@46 Path of the configuration directory for bzr. (defalias 'bzr-config-directory #[nil "\301\302=\203\303\304\305\306!\"\202\303\307!!\207" [system-type file-name-as-directory windows-nt expand-file-name "bazaar/2.0" getenv "APPDATA" "~/.bazaar"] 5 (#$ . 31358)]) #@102 Path of configuration file FILE for bzr. File can be, i.e. bazaar.conf, ignore, locations.conf, ... (defalias 'bzr-config-file #[(file) "\301 P\207" [file bzr-config-directory] 2 (#$ . 31630)]) #@87 List of newline-terminated ignore patterns that DVC should add to ~/.bazaar/ignore. (defvar bzr-ignore-list ".tmp-bzr*\n" (#$ . 31832)) #@59 Sets up a default ignore list for DVC in ~/.bazaar/ignore (defalias 'bzr-ignore-setup #[nil "\306\307!\310!\203\311!\206K\312\313!\211\314\315\316C\317\320$\210r\311\321\322!!q\210\322c\210\323 \210)\314\315\324C\317\320$\210\325 !\210\310!\203E\311!\202J\326\327!\210\330*\331 \205\223r q\210eb\210\332\333\330\334#\203{ \335\336!\230\203n\330\202\326\337!\210\340\224\340\225|\210\202\326\341!\210\f\203\217\342c\210 c\210\343c\210\323 \210)\344 !+\207" [file dir default-directory buffer ins bzr-ignore-list bzr-config-file "ignore" file-exists-p find-file-noselect dvc-make-temp-dir "dvc-bzr-ignore" dvc-run-dvc-sync bzr "init" :finished dvc-null-handler expand-file-name "foo" save-buffer "ignored" dvc-delete-recursively message "WARNING: Could not find or create bzr user-wide ignore file." nil t re-search-forward "^# DVC ignore (don't edit !!)\n\\(\\(.\\|\n\\)*\n\\)# end DVC ignore$" end match-string 1 "Overriding old DVC ignore list for bzr" 0 "Setting up DVC ignore list for bzr" "# DVC ignore (don't edit !!)\n" "# end DVC ignore\n" kill-buffer] 6 (#$ . 31976) nil]) #@17 Annote the FILE (defalias 'bzr-do-annotate #[(file) "\303!\304\305\306\"\307\310\311F\312 !\210\313\305\n\314\315\316\317\320\321\322\323\324\325 CD\257E$+\207" [file abuffer args expand-file-name dvc-get-buffer-create bzr annotate "annotate" "--all" "--long" dvc-switch-to-buffer-maybe dvc-run-dvc-sync :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-16) "rq\210\304\305 \210\304\306 !\210eb\210\307 *\207" [#1# inhibit-read-only truncate-lines output t erase-buffer insert-buffer-substring bzr-annotate-mode] 2] output error status arguments quote] 14 (#$ . 33086)]) #@18 Run bzr annotate (defalias 'bzr-annotate #[nil "\302 \303\304!\305 !\210\306!*\207" [line filename dvc-line-number-at-pos dvc-confirm-read-file-name "Filename to annotate: " bzr-do-annotate goto-line] 2 (#$ . 33731) nil]) (byte-code "\301B\302\303!\207" [current-load-list bzr-annon-parse-re (lambda (#1=#:defconst-tmp-var) (defconst bzr-annon-parse-re #1#)) "^\\(\\S-*\\)\\s-+\\(\\S-*\\)\\s-+\\([0-9]\\{4\\}\\)\\([0-9]\\{2\\}\\)\\([0-9]\\{2\\}\\)\\s-+|"] 2) (defalias 'bzr-annotate-time #[nil "`dW\205/\304 \210\305\306\307#\205/\310\311\312!!\310\311\313!!\310\311\314!!\315\316\317\211\211 \n &!+\207" [bzr-annon-parse-re year month day beginning-of-line re-search-forward nil t string-to-number match-string 3 4 5 dvc-annotate-convert-time encode-time 1] 9 nil nil]) (byte-code "\302\303N\204\f\304\302\303\305#\210\306\307!\204\304\307\310\311#\210\307B\312\307!\204(\313\307\314 \"\210\306\315!\2044\304\315\310\311#\210\315B\312\315!\204D\313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^\313\301\317\301\320\"\210 \"\210\304\311\321\320#\207" [current-load-list bzr-annotate-mode-abbrev-table bzr-annotate-mode-hook variable-documentation put "Hook run when entering bzr-annotate mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp bzr-annotate-mode-map definition-name bzr-annotate-mode default-boundp set-default make-sparse-keymap bzr-annotate-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5) #@162 Major mode to display bzr annotate output. This mode runs the hook `bzr-annotate-mode-hook', as the final step during initialization. \{bzr-annotate-mode-map} (defalias 'bzr-annotate-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315\307!\210\316d!\210\317\320!\210)\321\322!\207" [delay-mode-hooks major-mode mode-name bzr-annotate-mode-map bzr-annotate-mode-syntax-table bzr-annotate-mode-abbrev-table make-local-variable t kill-all-local-variables bzr-annotate-mode "bzr-annotate" use-local-map set-syntax-table dvc-annotate-display-autoscale dvc-annotate-lines toggle-read-only 1 run-mode-hooks bzr-annotate-mode-hook local-abbrev-table] 2 (#$ . 35300) nil]) (byte-code "\301\302!\210\303!\203 \304 \210\301\207" [bzr-executable provide bzr executable-find bzr-ignore-setup] 2)