;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:29 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/baz-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 "`baz-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\302\"\207" [current-load-list require baz dvc-unified dvc-registered-backends default-boundp set-default nil add-to-list] 3) #@100 Human friendly name used for the dvc backend 'baz. This variable was created by `dvc-register-dvc' (defvar baz-backend-name "Bazaar 1" (#$ . 805)) #@50 Wrapper for dvc-add-log-entry, for back-end baz. (defalias 'baz-add-log-entry #[nil "\301\302\303!)\207" [dvc-temp-current-active-dvc baz call-interactively dvc-add-log-entry] 2 (#$ . 958) nil]) #@46 Wrapper for dvc-add-files, for back-end baz. (defalias 'baz-add-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files baz call-interactively dvc-add-files] 2 (#$ . 1160) nil]) #@41 Wrapper for dvc-diff, for back-end baz. (defalias 'baz-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 baz call-interactively dvc-diff] 4 (#$ . 1387) nil]) #@59 Wrapper for dvc-ignore-file-extensions, for back-end baz. (defalias 'baz-ignore-file-extensions #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list baz call-interactively dvc-ignore-file-extensions] 2 (#$ . 1646) nil]) #@66 Wrapper for dvc-ignore-file-extensions-in-dir, for back-end baz. (defalias 'baz-ignore-file-extensions-in-dir #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list baz call-interactively dvc-ignore-file-extensions-in-dir] 2 (#$ . 1914) nil]) #@45 Wrapper for dvc-log-edit, for back-end baz. (defalias 'baz-log-edit #[(&optional OTHER-FRAME) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc OTHER-FRAME baz call-interactively dvc-log-edit] 2 (#$ . 2203) nil]) #@43 Wrapper for dvc-rename, for back-end baz. (defalias 'baz-rename #[(from-name to-name) "\303t\203\f\304\305!\202\305 \n\")\207" [dvc-temp-current-active-dvc from-name to-name baz call-interactively dvc-rename] 3 (#$ . 2443) nil]) #@49 Wrapper for dvc-remove-files, for back-end baz. (defalias 'baz-remove-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files baz call-interactively dvc-remove-files] 2 (#$ . 2682) nil]) #@49 Wrapper for dvc-revert-files, for back-end baz. (defalias 'baz-revert-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files baz call-interactively dvc-revert-files] 2 (#$ . 2918) nil]) #@43 Wrapper for dvc-status, for back-end baz. (defalias 'baz-status #[(&optional path) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc path baz call-interactively dvc-status] 2 (#$ . 3154) nil]) (defalias 'baz-dvc-tree-root 'baz-tree-root) (defalias 'baz-dvc-diff #[(base-rev path dont-switch) "\301\302\"\207" [base-rev baz-changes nil] 3]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias baz-dvc-file-diff baz-file-diff baz-dvc-log-edit tla-dvc-log-edit] 3) (defalias 'baz-dvc-add #[(file) "\301\302\"\207" [file baz-add nil] 3]) #@47 Shows the changelog in the current Arch tree. (defalias 'baz-dvc-log #[(arg last-n) "\300 \207" [baz-logs] 1 (#$ . 3725)]) (defalias 'baz-dvc-search-file-in-diff #[(file) "\301\302\303Q!\207" [file re-search-forward "^\\+\\+\\+ mod/" "$"] 4]) (defalias 'baz-dvc-name-construct 'baz--name-construct) (defalias 'baz-dvc-revision-direct-ancestor #[(revision) "\302\300\303\211A@)\211A@)!DD\207" [revision x baz baz-revision-direct-ancestor] 5]) (defalias 'baz-dvc-log-edit-file-name-func #[nil "\300 \207" [baz-make-log] 1]) (byte-code "\300\301\302\"\210\303\304!\207" [defalias baz-dvc-command-version baz-command-version provide baz-dvc] 3)