;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:29 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/bzr-dvc.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-dvc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\301\303!\210\304B\305\304!\204\306\304\307\"\210\310\304\303\"\207" [current-load-list require dvc-unified bzr dvc-registered-backends default-boundp set-default nil add-to-list] 3) #@100 Human friendly name used for the dvc backend 'bzr. This variable was created by `dvc-register-dvc' (defvar bzr-backend-name "Bazaar 2" (#$ . 805)) #@50 Wrapper for dvc-add-log-entry, for back-end bzr. (defalias 'bzr-add-log-entry #[nil "\301\302\303!)\207" [dvc-temp-current-active-dvc bzr call-interactively dvc-add-log-entry] 2 (#$ . 958) nil]) #@46 Wrapper for dvc-add-files, for back-end bzr. (defalias 'bzr-add-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files bzr call-interactively dvc-add-files] 2 (#$ . 1160) nil]) #@41 Wrapper for dvc-diff, for back-end bzr. (defalias 'bzr-diff #[(&optional base-rev path dont-switch) "\304t\203\f\305\306!\202\306 \n #)\207" [dvc-temp-current-active-dvc base-rev path dont-switch bzr call-interactively dvc-diff] 4 (#$ . 1387) nil]) #@59 Wrapper for dvc-ignore-file-extensions, for back-end bzr. (defalias 'bzr-ignore-file-extensions #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list bzr call-interactively dvc-ignore-file-extensions] 2 (#$ . 1646) nil]) #@66 Wrapper for dvc-ignore-file-extensions-in-dir, for back-end bzr. (defalias 'bzr-ignore-file-extensions-in-dir #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list bzr call-interactively dvc-ignore-file-extensions-in-dir] 2 (#$ . 1914) nil]) #@45 Wrapper for dvc-log-edit, for back-end bzr. (defalias 'bzr-log-edit #[(&optional OTHER-FRAME) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc OTHER-FRAME bzr call-interactively dvc-log-edit] 2 (#$ . 2203) nil]) #@43 Wrapper for dvc-rename, for back-end bzr. (defalias 'bzr-rename #[(from-name to-name) "\303t\203\f\304\305!\202\305 \n\")\207" [dvc-temp-current-active-dvc from-name to-name bzr call-interactively dvc-rename] 3 (#$ . 2443) nil]) #@49 Wrapper for dvc-remove-files, for back-end bzr. (defalias 'bzr-remove-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files bzr call-interactively dvc-remove-files] 2 (#$ . 2682) nil]) #@49 Wrapper for dvc-revert-files, for back-end bzr. (defalias 'bzr-revert-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files bzr call-interactively dvc-revert-files] 2 (#$ . 2918) nil]) #@43 Wrapper for dvc-status, for back-end bzr. (defalias 'bzr-status #[(&optional path) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc path bzr call-interactively dvc-status] 2 (#$ . 3154) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\300\315\316\"\207" [defalias bzr-dvc-inventory bzr-inventory bzr-dvc-missing bzr-missing bzr-dvc-pull bzr-pull bzr-dvc-merge bzr-merge bzr-dvc-submit-patch bzr-submit-patch bzr-dvc-add bzr-add bzr-dvc-log-edit-done bzr-log-edit-done] 3) (defalias 'bzr-dvc-search-file-in-diff #[(file) "\301\302\303Q!\207" [file re-search-forward "^=== .* '" "'$"] 4]) (defalias 'bzr-dvc-name-construct #[(back-end-revision) "A@\207" [back-end-revision] 1]) #@129 The filename, used to store the log message before commiting. Usually that file is placed in the tree-root of the working tree. (defvar bzr-log-edit-file-name ".tmp-bzr-log-edit.txt" (#$ . 3939)) (byte-code "\301\302\303\304!\305Q\306B\"\210\307\310\311\"\210\307\312\313\"\210\307\314\315\"\210\307\316\317\"\207" [bzr-log-edit-file-name add-to-list auto-mode-alist "^" regexp-quote "$" bzr-log-edit-mode defalias bzr-dvc-command-version bzr-command-version bzr-dvc-revision-nth-ancestor bzr-revision-nth-ancestor bzr-dvc-log bzr-log bzr-dvc-changelog bzr-changelog] 5) (defalias 'bzr-dvc-update #[nil "\300\301!\207" [bzr-update nil] 2 nil nil]) (defalias 'bzr-dvc-edit-ignore-files #[nil "\300\301 \302P!\207" [find-file-other-window bzr-tree-root ".bzrignore"] 3 nil nil]) (defalias 'bzr-dvc-ignore-files #[(file-list) "\303\304\305\306 #!\205&\307\211\203$\n@\310\304\311 \"!\210\nA\211\204*\307\207" [file-list f-name #1=#:--cl-dolist-temp-- y-or-n-p format "Ignore %S for %s? " bzr-tree-root nil bzr-ignore "./%s"] 5 nil (list (dvc-current-file-list))]) (defalias 'bzr-dvc-backend-ignore-file-extensions #[(extension-list) "\303\211\203\n@\304\305\306 \"!\210\nA\211\204*\303\207" [extension-list ext-name #1=#:--cl-dolist-temp-- nil bzr-ignore format "*.%s"] 5]) (byte-code "\300\301\302\"\210\303\304\301\"\210\303\305\306\"\210\303\307\310\"\210\303\311\312\"\210\303\313\314\"\210\303\315\316\"\210\303\317\320\"\210\321\322!\207" [autoload bzr-revlog-get-revision "bzr-revlog" defalias bzr-dvc-revlog-get-revision bzr-dvc-delta bzr-delta bzr-dvc-send-commit-notification bzr-send-commit-notification bzr-dvc-prepare-environment bzr-prepare-environment bzr-dvc-file-has-conflict-p bzr-file-has-conflict-p bzr-dvc-resolved bzr-resolved bzr-dvc-annotate-time bzr-annotate-time provide bzr-dvc] 3)