;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:31 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/tla-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 "`tla-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\311\"\207" [current-load-list require tla-core dvc-unified dvc-registered-backends default-boundp set-default nil add-to-list tla] 3) #@100 Human friendly name used for the dvc backend 'tla. This variable was created by `dvc-register-dvc' (defvar tla-backend-name "GNU Arch" (#$ . 814)) #@50 Wrapper for dvc-add-log-entry, for back-end tla. (defalias 'tla-add-log-entry #[nil "\301\302\303!)\207" [dvc-temp-current-active-dvc tla call-interactively dvc-add-log-entry] 2 (#$ . 967) nil]) #@46 Wrapper for dvc-add-files, for back-end tla. (defalias 'tla-add-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files tla call-interactively dvc-add-files] 2 (#$ . 1169) nil]) #@41 Wrapper for dvc-diff, for back-end tla. (defalias 'tla-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 tla call-interactively dvc-diff] 4 (#$ . 1396) nil]) #@59 Wrapper for dvc-ignore-file-extensions, for back-end tla. (defalias 'tla-ignore-file-extensions #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list tla call-interactively dvc-ignore-file-extensions] 2 (#$ . 1655) nil]) #@66 Wrapper for dvc-ignore-file-extensions-in-dir, for back-end tla. (defalias 'tla-ignore-file-extensions-in-dir #[(file-list) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc file-list tla call-interactively dvc-ignore-file-extensions-in-dir] 2 (#$ . 1923) nil]) #@45 Wrapper for dvc-log-edit, for back-end tla. (defalias 'tla-log-edit #[(&optional OTHER-FRAME) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc OTHER-FRAME tla call-interactively dvc-log-edit] 2 (#$ . 2212) nil]) #@43 Wrapper for dvc-rename, for back-end tla. (defalias 'tla-rename #[(from-name to-name) "\303t\203\f\304\305!\202\305 \n\")\207" [dvc-temp-current-active-dvc from-name to-name tla call-interactively dvc-rename] 3 (#$ . 2452) nil]) #@49 Wrapper for dvc-remove-files, for back-end tla. (defalias 'tla-remove-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files tla call-interactively dvc-remove-files] 2 (#$ . 2691) nil]) #@49 Wrapper for dvc-revert-files, for back-end tla. (defalias 'tla-revert-files #[(&rest files) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc files tla call-interactively dvc-revert-files] 2 (#$ . 2927) nil]) #@43 Wrapper for dvc-status, for back-end tla. (defalias 'tla-status #[(&optional path) "\302t\203\f\303\304!\202\304 !)\207" [dvc-temp-current-active-dvc path tla call-interactively dvc-status] 2 (#$ . 3163) nil]) (defalias 'tla-dvc-tree-root 'tla-tree-root) (defalias 'tla-dvc-diff #[(base-rev path dont-switch) "\300\301!\207" [tla-changes nil] 2]) (defalias 'tla-dvc-file-diff #[(file &optional base modified dont-switch) "\303\304 \n$\207" [file modified dont-switch tla-file-diff nil] 5]) (defalias 'tla-dvc-status #[nil "\300\301\302\"\207" [tla-changes t nil] 3]) (defalias 'tla-dvc-submit-patch 'tla-submit-patch) (defalias 'tla-dvc-update #[nil "\301!\207" [default-directory tla-update] 2 nil nil]) (defalias 'tla-dvc-log-edit #[(&optional root other-frame no-init) "\302?p #\207" [no-init other-frame tla-edit-log] 4 nil "P"]) (defalias 'tla-dvc-add #[(file) "\301\302\"\207" [file tla-add nil] 3]) #@46 Call `tla-remove' to remove a list of files. (defalias 'tla-dvc-remove-files #[(&rest files) "\301\302\303#\207" [files apply tla-remove nil] 4 (#$ . 4083)]) (defalias 'tla-dvc-rename #[(from-name to-name bookkeep-only) "\303 \n#\207" [from-name to-name bookkeep-only tla-move] 4 nil nil]) #@41 Show the log for the current Arch tree. (defalias 'tla-dvc-log #[(arg last-n) "\300 \207" [tla-logs] 1 (#$ . 4381)]) #@47 Show the changelog for the current Arch tree. (defalias 'tla-dvc-changelog #[nil "\300 \207" [tla-changelog] 1 (#$ . 4504)]) (defalias 'tla-dvc-search-file-in-diff #[(file) "\301\302\303Q!\207" [file re-search-forward "^\\+\\+\\+ mod/" "$"] 4]) (defalias 'tla-dvc-name-construct 'tla--name-construct) (defalias 'tla-dvc-revision-direct-ancestor #[(revision) "\302\300\303\211A@)\211A@)!DD\207" [revision x tla tla-revision-direct-ancestor] 5]) (defalias 'tla-dvc-log-edit-file-name-func #[nil "\300 \207" [tla-make-log] 1]) (defalias 'tla-dvc-inventory #[nil "\300 \207" [tla-inventory] 1 nil nil]) (defalias 'tla-dvc-missing #[(&optional other) "\300\301\302\303\"\304 \"\207" [tla-missing tla-tree-root nil t tla-tree-version] 4 nil nil]) (defalias 'tla-dvc-command-version 'tla-command-version) (defalias 'tla-dvc-delta #[(base modified &optional dont-switch) "\303!\304=\203*\303 !\305=\203*\306\211!@!@\306 !@\232\203*\307\306\211!@!@\310\"\207\311\312\313!!\312\313 !!\314\n$\207" [base modified dont-switch dvc-revision-get-type previous-revision revision dvc-revision-get-data tla-get-changeset t tla-delta tla--name-construct tla-revision-id-to-list nil] 5 nil (error "TODO: interactive not implemented")]) #@33 See `tla-inventory-revert-file' (defalias 'tla-dvc-revert-files #[(&rest files) "\301\302\"\207" [files mapcar tla-inventory-revert-file] 3 (#$ . 5737)]) (byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\207" [defalias tla-dvc-file-has-conflict-p tla-file-has-conflict-p tla-dvc-resolved tla-resolved provide tla-dvc] 3)