;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:29 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/bzr-core.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-core.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@53 The executable used for the bzr command line client (defvar bzr-executable (byte-code "\301=\203\302\207\303\207" [system-type windows-nt "bzr.bat" "bzr"] 2) (#$ . 594)) #@300 Return the tree root for LOCATION, nil if not in a local tree. Computation is done from withing Emacs, by looking at a .bzr/ directory in a parent buffer of LOCATION. This is therefore very fast. If NO-ERROR is non-nil, don't raise an error if LOCATION is not a bzr-managed tree (but return nil). (defalias 'bzr-tree-root #[(&optional location no-error interactive) "\303\304\206t\305 \n%\207" [interactive location no-error dvc-tree-root-helper ".bzr/checkout/" "%S is not a bzr-managed tree"] 6 (#$ . 774) nil]) #@92 Call "bzr log -r 1" to get the tree-id. Does anyone know of a better way to get this info? (defalias 'bzr-tree-id #[nil "\302\303\304\305\306\307E\310\311\312\313&\210t\203\314\315 #\210)\207" [tree-id default-directory nil dvc-run-dvc-sync bzr "log" "-r" "1" :finished #[(output error status arguments) "q\210eb\210\302\303\304\305#\203\306\307!\211\207\310\211\207" [output tree-id re-search-forward "^branch nick:\\s-*\\(.+\\)$" nil t match-string 1 ""] 4] :error #[(output error status arguments) "\301\211\207" [tree-id ""] 2] message "tree-id for %s: %s"] 7 (#$ . 1299) nil]) #@37 Prepare the environment to run bzr. (defalias 'bzr-prepare-environment #[(env) "\301B\207" [env "BZR_PROGRESS_BAR=none"] 2 (#$ . 1917)]) #@18 Disable aliases. (defalias 'bzr-default-global-argument #[nil "\300\207" [("--no-aliases")] 1 (#$ . 2061)]) (provide 'bzr-core)